Question

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

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

但是它给我一个错误信息如下：

shinyUI（tableOutput（“table1”），tableOutput（“table2”））中的错误：
unused参数（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)

在一个页面中显示两个表

1 个答案: