R：闪亮-如何重新排列dateRangeInput（）小部件？

是否有一种方法可以显示

dateRangeInput（）

小部件的两个输入字段，而不是并排排列，而是像堆栈一样垂直排列，即

start=

位于

end=

顶部

我已经浏览了

shinny

文档，但找不到一种方法来完成这项工作，而且我还不太擅长CSS/Javascript

提前谢谢

更新：
为了澄清，以下是我的应用程序中的一个片段：

    app <- shinyApp(
               ui = fluidPage(
               sidebarLayout(
                   sidebarPanel(

                       width = 3,

                 # --- code based on selectInput() with choices linking to conditional panels ---

                         tags$div(title = "Request data for a given time period",
                             conditionalPanel(
                                 condition = "input.outputstyle == 'Density plot (week)'",
                                 dateRangeInput("daterange",
                                                label = "Date Range: ",
                                                start = Sys.Date() - 8,
                                                end = Sys.Date() - 1,
                                                max = Sys.Date(),
                                                format = "d M",
                                                separator = "--"))),

                  # --- more code for other conditional panels, etc. ---

                server = function(input, output) {
                          # rest of code
                         }          
       )

app
您可以使用Shiny的dateInput（）小部件来实现这一点

将宽度更改为12可以堆叠它。
谢谢。我希望具体使用
dateRangeInput（）
来实现这一点。我有使用这个特殊函数的理由。你可以通过将dateInput替换为dateRangeInput并添加一个end date变量来实现<代码>fluidRow（列（宽度=12，日期范围输入（“日期范围1”，“日期范围：”，start=“2001-01-01”，end=“2017-01-01”）），列（宽度=12，日期范围输入（“日期范围2”，“日期范围：”，start=“2001-01-01”，end=“2017-01-01”））

fluidRow(column(width = 12,dateInput("daterange1", "Date range:", start = "2001-01-01")), 
column(width = 12,dateInput("daterange2", "Date range:", end = "2017-01-01")))