shinydashboardで選択されたタブボックスに基づく条件付き表示

Question

shinydashboardで光沢を使用します。私は2つのtabPanelsを持つ1つのタブボックスを持っています。 tabboxが選択されている場合はtextOutput（ "a"）、tab2が選択されている場合はtextOutput（ "b"）のいずれかを表示する別のボックスがあります。

私は再現性のためにコード全体を提供しますが、重要な部分がどこにあるかを示すコメントを注意してください。

 library(shiny) 
     library(shinydashboard) 

     ui<-dashboardPage(skin = "red", 
          dashboardHeader(title="lalala",titleWidth = 450), 


      sidebar <-dashboardSidebar(width=400, 
           sidebarMenu(
            menuItem(text = strong("First tab"),tabName="first",icon = icon("dashboard")) 
            )), 
     body <- dashboardBody(
      fluidRow(
       tabBox(
        title = "First tabBox", 

        id = "tabset1", height = "250px", 
    ############## based on which of this tab is selected 
        tabPanel("Tab1", "First tab content"), 
        tabPanel("Tab2", "Tab content 2") 
       ), 
       box(
        title = "Selection criteria for chart", height = "700px",width = 4, solidHeader = TRUE,status="danger", 
############## I want in this box to display either textouput "a" or "b"     
textOutput("a") 

       ) 
      ))) 

     server<-function(input,output){ 

      output$a<-renderText(

       a<-"ahoj" 

      ) 

      output$b<-renderText(

       b<-"cau" 

      ) 

     } 

Answer 1

input$tabset1現在選択されているタブ（SO Tab1又はTab2いずれか）のIDを返します。次に、if/elseステートメントを使用して、この戻り値に応じて好きなコンテンツを印刷できます。