R：Shiny - dateRangeInput（）ウィジェットをどのように並べ替えることができますか？

Question

dateRangeInput()ウィジェットの2つの入力フィールドを並んで並べるのではなく、start = <date>の上にend = <date>のように縦に並べて表示する方法がありますか？

私はshinyのドキュメントを調べましたが、これを行う方法が見つからず、CSS/Javascript（まだ）ではあまりよくありません。

ありがとうございます。

UPDATE：
明確にするために、ここに私のアプリからの抜粋です：

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 
         }   
     ) 

Answer 1

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

あなたはシャイニーの日付入力（）ウィジェットでこれを行うことができます。

幅を12に変更すると、それを積み重ねるというトリックがあります。