R блестящая складная боковая панель - PullRequest
Новая
       38

R блестящая складная боковая панель

1 голос
/ 02 июля 2019

Я создал следующий шаблон приложения в R блестящий: 

 library(shiny)
 library(shinyjs)

 ui <- fluidPage(
 useShinyjs(),
 navbarPage("",actionButton("toggleSidebar", "toggle", icon = 
 icon("database")),
          tabPanel("tab",
                  div( id ="Sidebar",sidebarPanel(
                  )),mainPanel() ))))


   server <-function(input, output, session) {
   observeEvent(input$toggleSidebar, {
   shinyjs::toggle(id = "Sidebar")
  }) }


 shinyApp(ui, server)

Приложение создаст кнопку переключения на боковой панели.Кнопка должна появиться в навигационной панели, а не над боковой панелью.Фактическая кнопка переключения появляется выше рядом со вкладкой слова.Это, однако, не видно.

1 Ответ

1 голос
/ 02 июля 2019

Часть, которую вы не видите, которую вы упоминаете, на самом деле является пустым параметром заголовка, который у вас есть "". Если оставить это, как показано ниже, кнопка переключателя помещается в положение заголовка: 

 library(shiny)
 library(shinyjs)

 ui <- fluidPage(
 useShinyjs(),
 navbarPage(actionButton("toggleSidebar", "toggle", icon = 
 icon("database")),
          tabPanel("tab",
                  div( id ="Sidebar",sidebarPanel(
                  )),mainPanel() ))))


   server <-function(input, output, session) {
   observeEvent(input$toggleSidebar, {
   shinyjs::toggle(id = "Sidebar")
  }) }


 shinyApp(ui, server)
...