结果必须有非零长度？答案

【问题标题】：Result must have non-zero length?结果必须有非零长度？
【发布时间】：2018-12-23 13:00:40
【问题描述】：

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

错误：结果的长度必须为 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)

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

【问题讨论】：

请提供足够的信息，以便其他人尝试您的代码并得到与您相同的错误。具体来说，请提供一个小但足够的thafinal2.0.csv 样本，如果这个小文件导致它发生变化，请调整您的错误消息。
可能很难找到日期既晚于 5 日又同时早于 3 日的数据。

标签： r subset dt

【解决方案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")

它应该可以正常工作。

【讨论】：