Title: | DNMyE - Comunicación |
---|---|
Description: | Herramientas para la comunicación de la Dirección Nacional de Mercados y Estadística de la Subsecretaría de Turismo de Argentina. |
Authors: | Pablo Tiscornia [aut], Juan Juara [aut], Elián Soutullo [aut], Juan Pablo Ruiz Nicolini [aut, cre] , Dirección Nacional de Mercados y Estadísticas Ministerio de Turismo y Deportes [cph] |
Maintainer: | Juan Pablo Ruiz Nicolini <[email protected]> |
License: | GPL (>= 3) |
Version: | 0.0.0.9011 |
Built: | 2024-11-01 04:55:43 UTC |
Source: | https://github.com/dnme-minturdep/comunicacion |
Función para crear y abrir un template de informes para la DNMyE
crear_informe( template = "skeleton.Rmd", save_as = template, data = list(), ignore = FALSE, open = TRUE, package = "comunicacion" )
crear_informe( template = "skeleton.Rmd", save_as = template, data = list(), ignore = FALSE, open = TRUE, package = "comunicacion" )
template |
Ruta donde se ubica el template de referencia |
save_as |
Ruta donde será guardado el nuevo informe creado |
data |
Una lista de 'data' que se le pasa al template |
ignore |
Si es TRUE, el nuevo archivo creado se incluye en |
open |
Si es TRUE se abre el archivo al mismo tiempo que se crea, para poder editarlo. |
package |
Nombre del paquete donde se encuentra el template. |
un vector lógico que indica si el archivo fue modificado
## Not run: # Nota: Al correr la siguiente sentencia el archivo `informe.Rmd` se crear_informe(save_as = "informe.Rmd", open = TRUE) ## End(Not run)
## Not run: # Nota: Al correr la siguiente sentencia el archivo `informe.Rmd` se crear_informe(save_as = "informe.Rmd", open = TRUE) ## End(Not run)
Función para crear y abrir un template de presentaciones para la DNMyE
crear_presentacion( template = "skeleton.Rmd", save_as = template, data = list(), ignore = FALSE, open = TRUE, package = "comunicacion" )
crear_presentacion( template = "skeleton.Rmd", save_as = template, data = list(), ignore = FALSE, open = TRUE, package = "comunicacion" )
template |
Ruta donde se ubica el template de referencia |
save_as |
Ruta donde será guardado el nuevo informe creado |
data |
Una lista de 'data' que se le pasa al template |
ignore |
Si es TRUE, el nuevo archivo creado se incluye en |
open |
Si es TRUE se abre el archivo al mismo tiempo que se crea, para poder editarlo. |
package |
Nombre del paquete donde se encuentra el template. |
un vector lógico que indica si el archivo fue modificado
## Not run: # Nota: Al correr la siguiente sentencia el archivo `presentacion.Rmd` se crear_informe(save_as = "presentacion.Rmd", open = TRUE) ## End(Not run)
## Not run: # Nota: Al correr la siguiente sentencia el archivo `presentacion.Rmd` se crear_informe(save_as = "presentacion.Rmd", open = TRUE) ## End(Not run)
Funcion para extraer la paleta institucional de la dnmye como colores hex
dnmye_colores(..., nombre = FALSE)
dnmye_colores(..., nombre = FALSE)
... |
Nombre o número del color. Las posibilidades son rosa, naranja, amarillo, pera, azul verde, purpura, cian, gris oscuro, gris medio y gris claro (o del 1 al 10). |
nombre |
Si es TRUE devuelve el nombre del color al que corresponde el código hex |
Paleta de colores institucionales para la Republica de Argentina
### Obtener el código hex del color institucional celeste dnmye_colores() dnmye_colores("rosa")
### Obtener el código hex del color institucional celeste dnmye_colores() dnmye_colores("rosa")
Funcion para extraer colores de la dnmye como colores hex
dnmye_paletas(palette = "cualitativa", reverse = FALSE, ...)
dnmye_paletas(palette = "cualitativa", reverse = FALSE, ...)
palette |
Nombre de la paleta de colores en dnmye_paletas. Se puede optar por cualitativa, secuencial, dicotomica o divergente |
reverse |
TRUE indica que la peleta debe ser invertida |
... |
Argumentos adicionales para definir con colorRampPalette() |
Paleta de colores institucionales para la Republica de Argentina
Función para estilizar tablas gt con theme propio
gt_theme_dnmye(gt_table, var_total = NA)
gt_theme_dnmye(gt_table, var_total = NA)
gt_table |
Tabla gt |
var_total |
Nombre de la variable que contiene la categoría "Total" |
Función para formatear números decimales como texto
lbl_decimal(x, decimales = 1)
lbl_decimal(x, decimales = 1)
x |
Número a formatear |
decimales |
Cantidad de decimales expresado como numero entero. El valor por default es 1 que recorta a 1 decimal. |
Función para formatear números enteros como texto
lbl_int(x)
lbl_int(x)
x |
Número a formatear |
Función para formatear números que expresan moneda como texto
lbl_money(x, decimales = 0, dolar = F, escala = 1, sufijo = NULL)
lbl_money(x, decimales = 0, dolar = F, escala = 1, sufijo = NULL)
x |
Número a formatear |
decimales |
Cantidad de decimales expresado como numero entero. El valor por default es 0 que no muestra decimales. |
dolar |
Lógico. Si es F (default) usa el prefijo '$', si es T usa prefijo 'US$'. |
escala |
Número entero para dividir el número a formatear. Por ejemplo, en caso de querer expresar el resultado en miles se pone 1000 |
sufijo |
Texto a agregar como sufijo, por ejemplo 'M', 'm', etc. Default es NULL que no agrega sufijo. |
Función para formatear números porcentuales como texto
lbl_percent(x, decimales = 1)
lbl_percent(x, decimales = 1)
x |
Número a formatear |
decimales |
Cantidad de decimales expresado como numero entero. El valor por default es 1 que recorta a 1 decimal. |
Permite generar automáticamente el código necesario para agrupar múltiples fragmentos de Rmarkdown en pestañas. Concatena todos los fragmentos en una cadena que luego se puede knitear y renderizar. Tomado de sknifedatar
rmdautotabs( input_data, panel_name, ..., tabset_title = "", tabset_props = ".tabset-fade .tabset-pills", chunk_props = list(echo = FALSE, fig.align = "center"), is_output_distill = TRUE )
rmdautotabs( input_data, panel_name, ..., tabset_title = "", tabset_props = ".tabset-fade .tabset-pills", chunk_props = list(echo = FALSE, fig.align = "center"), is_output_distill = TRUE )
input_data |
Ungrouped tibble with at least 2 columns, one for the title of the tabs and another with the output to be displayed. |
panel_name |
column with the ID variable. |
... |
nested columns that contain outputs to display |
tabset_title |
string title of the .tabset |
tabset_props |
string defining .tabset properties. Only works with is_output_distill = F |
chunk_props |
named list with additional parameters that correspond to all those available in rmarkdown chunks (fig.align, fig.width, ...). |
is_output_distill |
boolean. is output a distill article. |
Constructor de escala de colores de contorno (color) para la dnmye
scale_color_dnmye( palette = "cualitativa", discrete = TRUE, reverse = FALSE, ... )
scale_color_dnmye( palette = "cualitativa", discrete = TRUE, reverse = FALSE, ... )
palette |
Nombre de la paleta de colores en dnmye_paleta |
discrete |
TRUE indica que la variable es discreta |
reverse |
TRUE indica que la peleta debe ser invertida |
... |
Argumentos adicionales para definir en discrete_scale() o scale_color_gradientn(), respectivamente, cuando discrete es TRUE o FALSE |
library(ggplot2) ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) + geom_point(size = 4) + scale_color_dnmye()
library(ggplot2) ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) + geom_point(size = 4) + scale_color_dnmye()
Constructor de escala de colores de contorno (color) para la dnmye
scale_fill_dnmye( palette = "cualitativa", discrete = TRUE, reverse = FALSE, ... )
scale_fill_dnmye( palette = "cualitativa", discrete = TRUE, reverse = FALSE, ... )
palette |
Nombre de la paleta de colores en |
discrete |
TRUE (por default) indica que la variable es discreta |
reverse |
TRUE invierte el orden de asignación de colores en la paleta |
... |
Argumentos adicionales para definir en discrete_scale() o scale_color_gradientn(), respectivamente, cuando discrete es TRUE o FALSE |
datafile <- system.file("toy_evyth.rds", package = "comunicacion") toy_evyth <- readRDS(datafile) library(magrittr) toy_evyth %>% dplyr::mutate(region_destino = factor(region_destino, labels = c("Ciudad de Buenos Aires", "Provincia de Buenos Aires - Partidos del GBA", "Provincia de Buenos Aires - Resto", "Centro", "Litoral", "Norte", "Cuyo", "Patagonia"))) %>% dplyr::group_by(anio, region_destino) %>% dplyr::summarise(cantidad_personas = sum(pondera)) %>% ggplot2::ggplot(ggplot2::aes(x = anio, y = cantidad_personas, fill = region_destino)) + ggplot2::geom_col(position = ggplot2::position_dodge()) + scale_fill_dnmye(palette = "cualitativa", discrete = TRUE)
datafile <- system.file("toy_evyth.rds", package = "comunicacion") toy_evyth <- readRDS(datafile) library(magrittr) toy_evyth %>% dplyr::mutate(region_destino = factor(region_destino, labels = c("Ciudad de Buenos Aires", "Provincia de Buenos Aires - Partidos del GBA", "Provincia de Buenos Aires - Resto", "Centro", "Litoral", "Norte", "Cuyo", "Patagonia"))) %>% dplyr::group_by(anio, region_destino) %>% dplyr::summarise(cantidad_personas = sum(pondera)) %>% ggplot2::ggplot(ggplot2::aes(x = anio, y = cantidad_personas, fill = region_destino)) + ggplot2::geom_col(position = ggplot2::position_dodge()) + scale_fill_dnmye(palette = "cualitativa", discrete = TRUE)
Function for DNMYE pdf template
template_informe( logo = "0", front_img = "0", back_img = "0", img_to_dark = FALSE, logo_to_white = FALSE, other_css = NULL, ... )
template_informe( logo = "0", front_img = "0", back_img = "0", img_to_dark = FALSE, logo_to_white = FALSE, other_css = NULL, ... )
logo |
Logo |
front_img |
Front cover image |
back_img |
Back cover image |
img_to_dark |
Darken image |
logo_to_white |
Tranform logo color to white - logo must be SVG |
other_css |
Add an other CSS |
... |
Arguments passed to pagedown::html_paged |
A pagedown template
Base de datos con información del turismo interno (viajes y viajeros)
toy_evyth
toy_evyth
Un data frame con 5000 filas y 88 variables
https://datos.yvera.gob.ar/dataset/encuesta-de-viajes-y-turismo-de-los-hogares-evyth-microdatos
Función para agregar hojas institucionales a los informes generados con el template de la DNMyE
unir_paginas(input, save_as, topic = "generico")
unir_paginas(input, save_as, topic = "generico")
input |
Ruta con el PDF del informe |
save_as |
Nombre y ruta del informe a guardar |
topic |
Tema del informe. Puede ser: "calidad", "competitividad hotelera", "eoh", "sector hotelero", "internacional", "interno", "inversiones", "naturaleza", "naturaleza apn" o "generico" |
## Not run: unir_paginas(input = "eoh.pdf", save_as = "informe_eoh_junio_2022.pdf", topic = "eoh" ) ## End(Not run)
## Not run: unir_paginas(input = "eoh.pdf", save_as = "informe_eoh_junio_2022.pdf", topic = "eoh" ) ## End(Not run)