Отображение нескольких пунктов меню, каждый с элементами подменю - PullRequest
Новая
       297

Отображение нескольких пунктов меню, каждый с элементами подменю

0 голосов
/ 24 июня 2019

Я создаю веб-сайт, который включает в себя наборы данных для загрузки и графики, которые динамически визуализируют данные. Когда я использую только один пункт меню с двумя пунктами подменю, код работает отлично. Однако, когда я добавляю дополнительные пункты меню, внезапно ни один из моих графиков не отображается полностью.

Когда я добавляю второй пункт меню с подменю, он правильно отображает пункт меню и пункты подменю на боковой панели; однако ни один из графиков полностью не отображается в теле, даже те, которые были отрисованы ранее (когда был только один пункт меню). 

ui <- dashboardPage(
  dashboardHeader(title = "OpiDB", titleWidth = 100),
  dashboardSidebar(
    sidebarMenu(id = "tabs",
                menuItem(text = "About", tabName = "About", icon = icon("clipboard")),
                menuItem("VDH", tabName = "VDH", 
                         icon = icon("dashboard"),
                         menuSubItem("Data",
                                     tabName = "Data",
                                     icon = icon('database')),
                         menuSubItem("Plots",
                                     tabName = "Plots",
                                     icon = icon('line-chart'))),
                menuItem("SAMHSA", tabName = "SAMHSA",
                         icon = icon("dashboard")),
                menuItem("myGithub", href = "https://google.com", icon = icon("code"))
                # https://fontawesome.com/icons?d=gallery
    )
  ),
  dashboardBody(
    # within tabitems(), define the pages for sidebar menu items
    tabItems(
      tabItem(tabName = "About",
              h2("This is the about page!!")),
      tabItem(tabName = "VDH",
              fluidRow(
                box(plotlyOutput("SAMHSAp1")))),
      ## Using box to display plots
      tabItem(tabName = "Data",
              sidebarPanel(
                selectInput("dataset", "Select the dataset", choices = c("VDH Data")),
                br(),
                helpText(" Select the download format"),
                radioButtons("type", "Format type:",
                             choices = c("Excel (CSV)", "Text (TSV)","Text (Space Separated)", "Doc")),
                br(),
                helpText(" Click on the download button to download the dataset observations"),
                downloadButton('downloadData', 'Download')
              ),
              fluidRow(
                box(title = "Virginia Department of Heath Drug Overdose Data", tableOutput("VDHTable"), width = 6,
                    solidHeader = T, status="primary")
              )
      ),
      tabItem(tabName = "Plots",
              sidebarPanel(width = 2,
                           selectInput('var', 'Drug Type Selector', choices = c("All Opioids"=1, "Heroin"=2, "Fetanyl"=3, "Perscription Opioids"=4, "Benzos"=5, "Cocaine"=6, "All Drugs"=7, width = 2))
              ),
              mainPanel(
                fluidRow(
                  box(title = "Box with a plot", plotlyOutput("myhist", height = 375), width = 10)),
                box(title = "Summary Statistics", tableOutput("summary"), width = 4),
                box(title = "Multiple Line Graph", plotlyOutput("stackedL", height = 250), width = 8)
              )
      ),
     tabItem(tabName = "SAMHSA",
                fluidRow(
                  box(title = "Grouped Box Plot", plotlyOutput("SAMHSAp1", height = 350), width = 8)
                )
              )

    )
  )
)
'''

I expected to see the plot which I have specified in the last line of the code in the plotlyOutput. I see "SAMHSA" tab in the sidebar under the "VDH" tab but now none of the plots or data load at all. I do not receive any error message from R it just doesn't show any of my main body UI items when I click on any of the tabs. It merely shows an unrendered outline of the UI elements.
...