скрыть табель в R блестящий - PullRequest
Новая
       16

скрыть табель в R блестящий

0 голосов
/ 26 июня 2018

Ребята.У меня есть вопрос, как скрыть tabpanel в R блестящий.Я прочитал ссылку здесь.https://shiny.rstudio.com/reference/shiny/1.0.5/showTab.html

Затем я пересмотрел свой код на основе этой ссылки, но он не работал.Вот часть моего кода: 

  ui <- fluidPage(

sidebarLayout(
  sidebarPanel(
    conditionalPanel(
    condition = "input.tabselected == 1",
    ....
   actionButton("hideTab","Hide Tab"),
   actionButton("showTab","Show Tab")
  ),

  mainPanel(
      tabsetPanel(type = "tabs",
                tabPanel(title = "D", 
                         value=1),
                tabPanel(title = "S", 
                         value=3),
                tabPanel(title = "Y", 
                         value=2),
                id = "tabselected")
  )

... 

      server <- function(input, output) {
  hideTab(inputId = "tabselected", target = "Y")
})

}

Есть ли какое-либо отношение к conditionPanel?или могут быть другие причины?Спасибо.

1 Ответ

0 голосов
/ 12 января 2019

Значение value, предоставленное hideTab, неверно: 

ui <- fluidPage(

  sidebarLayout(
    sidebarPanel(
      conditionalPanel(
        condition = "input.tabselected == 1",
        actionButton("hideTab","Hide Tab"),
        actionButton("showTab","Show Tab")
      )
    ),
      mainPanel(
        tabsetPanel(type = "tabs",
                    tabPanel(title = "D", 
                             value=1),
                    tabPanel(title = "S", 
                             value=3),
                    tabPanel(title = "Y", 
                             value=2),
                    id = "tabselected")
      )
  )
)

server <- function(input, output) {
  observeEvent(input$hideTab, {
    hideTab(inputId = "tabselected", target = "2")
  })
}

shinyApp(ui = ui, server = server)
...