根据选择的tabPanel更改shinydashboard侧边栏的内容

Question

我有下面闪亮的应用程序，有 3 个不同的选项卡、一个侧边栏和一个右侧边栏。我希望每次移动到另一个选项卡时，两个侧边栏的内容都会更改并显示不同的小部件。在注释行中，您可以看到我想要显示的不同小部件。

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shiny)


shinyApp(
  ui = tags$body(class="skin-blue sidebar-mini control-sidebar-open",dashboardPage(
    options = list(sidebarExpandOnHover = TRUE),
    header = dashboardHeader(title = "Investment Advisor Monitoring - Insider Trading",titleWidth = 450),
    
    sidebar = dashboardSidebar(minified = F, collapsed = F,
                               h4("Investment Selected"),
                               textInput("StockTicker", "Enter Stock Symbol", value = "NFLX")
                               #textInput("StockTicker2", "Enter Stock Symbol 2", value = "NFLX")
                               #textInput("StockTicker3", "Enter Stock Symbol 3", value = "NFLX")
                               
                               ),
    body = dashboardBody(
      h3('Results'),
      tabsetPanel(
        tabPanel("Insider Training"),
        tabPanel("Switching"),
        tabPanel("Tax Loss Harvesting")
        
      )
      
    ),
    controlbar = dashboardControlbar(width = 300,
                                     h4("Insider Trading Parameters"),              
                                     
                                     
                                     selectInput("InsiderTradingModel", "Insider Trading Model",
                                                 c("Dynamic" = "Dynamic",
                                                   "AI based" = "AIbased"))
                                     #selectInput("InsiderTradingModel2", "Insider Trading Model 2",
                                      #           c("Dynamic" = "Dynamic",
                                       #            "AI based" = "AIbased"))
                                     #selectInput("InsiderTradingModel3", "Insider Trading Model 3",
                                     #           c("Dynamic" = "Dynamic",
                                     #            "AI based" = "AIbased"))
    ),
    title = "DashboardPage"
  )),
  server = function(input, output) { 
    
  }
)

Answer 1

也许您正在寻找这样的东西

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

shinyApp(
  ui = tags$body(class="skin-blue sidebar-mini control-sidebar-open",dashboardPage(
    options = list(sidebarExpandOnHover = TRUE),
    header = dashboardHeader(title = "Investment Advisor Monitoring - Insider Trading",titleWidth = 450),
    
    sidebar = dashboardSidebar(minified = F, collapsed = F,
                               h4("Investment Selected"),
                               uiOutput("mytab11"), uiOutput("mytab12")
                               
                               #textInput("StockTicker3", "Enter Stock Symbol 3", value = "AMZN")
    ),
    body = dashboardBody(
      h3('Results'),
      tabsetPanel(id = "tabs",
        tabPanel("InsiderTraining"),
        tabPanel("Switching"),
        tabPanel("Tax Loss Harvesting")
      )
    ),
    controlbar = dashboardControlbar(width = 300,
                                     h4("Insider Trading Parameters"),              
                                     uiOutput("mytab21"), uiOutput("mytab22")
                                     
                                     #selectInput("InsiderTradingModel3", "Insider Trading Model 3",
                                     #           c("Dynamic" = "Dynamic",
                                     #            "AI based" = "AIbased"))
    ),
    title = "DashboardPage"
  )),
  server = function(input, output) { 
    
    output$mytab11 <- renderUI({
      tagList(
        conditionalPanel(condition = 'input.tabs=="InsiderTraining"',
                         textInput("StockTicker", "Enter Stock Symbol", value = "NFLX"),
                         sliderInput('periods','Periods',min=1,max=120,value=60),
                         selectInput("mtvar", "Choose a variable", choices = colnames(mtcars))
        ))
    })
    output$mytab12 <- renderUI({
      tagList(
        conditionalPanel(condition = 'input.tabs=="Switching"',
                         textInput("StockTicker2", "Enter Stock Symbol", value = "APPL"),
                         selectInput("cvar", "Choose a variable", choices = colnames(cars))
        ))
    })      
    
    output$mytab21 <- renderUI({
      tagList(
        conditionalPanel(condition = 'input.tabs=="InsiderTraining"',
                         selectInput("InsiderTradingModel", "Insider Trading Model",
                                     c("Dynamic" = "Dynamic",
                                       "AI based" = "AIbased")),
                         #textInput("StockTicker", "Enter Stock Symbol", value = "NFLX"),
                         selectInput("ivar", "Choose a variable", choices = colnames(iris))
        ))
    })
    output$mytab22 <- renderUI({
      tagList(
        conditionalPanel(condition = 'input.tabs=="Switching"',
                         selectInput("InsiderTradingModel2", "Insider Trading Model 2",
                                     c("Dynamic" = "Dynamic",
                                       "BI based" = "BIbased")),
                         sliderInput('periodss','Periods',min=1,max=100,value=30),
                         selectInput("pvar", "Choose a variable", choices = colnames(pressure))
        ))
    })      
  }
)

Answer 2

使用嵌套在

conditionalPanel

中的

renderUI

是没有意义的（如 @YBS 所示）。您应该使用其中之一。 我建议仅使用

conditionalPanel

，因为它隐藏元素而不是重新渲染它们，这样更快：

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

shinyApp(
  ui = tags$body(
    class = "skin-blue sidebar-mini control-sidebar-open",
    dashboardPage(
      options = list(sidebarExpandOnHover = TRUE),
      header = dashboardHeader(title = "Investment Advisor Monitoring - Insider Trading", titleWidth = 450),
      sidebar = dashboardSidebar(
        minified = F,
        collapsed = F,
        h4("Investment Selected"),
        conditionalPanel(
          condition = 'input.tabs=="InsiderTraining"',
          textInput("StockTicker", "Enter Stock Symbol", value = "NFLX"),
          sliderInput(
            'periods',
            'Periods',
            min = 1,
            max = 120,
            value = 60
          ),
          selectInput("mtvar", "Choose a variable", choices = colnames(mtcars))
        ),
        conditionalPanel(
          condition = 'input.tabs=="Switching"',
          textInput("StockTicker2", "Enter Stock Symbol", value = "APPL"),
          selectInput("cvar", "Choose a variable", choices = colnames(cars))
        )
      ),
      body = dashboardBody(
        h3('Results'),
        tabsetPanel(
          id = "tabs",
          tabPanel("InsiderTraining"),
          tabPanel("Switching"),
          tabPanel("Tax Loss Harvesting")
        )
      ),
      controlbar = dashboardControlbar(
        width = 300,
        h4("Insider Trading Parameters"),
        conditionalPanel(
          condition = 'input.tabs=="InsiderTraining"',
          selectInput(
            "InsiderTradingModel",
            "Insider Trading Model",
            c("Dynamic" = "Dynamic",
              "AI based" = "AIbased")
          ),
          selectInput("ivar", "Choose a variable", choices = colnames(iris))
        ),
        conditionalPanel(
          condition = 'input.tabs=="Switching"',
          selectInput(
            "InsiderTradingModel2",
            "Insider Trading Model 2",
            c("Dynamic" = "Dynamic",
              "BI based" = "BIbased")
          ),
          sliderInput(
            'periodss',
            'Periods',
            min = 1,
            max = 100,
            value = 30
          ),
          selectInput("pvar", "Choose a variable", choices = colnames(pressure))
        )
      ),
      title = "DashboardPage"
    )
  ),
  server = function(input, output, session) {}
)