减少 Shiny 中文件输入和文本之间的空间

Question

你能帮我减少 Shiny 中 fileInput 和文本之间的空间吗？我想留下与我所附的图类似的东西。可执行代码如下。

谢谢你！

runApp(
  list(ui = fluidPage(
    fileInput("data", h3("Excel database import")), uiOutput("tab"),
  ),
  server = function(input, output, session){
    url <- a("Google Homepage", href="https://www.google.com/")
    output$tab <- renderUI({
      tagList("Access the page:", url)
    })
  })
)

执行shiny的时候怎么样：

我希望它是怎样的：

Answer 1

除了 Pork Chop 的解决方案之外，您可以在想要更接近的两个元素之间插入一个div带有负数的元素：margin-top

ui = fluidPage(
  fileInput("data", h3("Excel database import")), 
  div(style = "margin-top: -30px"),
  uiOutput("tab")
)