相关疑难解决方法(0)

有没有办法从服务器端手动禁用/启用闪亮仪表板应用程序上的侧栏？

当我需要更多空间而不使用标题上的切换按钮时,我想自动隐藏侧边栏.

谢谢

我有一个闪亮的应用程序,在navbarPage中的tabPanel内有一个mainPanel和一个sidebarPanel.我需要一个隐藏sidebarPanel的选项,类似于:隐藏在shinydashboard中的侧边栏和https://github.com/daattali/shinyjs/issues/43.

actionButton应控制是否显示sidebarPanel或折叠.

这是代码:

library(shiny)
library(shinyjs)

ui <- fluidPage(
  navbarPage("",
             tabPanel("tab",
                      sidebarPanel(
                        useShinyjs()
                      ),

                      mainPanel(actionButton("showSidebar", "Show sidebar"),
                                actionButton("hideSidebar", "Hide sidebar")
                      )
             )
  )
)

server <-function(input, output, session) {
  observeEvent(input$showSidebar, {
    shinyjs::removeClass(selector = "body", class = "sidebarPanel-collapse")
  })
  observeEvent(input$hideSidebar, {
    shinyjs::addClass(selector = "body", class = "sidebarPanel-collapse")
  })
}

shinyApp(ui, server)

希望有人可以帮忙:)

我有一个Shiny应用程序 - 简化示例 - 我希望侧边栏在导航到标签项时动态隐藏.事实上,用户将主要通过手机连接到应用程序.

在shinydashboard默认的隐藏侧边栏的帮助下,我知道如何在到达应用程序时默认隐藏侧边栏,但始终显示侧边栏.

这是我的实际代码:

### Load librairies
library(shiny) ; library(shinydashboard) ; library(shinyjs)
library(dplyr)

### Load data
Weather <- c("cold", "rain", "snow","heat","sun")
Answer <- c("Take a coat","Take an umbrella","Take gloves","Take a swimsuit","Take solair cream")
Mydata <- data.frame( Weather, Answer, stringsAsFactors = FALSE)

remove(Weather, Answer)

### Shiny
Entete <- dashboardHeader(title = "My app")

BarreLaterale <- dashboardSidebar(
  sidebarMenu(menuItem(text = "Home", tabName = "MyHome", icon = icon("home"))),
  sidebarMenu(menuItem(text = "My search", tabName = "Search", icon = …