Ошибка: Результат должен иметь длину 12813, а не 0? - PullRequest
Новая
       7

Ошибка: Результат должен иметь длину 12813, а не 0?

0 голосов
/ 23 декабря 2018

Меня попросили сделать проект кодирования для работы в качестве стажера в компании, но я не смог завершить его.Однако я не получил работу, которую я хотел просто завершить.Появляется ошибка:

Ошибка: результат должен иметь длину 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)

Я хочувыбрать данные в диапазоне, который я хочу.

1 Ответ

0 голосов
/ 25 декабря 2018

Ответ отправляется Дейсону.Проблема в коде: 

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")

Все должно работать нормально.

...