inst/app/global.R

In RladiesQro/ViolenciaContraMujeres: Aplicación Shiny para explorar los datos de violencia en México

library(ggplot2)
library(glue)
library(leaflet)
library(lubridate)
library(plotly)
library(scales)
library(shiny)
library(shinydashboard)
library(shinyWidgets)
library(stringr)
library(sf)
library(purrr)
library(hrbrthemes)
library(ViolenciaContraMujeres)


violencia_meses_con_datos <- ComparaMesesConDatos(datos_violencia, poblacion_inegi_2015, "Violencia familiar")
vector_estados <- datos_violencia %>%
  select(Entidad) %>%
  distinct() %>%
  arrange(Entidad) %>%
  mutate(Entidad = as.character(Entidad))

vector_tipo_violencia  <- datos_violencia %>%
  select(Tipo) %>%
  distinct() %>%
  arrange(Tipo) %>%
  pull()