Shiny sliderInput仅在选择选项卡时显示在侧栏中

我正在按照以下模板创建Shinyapp：

library(shinydashboard)

sidebar <- dashboardSidebar(
  sidebarMenu(id="tabs",
              menuItem("Tab1", tabName="Tab1", selected=TRUE),
              menuItem("Tab2", tabName = "Tab2")
  ),

  conditionalPanel("input.tabs=='Tab1'",
                   fluidRow()
                   ),
  conditionalPanel("input.tabs=='Tab2'",
                   fluidRow()
                   )
  )


body <- dashboardBody(
  tabItems(

    tabItem(tabName = "Tab1",
            fluidRow( sliderInput("aa", "aa", value = 0.9, min = 0, max = 2, step=0.1))
    ),
     tabItem(tabName = "Tab2",
           fluidRow(navbarPage(id = 'ab', title = "", 
                        tabPanel(title = "aa1", value = 'aa1', fluidRow()),
                        tabPanel(title = "aa2", value = 'aa2', fluidRow())))
    )))


ui = dashboardPage(
  dashboardHeader(title = "My tab"),
  sidebar,
  body
)

server = function(input, output) {}

shinyApp(ui = ui, server = server)

但是，有了此功能，我不想看到的是，无论是

tabPanel=“aa1”

还是

tabPanel=“aa2”

，都可以看到滑块输入

任何建议，如何使sliderInput仅对

tabPanel=“aa2”

可见

---

谢谢你的指点

@SBista谢谢你的指点。下面是更新的代码。谢谢

library(shinydashboard)
library(shinyjs)

sidebar <- dashboardSidebar(
  sidebarMenu(id="tabs",
              menuItem("Tab1", tabName="Tab1", selected=TRUE),
              menuItem("Tab2", tabName = "Tab2")
  ),

  conditionalPanel("input.tabs=='Tab1'",
                   fluidRow()
                   ),
  conditionalPanel("input.tabs=='Tab2'",
                   fluidRow(useShinyjs(),
                    column(12, sliderInput("aa4", "aa", value = 0.9, min = 0, max = 2, step=0.1)))
                   )
  )


body <- dashboardBody(
  tabItems(

    tabItem(tabName = "Tab1",
            fluidRow( sliderInput("aa", "aa", value = 0.9, min = 0, max = 2, step=0.1))
    ),
     tabItem(tabName = "Tab2",
           fluidRow(navbarPage(id = 'ab', title = "", 
                        tabPanel(title = "aa1", value = 'aa1', fluidRow()),
                        tabPanel(title = "aa2", value = 'aa2', fluidRow())))
    )))


ui = dashboardPage(
  dashboardHeader(title = "My tab"),
  sidebar,
  body
)

server = function(input, output) {

observe(toggle(id = "aa4", condition = ifelse(input$ab == 'aa2', TRUE, FALSE)))

}

shinyApp(ui = ui, server = server)

库（ShinydaShashboard）
图书馆（shinyjs）
您可以尝试从
shinyjs
包中使用
hide
函数。这将从服务器端完成。你可以点击链接。
library(shinydashboard)
library(shinyjs)

sidebar <- dashboardSidebar(
  sidebarMenu(id="tabs",
              menuItem("Tab1", tabName="Tab1", selected=TRUE),
              menuItem("Tab2", tabName = "Tab2")
  ),

  conditionalPanel("input.tabs=='Tab1'",
                   fluidRow()
                   ),
  conditionalPanel("input.tabs=='Tab2'",
                   fluidRow(useShinyjs(),
                    column(12, sliderInput("aa4", "aa", value = 0.9, min = 0, max = 2, step=0.1)))
                   )
  )


body <- dashboardBody(
  tabItems(

    tabItem(tabName = "Tab1",
            fluidRow( sliderInput("aa", "aa", value = 0.9, min = 0, max = 2, step=0.1))
    ),
     tabItem(tabName = "Tab2",
           fluidRow(navbarPage(id = 'ab', title = "", 
                        tabPanel(title = "aa1", value = 'aa1', fluidRow()),
                        tabPanel(title = "aa2", value = 'aa2', fluidRow())))
    )))


ui = dashboardPage(
  dashboardHeader(title = "My tab"),
  sidebar,
  body
)

server = function(input, output) {

observe(toggle(id = "aa4", condition = ifelse(input$ab == 'aa2', TRUE, FALSE)))

}

shinyApp(ui = ui, server = server)