---
title: "Date Slider Bug"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
---

```{r setup, include=FALSE, message=FALSE}
library(flexdashboard)
library(crosstalk)
library(d3scatter)
library(dplyr)
```

```{r load_data, include=FALSE}

shared_mtcars <- SharedData$new(
  mtcars %>%
    mutate(date = Sys.Date() + gear)
)

```


Inputs {.sidebar}
-------------------------------------

```{r}

filter_checkbox("cyl", "Cylinders", shared_mtcars, ~cyl, inline = TRUE)
filter_slider("date", "Date", shared_mtcars, ~date, width = "100%")

```



Row {data-width=650}
-----------------------------------------------------------------------

### Scatter Plot

```{r}

d3scatter(shared_mtcars, ~wt, ~mpg, ~factor(cyl), width="100%", height=250)

```