2017-09-05 27 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