Question

我定义了以下功能：

where_condition_SQL<-
 function(table,selected_columns,where_conditions) {  
    new_table<-sqldf(sprintf("select %s from %s where %s",
                            as.character((selected_columns)),
                            deparse(substitute(table)),
                            as.character((where_conditions))))   
     return(new_table) }

  select_category_amounts <- function(
     input_table,selected_columns,category,category_column){
     new_table<-where_condition_SQL(input_table,
             selected_columns=as.character(selected_columns),
                      where_conditions=sprintf( "%s='%s'",
                                                 as.character(category_column), 
                                                 as.character(category)) )     return(new_table) }

当我尝试通过以下方式运行第二个功能时：

select_category_amounts(second_table,"*","Reservas","categoria2")

然后它无法识别second_table并给我以下错误：

Error in rsqlite_send_query(conn@ptr, statement) : 
no such table: input_table

我认为这是关于环境的一些问题，但我不明白这一点。非常感谢您提前寻求帮助。

Answer 1

我会在你的第一个函数中使用eval而不是deparse，并将表的名称作为字符串传递。这样，您就可以在第一个函数中获取变量table的内容：

where_condition_SQL<-
  function(table,selected_columns,where_conditions) {  
    new_table<-sqldf(sprintf("select %s from %s where %s",
                             as.character((selected_columns)),
                             eval(table),
                             as.character((where_conditions))))   
    return(new_table) }

select_category_amounts("second_table","*","Reservas","categoria2")
 Show Traceback

 Rerun with Debug
 Error in rsqlite_send_query(conn@ptr, statement) : 
  no such table: second_table

使用eval，您还可以将表的名称作为对象传递：

second_table <- "mytable"
select_category_amounts(second_table,"*","Reservas","categoria2")

Error in rsqlite_send_query(conn@ptr, statement) : no such table: mytable

R中的函数内的函数不起作用

1 个答案: