如何在R中将字符串转换为可执行代码？

# 定义一个字符串
code_str <- "sqrt(16)"

# 使用parse()函数将字符串解析为表达式对象
expr_obj <- parse(text = code_str)

# 使用eval()函数计算表达式对象
result <- eval(expr_obj)

# 输出结果
print(result)

# 定义一个有语法错误的字符串
code_str_error <- "sqrt(16"  # 缺少右括号

# 尝试解析并执行
tryCatch({
  expr_obj_error <- parse(text = code_str_error)
  result_error <- eval(expr_obj_error)
  print(result_error)
}, error = function(e) {
  print("解析错误：")
  print(e$message)
})

# 定义一个安全的字符串
safe_code_str <- "sqrt(16)"

# 验证字符串是否安全
is_safe <- function(code_str) {
  # 这里可以添加更多的验证逻辑
  return(grepl("^[[:alnum:][:space:]().,;]+$", code_str))
}

if (is_safe(safe_code_str)) {
  expr_obj_safe <- parse(text = safe_code_str)
  result_safe <- eval(expr_obj_safe)
  print(result_safe)
} else {
  print("输入字符串不安全")
}