在服务器端,我接受用户输入的数据:
stressed.flag <- reactive({input$flags})
然后,我使用此输入在反应式语句中创建多个数据框:
getdata <- reactive({
df <- readWorksheetFromFile(x, y)
df1 <- df[which(df[,1] %in% stressed.flag()),1:11]
)}
这是问题->我想将数据帧df1和df2都输出给用户,但是我不知道这样做的语法。我可以尝试使用renderDataTable命令输出一个数据帧(在服务器端并链接到UI端),但这也不起作用。
output$bogus = renderDataTable({
df1()
})
我想我的问题是我如何告诉机器在output $ bogus语句中抓住哪个数据帧。也许我想要df1,也许我想要df2,也许两者都来自getdata反应性语句
您可以使用列表返回一对对象,list(df1=..., df2=...)
然后使用getdata()[['df1']]
但这通常是一个好主意,因此通过反应来拥有一个数据集,这就是我要做的:
stressed.flag <- reactive({input$flags})
df <- reactive(readWorksheetFromFile(x, y))
df1 <- reactive({
data <- df();
data[data[,1] %in% stressed.flag(),1:11]})
output$full= renderDataTable(df())
output$stressed= renderDataTable(df1())
你也可以data[data[,1] %in% stressed.flag(),1:11]
用data[data$col1Name==stressed.flag(),1:11]
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句