sliderInput出现在侧边栏只有当选择了选项卡

我在下面的模板行创建一个Shinyapp：sliderInput出现在侧边栏只有当选择了选项卡

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)

现在我想基本上，一个sliderInput应该出现在侧面板只有当TabPanel = 'aa2'从tabItem = 'Tab2'。因此，如果选择TabPanel = 'aa1'，用户不应该看到sliderInput。

到目前为止，我已经试过类似如下：然而与此

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(sliderInput("aa5", "aa", value = 0.9, min = 0, max = 2, step=0.1)) 
        ) 
)

的sliderInput是两个tabPanel = "aa1" & tabPanel = "aa2"，这是我不想看到。

任何建议，我怎么才能让sliderInput只可见于tabPanel = "aa2"。

感谢您的指示。

来源

2017-05-28 Bogaso

你可以尝试使用''从包shinyjs'功能hide'。这将从服务器端完成。你可以关注[this]（http://deanattali.com/shinyjs/overview#demo）链接。 – SBista

@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)

来源

2017-05-29 15:22:52 Bogaso

sliderInput出现在侧边栏只有当选择了选项卡

回答

相关问题