r语言 - 结果必须具有非零长度

Question

我被要求为一家公司的实习生做编码项目，但我无法完成。但是我没有得到我想要完成的工作。到达的错误是：

错误：结果的长度必须为 12813，而不是 0

这是我的代码：

library(shiny)
library(dplyr)
stock<-read.csv("thafinal2.0.csv")
ui <- fluidPage(
dateInput(inputId = 'date1',label = 'Start',value = "2017-08-20"),
dateInput(inputId = 'date2',label = 'Stop',value = "2018-08-20"),
tabPanel("stock", DT::dataTableOutput("table")))
server <- function(input, output) {
output$table<-DT::renderDataTable({
stock %>%
filter(stock$date >= "2018-01-05" & stock$date <= "2018-01-03")
stock })}
shinyApp(ui, server)

我想选择我想要范围内的数据。

Answer 1

答案是Dason。问题出在代码中：

filter(stock$date >= "2018-01-05" & stock$date <= "2018-01-03")

您同时过滤晚于"2018-01-05"且早于"2018-01-03"的日期，此类操作结果为长度为 0 的空集。

如果更改为：

filter(stock$date <= "2018-01-05" & stock$date >= "2018-01-03")

它应该工作正常。