Question

ui.r

shinyUI(

  fluidPage(

    titlePanel("the title"),
      mainPanel(
        tabsetPanel(tabPanel("Raw Data",verbatimTextOutput("theText")),
                    tabPanel("Raw Data2",verbatimTextOutput("theText"))
        )
      )
  )
)

server.r

library("shiny")
library("dplyr")
shinyServer(

function(input, output,session) {

  print("do it")
  output$theText <- renderText({
    return("please work")})
 }
)

如果我删除一个tabPanel它就可以工作，并且在控制台中打印“do it”，并在UI中打印标题和“please work”。否则，两者都会显示带有两个选项卡的UI，并且不会在选项卡中打印或显示任何内容，但会显示一个空的灰色框。

使用RStudio 0.99.332，R 3.1.2，闪亮0.11.1

Answer 1

在r闪亮的一个输出只能到一个地方，这意味着你必须为其他选项卡面板创建新的输出。

library(shiny)
server <- function(input, output, session) {
     print("do it")
  output$theText <- renderText({
    return("please work")})
  output$theText2 <- renderText({
    return("please work")})
}

ui <- fluidPage(

    titlePanel("the title"),
      mainPanel(
        tabsetPanel(tabPanel("Raw Data",verbatimTextOutput("theText")),
                    tabPanel("Raw Data2",verbatimTextOutput("theText2"))
        )
      )
  )

shinyApp(ui = ui, server = server)

包括tabsetpanel中的两个选项卡闪亮

1 个答案: