滑块输入日期，非数字到二进制问题

Question

我正在尝试在R Shiny的这些日期之间创建一个sliderinput。每次，我都会收到此错误：警告：错误：-：二进制运算符的非数字参数 [没有可用的堆栈跟踪]

并且作为应用程序中的输出，而不是滑块：non-numeric argument to binary operator

但是，我已经看到了无数这样的示例（即https://github.com/eparker12/nCoV_tracker/blob/master/app.R），所以我不明白为什么这不起作用。我拥有Lubridate，Shiny和ShinyWidgets库，并将它们更新为最新版本。

ui=fluidPage(
  uiOutput("plot_date_page1"),
)

server=function(input,output,session){

output$plot_date_page1<-renderUI({
    sliderInput("plot_date_page1","Date",
                label = h5("Select mapping date"),
                min = as.Date("1980-01-01","%Y-%m-%d"),
                max = as.Date("2020-01-01","%Y-%m-%d"),
                value = as.Date("2020-01-01"),
                timeFormat = "%y %b")
        })

}

shinyApp(ui = ui, server = server)

Answer 1

您犯了一个简单的错误：Date被隐式地视为step参数（您明确指定了label），这显然没有任何意义。您想使用Date指定什么？

ui=fluidPage(
  uiOutput("plot_date_page1"),
)

server=function(input,output,session){

  output$plot_date_page1<-renderUI({
    sliderInput("plot_date_page1",
                # step = "Date",
                label = h5("Select mapping date"),
                min = as.Date("1980-01-01","%Y-%m-%d"),
                max = as.Date("2020-01-01","%Y-%m-%d"),
                value = as.Date("2020-01-01"),
                timeFormat = "%y %b")
  })

}

shinyApp(ui = ui, server = server)