如何清理闪亮的侧边栏 UI

Question

我想让 shiny 侧边栏上的文字和 UI 更容易看清。换句话说，我想创建一个像分隔符一样的外壳。

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

例如，“数据集：”、“加载类型的数据：”和“保存数据类型：”。我怎样才能像这样更改 UI？

下面是示例代码。

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？我要你告诉我。

Answer 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)

如何清理闪亮的侧边栏 UI

How to clean up the shiny sidebar UI

gis

r

leaflet

shiny