在一页中显示两个表

Question

我试图在RShiny Web应用程序的一个页面中插入两个表。 我写道：

shinyApp(
    shinyUI(tableOutput('table1'), 
      tableOutput('table2')), 
    shinyServer(function(input, output){ 
    output$table1 <- renderTable(mtcars) 
    output$table2 <- renderTable(iris) 
    }) 
) 

但它下面给我的错误信息：

错误shinyUI（tableOutput（ “表1”），tableOutput（ “表2”））：
未使用参数（tableOutput（“table2”））

不理解，因为当我只打印出table1或table2时，它工作正常。正是当我试图同时打印两个表时，我有“未使用的参数”错误。

为什么会发生此错误？ 我该如何解决这个问题？谢谢。

Answer 1

这应该为你工作。

library(shiny) 

ui <- fluidPage(
    tableOutput('table1'), 
    tableOutput('table2') 
) 

server <- function(input, output, session) { 
    output$table1 <- renderTable(mtcars) 
    output$table2 <- renderTable(iris) 
} 

shinyApp(ui, server)