日期范围不更新数据

Question

当我更改日期范围输入( " to“日期从02/01到01/01)时，数据不会改变。

---
title: "Untitled"
author: "George"
date: "12/3/2018"
output:
    flexdashboard::flex_dashboard
runtime: shiny
---

```{r global, include=FALSE}

Knitr：：opts_chunk$set(回声=假)

图书馆(柔性仪表板)

图书馆(Dplyr)

图书馆(卢布酸盐)

图书馆(Ggplot2)

日期<- c("01/01/18 1:00:00下午“，"01/01/18 1:01:00 PM"，

       "01/01/18 1:02:00 PM" ,"01/01/18 1:03:00 PM",

       "01/01/18 1:04:00 PM" ,"01/01/18 1:05:00 PM",

       "02/01/18 1:06:00 PM" ,"02/01/18 1:07:00 PM",

       "02/01/18 1:08:00 PM" ,"02/01/18 1:09:00 PM",

       "02/01/18 1:10:00 PM" ,"02/01/18 1:11:00 PM")

X <- c(1,2,3,4,5,6,7,8,9,10,11,12)

Y <- c(11，22，33，44，55，76，88，99,100,111,112)

datfr <- data.frame(日期，x，y)

datfr$date <- dmy_hms(datfr$date)

Intro
========================================================================

Inputs {.sidebar}
--------------------------------------------------------------------
```{r}

dateRangeInput(“日期选择”，“日期范围”，start ="2018-01-01“)，

           end = "2018-01-02", min = "2018-01-01",

           max = "2018-01-02", format = "yyyy-mm-dd")

Outputs
-----------------------------------------------------------------------

### Chart


```{r}

dateRange <-反应性({

datfr %>%

过滤器(日期>=输入$dateSelect2 1&日期<=输入$dateSelect2 2)

})

renderPlot({

dateRange()，aes(datfr$x，datfr$y)+

geom_point()

})

Answer 1

只需使用aes(x, y)而不是aes(datfr$x, datfr$y)，否则您将不使用来自反应性dateRange对象的值，而是始终使用来自原始datfr对象的值。

Answer 2

试着：

dateRange <- reactive({
  datfr %>%
    mutate(dates = as.Date(as.character(dates))) %>%
    filter(dates >= input$dateSelect[1] & dates <= input$dateSelect[2])
})

和aes(x, y)的建议，在这里的另一个反应。