把fluidPage改成fixedPage后,“日期范围”整体靠左了点,但也还不是顶格
fixedPage(
title = "Hello Shiny!",
fixedRow(
column(width = 6,
dateRangeInput("daterange", "日期范围:",
start = "2001-01-01",
end = "2010-12-31")
),
column(width = 6,
selectInput("variable", "变量:",
c("Cylinders" = "cyl",
"Transmission" = "am",
"Gears" = "gear"))
)
)
)
fluidPage(
title = "Hello Shiny!",
fluidRow(
column(width = 4,
dateRangeInput("daterange2", "日期范围:",
start = "2001-01-01",
end = "2010-12-31")
),
column(width = 4,
selectInput("variable2", "变量:",
c("Cylinders" = "cyl",
"Transmission" = "am",
"Gears" = "gear"))
)
)
)