创建一个同时支持带引号和未带引号的参数的函数(使用data.table)，然后在purrr::map (或lapply)中工作

install.packages("data.table")
library(data.table)

my_function <- function(x) {
  # 判断参数是否为字符向量
  if (is.character(x)) {
    # 处理带引号的参数
    dt <- data.table(x = x)
    # 在引号两侧添加双引号
    dt[, x := paste0('"', x, '"')]
  } else {
    # 处理未带引号的参数
    dt <- data.table(x = deparse(substitute(x)))
    # 在引号两侧添加双引号
    dt[, x := paste0('"', x, '"')]
  }
  
  return(dt)
}

# 处理带引号的参数
quoted_param <- c("param1", "param2")
result_quoted <- my_function(quoted_param)
print(result_quoted)

# 处理未带引号的参数
unquoted_param <- var_name
result_unquoted <- my_function(unquoted_param)
print(result_unquoted)

param_list <- list(c("param1", "param2"), var_name)
result_list <- purrr::map(param_list, my_function)
print(result_list)