如何将变量传递给renderDataTable（闪亮）选项中的目标

以下选项可以禁用渲染数据表中第1列和第3列的筛选：

output$datatbl <- DT::renderDataTable(
dt$df, rownames = FALSE,
filter = 'top',
options = list(autoWidth = TRUE, 
               columnDefs = list(list(targets = c(1,3), searchable = FALSE))))

---

然而，上面的代码似乎并没有像我预期的那样将var的值传递给

目标

，因为这些列并没有被过滤器禁用。我的代码有什么问题吗？谢谢

您可以预先按位置确定列名，并将它们传递到targets参数中，如下所示：

output$datatbl <- DT::renderDataTable({

  disable_search_targets <- which(colnames(iris) %in% c('Petal.Length', 'Species'))

  datatable(iris, 
            options = list(autoWidth = TRUE, 
                           columnDefs = list(list(targets = disable_search_targets, 
                                                  searchable  = FALSE))))
})

---

output$datatbl您可以事先按位置确定列名，并将它们传递到targets参数中，如下所示：

output$datatbl <- DT::renderDataTable({

  disable_search_targets <- which(colnames(iris) %in% c('Petal.Length', 'Species'))

  datatable(iris, 
            options = list(autoWidth = TRUE, 
                           columnDefs = list(list(targets = disable_search_targets, 
                                                  searchable  = FALSE))))
})

output$datatbl我想这是因为
eval（substitute（））
没有在函数环境中调用。我想知道如何在这里嵌入一个函数来更改选项中
targets
的值。谢谢我认为这是因为函数环境中没有调用
eval（substitute（））
。我想知道如何在这里嵌入一个函数来更改选项中
targets
的值。谢谢