R shiny - tabPanel和输出

Question

下面是我的代码：

shinyServer <-  function(input, output) {

    output$text_out <- renderText({ 
      paste("You have selected", input$text_input)
    })

  }

shinyUI <- fluidPage(
  titlePanel("censusVis"),
  fluidRow(
    column(3, textInput('text_input', label = 'some label', value ='')),
    column(9,
           tabsetPanel(
               tabPanel('result',
                          fluidRow(
                            column(12, h3('Test_header'),  
                                   textOutput('text_out')
                            )
                          )
                ),
                tabPanel('some panel', tableOutput('table')),
                tabPanel('another panel', tableOutput('table'))

          )
    )
  )

)
shinyApp(ui=shinyUI, server = shinyServer)

它可以工作，但它不显示行"You have selected"，如果我在代码tabPanel('another panel', tableOutput('table'))中注释以下行，则会显示行"You have selected"。你知道问题出在哪里吗?为什么tabPanel会影响输出？