R/newdate.R

In etc5523-2020/r-package-assessment-whysptra: Launch a Covid-19 cases in Southeast Asia

#' @name newdate
#' 
#' @title Reactive function of southeast dataset
#'
#' @description This function refactor the reactive function that takes value from date range input 
#'
#'
#' @export
library(shiny)
library(dplyr)
library(magrittr)
newdate <- function(input){
  shiny::reactive({
   shiny::req(input$range)
  southeastcovid::southeast %>% dplyr::filter(dplyr::between(date, input$range[1], input$range[2]))
})
}