Categorías del Blog

```{r} #| echo: false library(tidyverse) library(htmltools)

Obtener todas las categorías

categories <- rmarkdown::metadata\(listing\)categories %>% unlist() %>% unique() %>% sort()

Crear enlaces para cada categoría

category_links <- map(categories, ~{ tags$a( href = paste0(“#category=”, .x), class = “badge bg-primary me-1”, .x ) })

Renderizar los enlaces

div(class = “d-flex flex-wrap”, category_links)