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

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