减少 Shiny 中 fileInput 和文本之间的空间

Question

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

谢谢!

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 解决方案的替代方案，您可以在想要靠近的两个元素之间插入带有负 margin-top 的 div 元素:

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