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

我正在尝试在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)

ui=fluidPage(
uiOutput（“绘图日期第1页”），
)
服务器=功能（输入、输出、会话）{
输出$plot\u date\u page1您犯了一个简单的错误：
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)

ui=fluidPage(
uiOutput（“绘图日期第1页”），
)
服务器=功能（输入、输出、会话）{
输出$plot\u date\u page1你一定是在开玩笑吧…非常感谢！！！它本来是作为标签的，因为它是我所有其他输入的方式，但我专门调用了标签。例如，
sliderInput（“plot\u date\u page1”，“date”，min=as.date（min\u date，“%Y-%m-%d”），max=as.date（最长日期，“%Y-%m-%d”），值=as.date（所选日期），timeFormat=“%Y%b”）