In d4t4tur/comunicacion: DNMyE - Comunicación
class:inverse, middle
background-image: url(https://tableros.yvera.tur.ar/recursos/logos_institucionales/sec_turismo_blanco.png)
background-position: 95% 95%
background-size: 30%
Acá va un título
Y acá un subtitulo
Dirección Nacional de Mercados y Estadística
library(xaringanExtra)
# LOGO COLOR EN PAGs INTERNAS
xaringanExtra::use_logo(image_url = "https://tableros.yvera.tur.ar/recursos/logos_institucionales/sec_turismo_azul.png",
position = css_position(top = "1em", right = "1em"),
height = "15%", width = "15%")
# BARRA DE PROGRESO DE PRESENTACION
xaringanExtra::use_progress_bar(color = "#252C4F")
# LAPIZ
xaringanExtra::use_scribble()
# EXPLORADOR DE SLIDES
xaringanExtra::use_tile_view()
# HABILITAR WEBCAM
xaringanExtra::use_webcam()
library(xaringanthemer) #EVAL FALSE
library(comunicacion)
style_mono_light(outfile = "dnmye_theme.css", # CSS FILE
# FONTS
header_font_google = google_font('Lora'),
text_font_google = google_font('Montserrat'),
code_font_google = google_font('IBM Plex Mono'),
# COLORES
base_color = "#252C4F",
code_inline_color = dnmye_colores("rosa"),
inverse_link_color = "#3B4449",
background_color = "#FFFFFF",
title_slide_background_image = "sec_turismo_blanco.png",
title_slide_background_position = "95% 5%",
title_slide_background_size = "200px", footnote_color = "#3B4449", link_color = "3B4449",text_slide_number_font_size = "16px"
)
options(htmltools.dir.version = FALSE)
knitr::opts_chunk$set(
fig.width=9, fig.height=3.5, fig.retina=3,
out.width = "100%",
cache = FALSE,
echo = TRUE,
message = FALSE,
warning = FALSE,
fig.show = TRUE,
hiline = TRUE
)
```{css, echo=FALSE}
div.my-footer {
background-color: white;
position: absolute;
bottom: 0px;
left: 0px;
height: 40px;
width: 100%;
}
div.my-footer span {
font-size: 16px;
color: #3B4449;
position: absolute;
left: 15px;
bottom: 6px;
}
---
layout: true
<div class="my-footer"><span>DIRECCIÓN NACIONAL DE MERCADOS Y ESTADÍSTICA <a href="https://yvera.tur.ar/sinta"> - <b>www.yvera.tur.ar/sinta</a></b></span></div>
---
## Tipografía
El texto puede ser **negrita**, _itálica_, ~~tachado~~, o `codigo_en_linea`.
[Un link a otra filmina](#colores).
### Lorem Ipsum
Dolor imperdiet nostra sapien scelerisque praesent curae metus facilisis dignissim tortor.
Lacinia neque mollis nascetur neque urna velit bibendum.
Himenaeos suspendisse leo varius mus risus sagittis aliquet venenatis duis nec.
- Dolor cubilia nostra nunc sodales
- Consectetur aliquet mauris blandit
- Ipsum dis nec porttitor urna sed
---
name: colores
## Colores
- <span style="color: var(--text-color)">Color de texto</span>
- <span style="color: var(--header-color); font-family: var(--header-font-family);">Color de título</span>
- <span style="color: var(--link-color)">Color de links</span>
- <span style="color: var(--text-bold-color); font-weight: bold;">Color de negrita</span>
- `color de codigo_en_linea`
---
# TITULO DESTACADO o
#SEPARADORES A DOS LINEAS `#`
## TITULO DE FILMINA `##`
### SUB TITULO DE FIMLIMINA `###`
#### Texto Destacado `####`
Esto esto es texto normal. Solo usar encabezados del 1-4.
---
class: inverse center middle
# SEPARADOR TEMATICO
--
class: inverse center middle
UN [LINK]()
---
<br>
## Bloques
---
<br>
### Citas
> Esto es una cita seguida de un título.
>
> **Autor Importante (2022)**
---
<br>
### Bloques de código
#### R
```r
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()) +
comunicacion::scale_fill_dnmye()-> plot_evyth
+ código R
dplyr::starwars %>% dplyr::slice_sample(n = 4)
cli::cli_alert_success("Funciona!")
--
message("Es solo un mensaje")
--
warning("Esto podría ser malo...")
--
stop("Falló! Arreglame!!!")
Tablas
tibble::as_tibble(mtcars)
knitr::kable(head(mtcars), format = 'html')
DT::datatable(head(mtcars), fillContainer = FALSE, options = list(pageLength = 4))
Listas
.pull-left[
Lista sin ordenar:
- Item foo
- Item bar
- Item baz
- Item zip
]
.pull-right[
Lista ordenada:
- Item one
- Item two
- Item three
- Item four
]
Anidada:
- level 1 item
- level 2 item
- level 2 item
- level 3 item
- level 3 item
- level 1 item
- level 2 item
- level 2 item
- level 2 item
- level 1 item
- level 2 item
- level 2 item
- level 1 item
Combinadndo los dos tipos de listas (ol , ul)
- level 1 item (ul)
- level 2 item (ol)
- level 2 item (ol)
- level 3 item (ul)
- level 3 item (ul)
- level 1 item (ul)
- level 2 item (ol)
- level 2 item (ol)
- level 3 item (ul)
- level 3 item (ul)
- level 4 item (ol)
- level 4 item (ol)
- level 3 item (ul)
- level 3 item (ul)
- level 1 item (ul)
Plots
plot_evyth +
ggplot2::theme_void()
layout: false
Imagenes y notas al pie
.footnote[GitHub Octocat]
2 Img
.pull-left[
]
.pull-right[
]
class: center, middle
DNMyE
Basado en código y ejemplos de:
xaringan
gadenbuie/xaringanthemer
remark.js, knitr, and R Markdown.
d4t4tur/comunicacion documentation built on Aug. 14, 2024, 12:14 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
class:inverse, middle
background-image: url(https://tableros.yvera.tur.ar/recursos/logos_institucionales/sec_turismo_blanco.png) background-position: 95% 95% background-size: 30%
Acá va un título
Y acá un subtitulo
Dirección Nacional de Mercados y Estadística
library(xaringanExtra) # LOGO COLOR EN PAGs INTERNAS xaringanExtra::use_logo(image_url = "https://tableros.yvera.tur.ar/recursos/logos_institucionales/sec_turismo_azul.png", position = css_position(top = "1em", right = "1em"), height = "15%", width = "15%") # BARRA DE PROGRESO DE PRESENTACION xaringanExtra::use_progress_bar(color = "#252C4F") # LAPIZ xaringanExtra::use_scribble() # EXPLORADOR DE SLIDES xaringanExtra::use_tile_view() # HABILITAR WEBCAM xaringanExtra::use_webcam()
library(xaringanthemer) #EVAL FALSE library(comunicacion) style_mono_light(outfile = "dnmye_theme.css", # CSS FILE # FONTS header_font_google = google_font('Lora'), text_font_google = google_font('Montserrat'), code_font_google = google_font('IBM Plex Mono'), # COLORES base_color = "#252C4F", code_inline_color = dnmye_colores("rosa"), inverse_link_color = "#3B4449", background_color = "#FFFFFF", title_slide_background_image = "sec_turismo_blanco.png", title_slide_background_position = "95% 5%", title_slide_background_size = "200px", footnote_color = "#3B4449", link_color = "3B4449",text_slide_number_font_size = "16px" )
options(htmltools.dir.version = FALSE) knitr::opts_chunk$set( fig.width=9, fig.height=3.5, fig.retina=3, out.width = "100%", cache = FALSE, echo = TRUE, message = FALSE, warning = FALSE, fig.show = TRUE, hiline = TRUE )
```{css, echo=FALSE} div.my-footer { background-color: white; position: absolute; bottom: 0px; left: 0px; height: 40px; width: 100%; } div.my-footer span { font-size: 16px; color: #3B4449; position: absolute; left: 15px; bottom: 6px; }
--- layout: true <div class="my-footer"><span>DIRECCIÓN NACIONAL DE MERCADOS Y ESTADÍSTICA <a href="https://yvera.tur.ar/sinta"> - <b>www.yvera.tur.ar/sinta</a></b></span></div> --- ## Tipografía El texto puede ser **negrita**, _itálica_, ~~tachado~~, o `codigo_en_linea`. [Un link a otra filmina](#colores). ### Lorem Ipsum Dolor imperdiet nostra sapien scelerisque praesent curae metus facilisis dignissim tortor. Lacinia neque mollis nascetur neque urna velit bibendum. Himenaeos suspendisse leo varius mus risus sagittis aliquet venenatis duis nec. - Dolor cubilia nostra nunc sodales - Consectetur aliquet mauris blandit - Ipsum dis nec porttitor urna sed --- name: colores ## Colores - <span style="color: var(--text-color)">Color de texto</span> - <span style="color: var(--header-color); font-family: var(--header-font-family);">Color de título</span> - <span style="color: var(--link-color)">Color de links</span> - <span style="color: var(--text-bold-color); font-weight: bold;">Color de negrita</span> - `color de codigo_en_linea` --- # TITULO DESTACADO o #SEPARADORES A DOS LINEAS `#` ## TITULO DE FILMINA `##` ### SUB TITULO DE FIMLIMINA `###` #### Texto Destacado `####` Esto esto es texto normal. Solo usar encabezados del 1-4. --- class: inverse center middle # SEPARADOR TEMATICO --
class: inverse center middle
UN [LINK]() --- <br> ## Bloques --- <br> ### Citas > Esto es una cita seguida de un título. > > **Autor Importante (2022)** --- <br> ### Bloques de código #### R ```r 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()) + comunicacion::scale_fill_dnmye()-> plot_evyth
+ código R
dplyr::starwars %>% dplyr::slice_sample(n = 4)
cli::cli_alert_success("Funciona!")
--
message("Es solo un mensaje")
--
warning("Esto podría ser malo...")
--
stop("Falló! Arreglame!!!")
Tablas
tibble::as_tibble(mtcars)
knitr::kable(head(mtcars), format = 'html')
DT::datatable(head(mtcars), fillContainer = FALSE, options = list(pageLength = 4))
Listas
.pull-left[
Lista sin ordenar:
- Item foo
- Item bar
- Item baz
- Item zip ]
.pull-right[
Lista ordenada:
- Item one
- Item two
- Item three
- Item four ]
Anidada:
- level 1 item
- level 2 item
- level 2 item
- level 3 item
- level 3 item
- level 1 item
- level 2 item
- level 2 item
- level 2 item
- level 1 item
- level 2 item
- level 2 item
- level 1 item
Combinadndo los dos tipos de listas (ol , ul)
- level 1 item (ul)
- level 2 item (ol)
- level 2 item (ol)
- level 3 item (ul)
- level 3 item (ul)
- level 1 item (ul)
- level 2 item (ol)
- level 2 item (ol)
- level 3 item (ul)
- level 3 item (ul)
- level 4 item (ol)
- level 4 item (ol)
- level 3 item (ul)
- level 3 item (ul)
- level 1 item (ul)
Plots
plot_evyth + ggplot2::theme_void()
layout: false
Imagenes y notas al pie
.footnote[GitHub Octocat]
2 Img
.pull-left[
]
.pull-right[
]
class: center, middle
DNMyE
Basado en código y ejemplos de:
xaringan
gadenbuie/xaringanthemer
remark.js, knitr, and R Markdown.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.