R Shiny создает список пунктов меню и подпунктов - PullRequest
Новая
       8

R Shiny создает список пунктов меню и подпунктов

0 голосов
/ 13 февраля 2019

Я пытаюсь создать selectInput со всеми доступными пунктами меню на боковой панели, но пока что могу заставить его отображать только текущий выбор меню.

Ниже приведен код: 

library(shiny)
library(shinydashboard)

rm(list=ls())

header <- dashboardHeader()
sidebar <- dashboardSidebar(
  sidebarMenu(id = "menuChoice",
              menuItem("Resources", tabName = "ResourcesMenu", icon = icon("leaf"),
                       menuSubItem("Filter Selection", tabName = "LayoutSubMenu", icon = icon("angle-double-right")),
                       menuSubItem("Test", tabName = "Test2", icon = icon("globe")),
                       menuSubItem("Test 3", tabName = "Test3", icon = icon("wrench"))
              ),
              menuItem("Trial Run", tabName = "TR", icon = icon("star"))
  )
)

body <- dashboardBody(
  uiOutput("TabSelect")
)


ui <- dashboardPage(header, sidebar, body)

server <- function(input, output, session) {

  output$TabSelect <- renderUI ({
                     selectInput(inputId = "LoadTab", "Available Tabs",
                                 choices = c(input$menuChoice)  
                     )
  })



}

shinyApp(ui, server)

Я бы хотел, чтобы selectInput показал LayoutSubMenu, Test2, Test3, TR.Имя, отображаемое во вкладке, будет также идеально подходить Filter Selection, Test, Test 3, Trial Run как отдельное selectInput.

...