在 tabsetpanel 中包含两个选项卡会闪亮

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" 会打印在控制台中，标题和 "please work" 会打印在 UI 中。否则，两者都会显示带有两个选项卡的 UI，但选项卡中不会打印或显示任何内容，尽管会显示一个空的灰色框。

使用 RStudio 0.99.332，R 3.1.2，闪亮的 0.11.1

Answer 1

在 r shiny 中，一个输出只能到一个地方，这意味着您必须为其他 tabPanel 创建新的输出。

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 中包含两个选项卡会闪亮

including two tabs in tabsetpanel breaks shiny

r

shiny