2017-09-05 63 views
2

有沒有辦法顯示dateRangeInput()小部件的兩個輸入字段,而不是並排排列,它們是垂直排列的,就像一個堆棧,即start = <date>頂部的end = <date>R:閃亮 - 我如何重新排列dateRangeInput()小部件?

我瀏覽過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 
         }   
     ) 

回答

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

你可以用閃亮的dateInput()控件做到這一點。

將寬度更改爲12可以實現堆疊。

+0

謝謝。我正在尋找'dateRangeInput()'_specifically_做到這一點。我有使用這個特殊功能的理由。 –

+0

您可以通過將dateInput替換爲dateRangeInput並添加結束日期變量來實現。 (width = 12,dateRangeInput(「daterange1」,「Date range:」,start =「2001-01-01」,end =「2017-01-01」)), column(width = 12, dateRangeInput(「daterange2」,「Date range:」,start =「2001-01-01」,end =「2017-01-01」)))' – Uswer721