在 Shiny 的一页上输出多个表格

Question

我正在尝试构建一个接收数据文件名的 Shiny 接口，然后运行一个生成 4 个表（矩阵）的 .R 脚本，并在 Shiny 中一次将它们全部输出。例如：

ui.R

shinyUI(pageWithSidebar(
    headerPanel("Calculate CDK fingerprints"),
    sidebarPanel(
        textInput("text_input_fingerprints", "Enter smiles file name:"),
        actionButton("runButton", "Run")
    ),
    mainPanel(
        tableOutput("cdk")
    )
   )
  )

服务器.R

shinyServer(function(input,output){

output$cdk <- renderTable({

    input$runButton

    if (input$runButton == 0) {return()}        
    else{
         source('calculate_cdk_fingerprints.R', local = TRUE)
         print(table1)
         print(table2)
         print(table3)
         print(table4)
        }
     })
})

不幸的是，Shiny 只打印最后一个表，即表 4。而且我不能真正拆分 .R 脚本，因为它还会将一些文件输出到本地文件夹。是的，我真的需要使用 actionButton()。

有什么建议吗？提前致谢！

Answer 1

您需要为每个单独的表格输出。或者，您可以使用 verbatimTextSummary 和 rbind

mainPanel(
    tableOutput("cdk1"),
    tableOutput("cdk2"),
    tableOutput("cdk3")
)

---

ui.r

shinyUI(pageWithSidebar(
    headerPanel("Calculate CDK fingerprints"),
    sidebarPanel(
        textInput("text_input_fingerprints", "Enter smiles file name:"),
        actionButton("runButton", "Run")
    ),
    mainPanel(
        tableOutput("cdk1"),
        tableOutput("cdk2"),
        tableOutput("cdk3")
    )
   )
  )

server.r

shinyServer(function(input,output){

#----
## eg: 
# source('calculate_cdk_fingerprints.R', local = TRUE)
#-----
## Example: 
table1 <- matrix(1:20, nrow=4)
table2 <- matrix(101:120, nrow=4)
table3 <- matrix(201:220, nrow=4)


output$cdk1 <- renderTable({

    input$runButton

    if (input$runButton == 0) {return()}        
    else{
         table1
        }
     })

output$cdk2 <- renderTable({

    input$runButton

    if (input$runButton == 0) {return()}        
    else{
         table2
        }
     })

output$cdk3 <- renderTable({

    input$runButton

    if (input$runButton == 0) {return()}        
    else{
         table3
        }
     })
})