使用输入文件中的日期作为闪亮的滑块输入的最小值和最大值

Question

我有一个闪亮的应用程序，我可以在其中加载文件。我不想从我的文件中提取最小和最大日期范围，将它们用作滑块输入的输入。

这是我目前所拥有的

ui <- fluidPage(
dateRangeInput(inputId = "date", label = "Input a date range", start=textOutput("datemin") , end = textOutput("datemax"),"%d-%m-%y"))
)
server = function(input, output){
output$datemin <- renderText({as.character(as.Date(paste("01",as.character.Date(min(dataset()$date)),sep="-"),"%d-%y-%m"))})
     output$datemax <- renderText({as.character(as.Date(paste("01",as.character.Date(max(dataset()$date)),sep="-"),"%d-%y-%m"))})
}

我知道输出 datemin 和 datemax 有点棘手，这是因为数据集中的“日期”列是一个字符串，例如 2013 年 5 月的“13-05”（数据集是一个汇总版本，每月表示一些值）

编辑。

我为我的日期尝试了 3 种不同的输出以检查格式，并将它们显示为文本输出，如下所示：

用户界面

    textOutput("datemin1"),
    textOutput("datemin2"),
    textOutput("datemin3"),

服务器

 output$datemin1 <- renderText({(as.character.Date(min(dataset()$date)))})
 output$datemin2 <- renderText({as.character(as.Date(paste("01",as.character.Date(min(dataset()$datem)),sep="-"),"%d-%y-%m"))})
 output$datemin3 <- reactive({as.Date(as.yearmon(min(dataset()$datem)))})

输出如下：

datemin1 : 14-01
datemin2 : 2014-01-01
datemin3 : 0014-01-01

但是当我尝试使用输出作为滑块的输入值时，如下所示：

    sliderInput("slider1", "Date Range",
                min = textOutput("datemin2"), max=textOutput("datemax2"),
                value = textOutput("datemax2")
    ),

我收到此错误： 错误：二元运算符的非数字参数

谢谢

Answer 1

library(zoo) 包括yearmon，这是一个表示月度数据的类。请看下面的代码，它将13-05 转换为13-05-01。

library(shiny)
library(zoo)

dataset <- data.frame(minDate = c('13-05'), maxDate = c('14-05'))

if(interactive()){
  shinyApp(
    ui <- fluidPage(
      sliderInput("slider1", "Date Range",
                  min = as.Date(as.yearmon(dataset$minDate)),
                  max = as.Date(as.yearmon(dataset$maxDate)),
                  value = as.Date(as.yearmon(dataset$minDate))
                  )
      ),

    server = function(input, output){

      }
  )
}