Otra manera de Presentar

Miguel Equihua

Xalapa, Ver., 25 de abril, 2025

Para empezar

En el manual de Quarto hay información sobre presentaciones

Ir más allá de lo básico

Te sugiero:

• Extensiones de Quarto
• El proyecto Slidecraft 101, de Emil Hvitfeldt

Esta es la segunda Diapositiva

• Contenido 1
• Contenido 2

¿Una gráfica con ggplot?

`geom_smooth()` using method = 'loess' and formula = 'y ~ x'

Diapo con un bonito mapa

library(leaflet)
library(leaflet.extras)

basemap <- leaflet() %>%
  # ubicación y nivel de zoom
  setView(lng = -96.942838, lat = 19.512198, zoom = 20) %>% 
  # Añade proveedor de maa
  addProviderTiles(
    "OpenStreetMap",
    # Dale un nombre a la capa
    group = "Mapa-OpenStreet"
  ) %>% 
  addProviderTiles("Esri.WorldImagery", 
                   group = "ESRI") %>% 
  addWMSTiles(
    "http://gaia.inegi.org.mx/NLB/tunnel/wms/wms61?",
    layers = "Ortofotos",
    options = WMSTileOptions(format = "image/png", transparent = TRUE),
    attribution = "Inegi",
    group = "Inegi-ortofoto") %>% 
  addWMSTiles(
    "http://gaia.inegi.org.mx/NLB/tunnel/wms/wms61?",
    layers = "c407",
    options = WMSTileOptions(format = "image/png", transparent = TRUE),
    attribution = "Inegi",
    group = "Humedad del suelo") 

#%>% 
#  addWMSLegend("http://gaia.inegi.org.mx/NLB/tunnel/wms/wms61",
#        'REQUEST=GetLegendGraphic&VERSION=1.1.0',
#        '&FORMAT=image/png&LAYER=c407')  


icon.fa <- makeAwesomeIcon(icon = "bicycle", markerColor = "green",
                           library = "fa",
                           iconColor = "red")

map_1 <- basemap %>%
  addAwesomeMarkers(
    lat = 19.512198,
    lng = -96.942838,
    label = "Starting point",
    icon = icon.fa
  ) %>% 
  # Layers control
  addLayersControl(
    baseGroups = c(
      "Mapa-OpenStreet",
      "ESRI",
      "Inegi-ortofoto",
      "Humedad del suelo"
    ),
    options = layersControlOptions(collapsed = FALSE)
  )

map_1

A otros temas

Poner una diapo de portada

Para personalizar la Title Slide puedes

En orden de complejidad:

• Evitar la portada automática. No pongas ni título ni autor al encabezado YAML de tu documento.
• Usar title-slide-attributes.

title-slide-attributes: 
  data-background-image: /ruta/a/imágen_para_portada.png   
  data-background-size: contain   
  data-background-opacity: "0.5"

• Substituir todo con template-partials que permite usar una plantilla html a tu gusto.

texto 10, 0, 0 texto 10, 0, 50% texto 10, 50%, 0 texto 10, 100%, 100%

Jaguar

Miguel Equihua

6-agosto-2024

Usar plugins y extensiones

• Por ejemplo, podemos querer tener un puntero disponible
• En revealjs esto requiere agregar la funcionalidad con un plugin

Cómo hacerlo

• En la pestaña de consola ejecuta el siguiente comando

quarto add quarto-ext/pointer

• Esto creará un directorio _extensions en la raíz de tu proyecto,
• Dentro de _extensions está lo necesario para usar los plugins que instales.
• Un juego completo de diapos con un tema

Configuración

• Agrega esto en el encabezado de tu presentación

title: Mi presentación 
  format: 
    revealjs: default
      pointer: pointerSize: 18       
      color: #32cd32'       

revealjs-plugins:
  - pointer`

!Listo! ¿como lo usas?

Fuente: Imagen de edmondlafoto en Pixabay

• ahora podrás prender y apagar el apuntador con la tecla q

¡Adios!