R 预筛选数据表？

我正在使用R和Rstudio以及shinny来显示

data.table

中的数据，使用

renderDataTable

。如何设置data.table，以便在加载某些列时对其进行预筛选

library(data.table)
output$od_hsmm.summaries = renderDataTable({
summary.dt = hsmm.load_summary_r()
summary.dt = summary.dt[,.SD, .SDcols = c('spec.runid', 'spec.wrp', 'spec.log', 'nStates', 'fit.ll', 'fit.ll.imp', 'fit.bic')]
setnames(summary.dt, 
         c('spec.runid', 'spec.wrp', 'spec.log', 'nStates', 'fit.ll', 'fit.ll.imp', 'fit.bic'),
         c('runid', 'repeat.obs', 'log.obs', 'nStates', 'loglik', 'll.improves', 'bic'))
return(summary.dt)
})

我希望我的DataTable在我闪亮的应用程序中启动，只显示runid==1，repeat.obs==0

为了澄清这一点，我想使用Shiny的renderDataTable选项来实现这一点——我不想将data.table子集

---

提前感谢

替换

是否返回（summary.dt）

为

子集（summary.dt，runid==1&repeat.obs==0）

提供您想要的？@Stibu否-这不使用shiny的内置选项-如果我希望用户以后能够查看整个表，我必须取消设置。