Проблема с shinydashboard - приборная панельSidebar и приборная панель тела - PullRequest
Новая
       8

Проблема с shinydashboard - приборная панельSidebar и приборная панель тела

0 голосов
/ 10 ноября 2018

Я новичок в Shiny и Shinydashboard. Пожалуйста, обратите внимание на следующий фрагмент кода (небольшая часть огромного кода): 

dbsidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")), 
    menuItem("Rank List", icon = icon("th"), tabName = "Widgets1", badgeColor = "green"),
    menuItem("Build Your", icon = icon("th"), tabName = "Widgets2", badgeColor = "green"),
    menuItem("Groups", icon = icon("th"), tabName = "Widgets3", badgeColor = "green")

  )
)


dbBody <- dashboardBody(
  tabItems(  
    tabItem(tabName = "dashboard",
      fluidRow(

        #Pie Charts
        splitLayout(
          #cellWidths = c("50%", "50%"),
          style = "border: 1px solid silver;",
          cellWidths = 450,
          cellArgs = list(style = "padding: 6px"),
          plotlyOutput("Piechart1", width = "400px", height = "200px"),
          plotlyOutput("Piechart2", width = "400px", height = "200px"),
          plotlyOutput("Piechart3", width = "400px", height = "200px")
        )
      )
    ),
    tabItem(tabName = "Widgets1",
        #Sidebar with a slider input for number of bins
        sidebarLayout(
          sidebarPanel(
            sliderInput("TCScore","TCScore:",min = 0, max = 100, value = c(0,100))
          ),

          # Show a plot of the generated distribution
          mainPanel(
            tabPanel("Heading", plotlyOutput("tbTable"))
          )

        ),
        downloadButton('downloadData', 'Download')


    ),
    tabItem(tabName = "Widgets2", "XX"

            # #Data Table
            # sidebarLayout(
            #   sidebarPanel(
            #     sliderInput("TCCScore","TCCScore:",min = 0, max = 100, value = c(0,100)),
            #   ),
            # 
            #   # Show a plot of the generated distribution
            #   mainPanel(
            #     tabPanel("Heading", dataTableOutput("tbTable1"))
            #   )
            # 
            # ),
            # downloadButton('downloadData', 'Download')


    ),
    tabItem(tabName = "Widgets3", "third"


    )
  )
)

На приборной панели боковой панели я добавил 4 вкладки - приборная панель, Widget1, Widget2, Widget3. Первоначально для каждой из этих вкладок я использовал простой текст для рендеринга UI dashboardBody и правильно отобразил экран. Я начал заполнять каждый из этих разделов - «приборная панель», «Widget1», и дисплей работал правильно для меня. К сожалению, для "Widget2 - когда я удалил" XX "и раскомментировал код, показанный выше, пользовательский интерфейс был полностью искажен. Похоже, что основные элементы пользовательского интерфейса в dashboardBody не отображались? Может кто-нибудь сказать мне, что я делаю неправильно Пожалуйста, помогите. Извините, я не опубликовал весь рабочий код, но он слишком длинный, поэтому мне пришлось выложить только небольшой фрагмент кода.

Заранее спасибо! Не унывайте!

...