白色 space 闪亮

Question

我正在制作闪亮的应用程序，但我想知道是否可以稍微分开两个输入。类似于您在图片中看到的内容：

Expected space

我不确定我需要什么才能得到白色 space

我使用的ui如下：

datoscovid <- read_excel("/Users/jorge_hca/Desktop/Trabajo/datacovid.xlsx")
coordenadas <- read_excel("/Users/jorge_hca/Desktop/Trabajo/world_countrys.xlsx")

datoscov1 <- datoscovid |> 
  left_join(coordenadas, by = c("location" = "name")) 

theme <- bs_theme(
  bg = "#000000", fg = "#B8BCC2",
  "input-border-color" = "#a6a6a6"
)






ui <- bootstrapPage(
  absolutePanel(
    top = 10, left = 50, style = "z-index:500; text-align: right;",
    tags$h2("Los ingresos en México por deciles")
  ),
  theme = theme,
  useShinyalert(),
  tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
  leafletOutput("map", width = "100%", height = "100%"),
  absolutePanel(top = 10, right = 10, 
                fluidRow(dateInput("fecha", "Fecha a graficar:", width = 180,value = "2021-02-12"),
                         selectInput("var", "Escoge un país:", width = 180,
                                     c("Antigua y Barbuda" = "Antigua and Barbuda",
                                       "Argentina" = "Argentina",
                                       "Bahamas" = "Bahamas",
                                       "Barbados" = "Barbados",
                                       "Belice" = "Belize",
                                       "Bolivia" = "Bolivia",
                                       "Brasil" = "Brazil",
                                       "Canada" = "Canada",
                                       "Chile" = "Chile",
                                       "Colombia" = "Colombia",
                                       "Costa Rica" = "Costa Rica",
                                       "Cuba" = "Cuba",
                                       "Dominica" = "Dominica",
                                       "Republica Dominicana" = "Dominican Republic",
                                       "Ecuador" = "Ecuador",
                                       "El Salvador" = "El Salvador",
                                       "Groenlandia" = "Greenland",
                                       "Grenada" = "Grenada",
                                       "Guatemala" = "Guatemala",
                                       "Guyana" = "Guyana",
                                       "Haiti" = "Haiti",
                                       "Honduras" = "Honduras",
                                       "Jamaica" = "Jamaica",
                                       "Mexico" = "Mexico",
                                       "Nicaragua" = "Nicaragua",
                                       "Panama" = "Panama",
                                       "Paraguay" = "Paraguay",
                                       "Peru" = "Peru",
                                       "Trinidad y Tobago" = "Trinidad and Tobago",
                                       "Estados Unidos" = "United States",
                                       "Uruguay" = "Uruguay",
                                       "Venezuela" = "Venezuela"
                                     ), selected = "Mexico" )),
                echarts4rOutput("graf", height = '350px', width = '550px'),
                )
  )

有什么想法或建议吗？

Answer 1

您可以在两个输入之间插入一个空 div，高度为：

selectInput(......),
div(style = "height:100px"),
echarts4rOutput(......)

白色 space 闪亮

white space in shiny

r

leaflet

shiny