Leafletoutput在dashboardBody中不显示

Question

嗨，我正在使用shinydashboard为一些光栅文件建立一些可视化。我正在使用leafletOutput来显示地图。

在第一个名为“KmeansOutput”的tabItem下，我想显示小叶地图。当我不包含selectInput时，它会显示地图，但一旦我包含selectInput，它就不会显示地图。我不确定哪一部分出了问题。提前感谢！！

以下是代码的UI部分：

library(shinydashboard)
library(leaflet)


sidebar <- dashboardSidebar(
    sidebarMenu(
        menuItem("KmeansOutput", tabName = "kmeans", icon = icon("kmeans"),
                 selectInput("run1",
                             "SoilAllWeatherAll",
                             choices = c('4' = 1, '5' = 2),
                             multiple = TRUE)
),
        menuItem("HistoricalWeather", icon = icon("weather"), tabName = "weather"),
        menuItem("SoilMap", icon = icon("soil"), tabName = "soil")
    )
)

body <- dashboardBody(
    tabItems(
        tabItem(tabName = "kmeans",
                leafletOutput("map", height = 700)
        ),

        tabItem(tabName = "weather",
                h2("weather")),
        tabItem(tabName = "soil",
                h2('soil'))
    )
)

    # Put them together into a dashboardPage
ui <- dashboardPage(
        dashboardHeader(title = "Genome Prediction"),
        sidebar,
        body)

下面是服务器：

server <- function(input, output) {

    output$map <- renderLeaflet({
        leaflet() %>%
            addTiles() 
    })
}

shinyApp(ui, server)

Answer 1

您需要向k-means siderbar项添加一个子项，如下所示。

sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("KmeansOutput", #icon = icon("kmeans"),
             menuSubItem(
               "K-Means Map", tabName = "kmeans", icon = icon("calendar")
             ),
             selectInput("run1",
                         "SoilAllWeatherAll",
                         choices = c('4' = 1, '5' = 2),
                         multiple = TRUE)
    ),
    menuItem("HistoricalWeather", tabName = "weather"), #icon = icon("weather"),
    menuItem("SoilMap", tabName = "soil")#, icon = icon("soil")
  )
)