Уменьшить пространство между вводом файла и текстом в Shiny

Question

Не могли бы вы помочь мне уменьшить расстояние между вводом файла и текстом в Shiny? Я хотел бы оставить что-то похожее на рисунок, который я приложил. Исполняемый код ниже.

Спасибо!

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:

How I would like it to be:

введите описание изображения здесь

Answer 1

В качестве альтернативы решению Pork Chop вы можете вставить элемент div с отрицательным знаком margin-top между двумя элементами, которые вы хотите быть ближе:

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

Answer 2

Вы можете применить к нему немного style и настроить его, используя margin-top:

library(shiny)
runApp(
    list(ui = fluidPage(
        tags$head(tags$style(' #tab {margin-top:-30px;}')),
        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)
        })
    })
)