如何清理闪亮的侧边栏 UI答案

【问题标题】：How to clean up the shiny sidebar UI如何清理闪亮的侧边栏 UI
【发布时间】：2020-12-28 05:21:31
【问题描述】：

我想让闪亮侧边栏上的文本和用户界面更容易看到。换句话说，我想创建一个像分隔符一样的外壳。

具体来说，https://shiny.rstudio.com/gallery/radiant.html 我想创建一个开发的侧边栏。

例如，“数据集：”、“加载数据类型：”和“将数据保存到类型：”。我怎样才能改变这样的用户界面？

以下是示例代码。

library(shiny)
library(leaflet)
library(leaflet.extras)

ui <- fluidPage(
  titlePanel("ShinyApp"),
  sidebarLayout(
    sidebarPanel(
      h3("Separate1"),
      h3("Separate2"),
      h3("Separate3"),
      h3("Separate4"),
      h3("Separate5"),
      
    ),
    
    mainPanel(
      leafletOutput('maps')
    )
  )
)

server <- function(input, output, session) {
  
  output$maps <- renderLeaflet({leaflet()%>%addTiles()})
  
}
shinyApp(ui, server)

我知道要编辑的部分是ui.r的部分。侧边栏上显示了separate1 到separate5。如 URL 中所示，如何将附件添加到separate1 到separate5？我要你告诉我。

【问题讨论】：

标签： r shiny leaflet gis

【解决方案1】：

这样可以吗？

library(shiny)
library(leaflet)

ui <- fluidPage(
    titlePanel("ShinyApp"),
    sidebarLayout(
        sidebarPanel(
            div(style='border: 1px solid grey; margin:1px;',
                h3("Separate1")
            ),
            div(style='border: 1px solid grey; margin:1px;',
                h3("Separate2")
            ),
            div(style='border: 1px solid grey; margin:1px;',
                h3("Separate3")
            ),
            div(style='border: 1px solid grey; margin:1px;',
                h3("Separate4")
            ),
            div(style='border: 1px solid grey; margin:1px;',
                h3("Separate5")
            )
            
        ),
        mainPanel(
            leafletOutput('maps')
        )
    )
)

server <- function(input, output, session) {
    
    output$maps <- renderLeaflet({
        leaflet() %>%
            addTiles()
    })
    
}
shinyApp(ui, server)

【讨论】：

感谢您的回答。我将以它为例。