包括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它的工作原理，以及“做”在控制台和印刷标题和“请工作”打印在UI中。否则，在这两种情况下，带有两个选项卡的用户界面显示出来，并且在选项卡中没有任何内容被打印或显示，尽管空的灰色框显示出来。

使用RStudio 0.99.332，R 3.1.2，有光泽0.11.1

Answer 1

在rshiny一个输出可以只去一个地方，这意味着你必须为其他的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)