R/mod_2_naissance.R

In ThinkR-open/prenomsapp: A Shiny App for French Names

#' @importFrom dygraphs dygraphOutput
#' @importFrom shiny h3 tagList NS sliderInput checkboxInput
#' @importFrom shinyalert useShinyalert
#' @importFrom skeleton sk_col

mod_naissanceui <- function(id){
  ns <- NS(id)
  tagList(
    sk_col(
      ns("Choix"), width = 3,
      h3("Select a daterange"),
      sliderInput(ns("choix"), "Dates:", value = c(1900, 2017), min = 1900, max = 2017),
      checkboxInput(ns("sexe"), "Group by sex?", FALSE)
    ),
    sk_col(
      ns("Output"), width = 9,
      dygraphOutput(ns("dynaissance"))
    )
    )
  }

#' @importFrom dplyr group_by summarise filter
#' @importFrom tidyr spread
#' @importFrom dygraphs renderDygraph dygraph
#' @importFrom shiny reactiveValues observeEvent
#' @importFrom shinyalert shinyalert

mod_naissance <- function(input, output, session){
  ns <- session$ns

  output$dynaissance <- renderDygraph({
    f <- prenoms::prenoms %>%
      filter(year >=  input$choix[1], year <= input$choix[2])
    if (input$sexe){
      f %>% group_by(year, sex) %>%
        summarise(total = sum(n)) %>%
        spread(key = sex, value =total) %>%
        dygraph()
    } else {
      f %>% group_by(year) %>%
        summarise(total = sum(n)) %>%
        dygraph()
    }

  })

}