跳过指示板中2个fluidRows之间的空格

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(12, "First fluidRow")
  ),
  fluidRow(
    column(12, offset = 12)  # 创建一个空白的列，宽度为12
  ),
  fluidRow(
    column(12, "Second fluidRow")
  )
)

server <- function(input, output) {
  
}

shinyApp(ui, server)

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),  # 加载shinyjs包
  
  fluidRow(
    column(12, "First fluidRow")
  ),
  fluidRow(
    id = "spacer",  # 设置一个id用于控制可见性
    column(12, "Spacer fluidRow")
  ),
  fluidRow(
    column(12, "Second fluidRow")
  )
)

server <- function(input, output) {
  # 在应用程序启动时隐藏spacer
  shinyjs::hide("spacer")
}

shinyApp(ui, server)