是否有用于在R Shiny

Question

我试图在sidebarlayout中创建一个数据框。但不要用此代码创建

 library(shiny)

 ui <- fluidPage(
 sidebarLayout(
 data.frame(a=(1,2),b=c(3,4)),
 mainPanel(h6("This is my dataframe"))
 )
 )

server <- function(input, output, session) {

}

shinyApp(ui, server)

Answer 1

这对您有帮助吗？：

ui <- fluidPage(sidebarPanel(tableOutput('tab')),mainPanel())
server <- function(input, output, session) {output$tab=renderTable(data.frame(a=c(1,2),b=c(3,4)))}
shinyApp(ui, server)

它在server命令而不是renderTable的{​​{1}}-中创建数据帧。