时间戳

首页 > 解决方案 > 警告：无法将 `start` 参数强制转换为格式为 yyyy-mm-dd 的日期字符串

r - 警告：无法将 `start` 参数强制转换为格式为 yyyy-mm-dd 的日期字符串

问题描述

我想在运行下面的 APP 时了解警告消息。出现以下消息：

Warning: Couldn't coerce the `start` argument to a date string with format yyyy-mm-dd
Warning: Couldn't coerce the `end` argument to a date string with format yyyy-mm-dd

这些消息出现是由于start和end是一样NA的daterange，但为什么是WARNING消息？有什么办法可以删除这条消息吗？我输入两者，NA因为我不希望在运行 APP 时选择任何日期。

下面的代码：

library(shiny)
library(shinythemes)
library(dplyr)

Test <- structure(list(date1 = as.Date(c("2021-11-01","2021-11-01","2021-11-01","2021-11-01")),
                       date2 = as.Date(c("2021-10-22","2021-10-22","2021-10-29","2021-10-29")), 
                       Week = c("Friday", "Friday", "Friday", "Friday"),
                       Category = c("FDE", "ABC", "FDE", "ABC"), 
                       time = c(4, 6, 6, 3)), class = "data.frame",row.names = c(NA, -4L))
ui <- fluidPage(
  
  shiny::navbarPage(theme = shinytheme("flatly"), collapsible = TRUE,
                    br(),
                    tabPanel("",
                             sidebarLayout(
                               sidebarPanel(
                                 uiOutput('daterange')
                               ),
                               mainPanel(
                                 dataTableOutput('table')
                                 
                               )
                             ))
  ))

server <- function(input, output,session) {
  
  data <- reactive(Test)
  
  output$daterange <- renderUI({
    dateRangeInput("daterange1", "Period you want to see:",
                   min   = min(data()$date1))

  })
  
  observe({updateDateRangeInput(session,"daterange1",start = NA, end = NA)})
  
  data_subset <- reactive({
    req(input$daterange1)
    req(input$daterange1[1] <= input$daterange1[2])
    days <- seq(input$daterange1[1], input$daterange1[2], by = 'day')
    Test <- filter(data(),
                   date1 %in% days | 
                     date2 %in% days)
        meanTest<-Test%>%
      group_by(Week,Category)%>%
      summarize(mean(time))
    
  })
  
  
  output$table <- renderDataTable({
    data_subset()
  })
  
}

shinyApp(ui = ui, server = server)

标签： rshiny

解决方案

那是因为您将开始日期和结束日期强制为NA. 相反，在过去定义开始和结束，而不是NA在观察者中定义开始和结束 - 如下所示。

Test <- structure(list(date1 = as.Date(c("2021-11-01","2021-11-01","2021-11-01","2021-11-01")),
                       date2 = as.Date(c("2021-10-22","2021-10-22","2021-10-29","2021-10-29")), 
                       Week = c("Friday", "Friday", "Friday", "Friday"),
                       Category = c("FDE", "ABC", "FDE", "ABC"), 
                       time = c(4, 6, 6, 3)), class = "data.frame",row.names = c(NA, -4L))

ui <- fluidPage(
  dateRangeInput("daterange0", "Period you want to see Now:",
                 start  = "2009-01-01",
                 end    = "2020-12-31",
                 min   = min(Test$date1))
)

shinyApp(ui, server = function(input, output, session) { 
  # observe({updateDateRangeInput(session,"daterange0",start = NA, end = NA)})
})

推荐阅读