From c969ef89e67ef4eb28ae8f4db9c914824e3ac227 Mon Sep 17 00:00:00 2001 From: Joan Maspons Date: Mon, 11 Aug 2025 20:47:54 +0200 Subject: [PATCH 1/3] =?UTF-8?q?Funci=C3=B3=20gen=C3=A8rica=20missatge=5Fre?= =?UTF-8?q?sum=5Finformes()=20per=20simplificar=20codi=20dels=20informes?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- NAMESPACE | 3 +- R/telegram.R | 62 ++++++++++++++++++++++++++++++++-- README.Rmd | 2 +- man/envia_missatge_telegram.Rd | 24 +++++++++++++ man/missatge_resum_informes.Rd | 23 +++++++++++++ man/missatge_telegram.Rd | 19 ----------- web/internacional.qmd | 19 ++++------- web/limits.qmd | 19 ++++------- web/localitats.qmd | 17 +++------- 9 files changed, 129 insertions(+), 59 deletions(-) create mode 100644 man/envia_missatge_telegram.Rd create mode 100644 man/missatge_resum_informes.Rd delete mode 100644 man/missatge_telegram.Rd diff --git a/NAMESPACE b/NAMESPACE index f525468a..e1b01b87 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -4,6 +4,7 @@ export(canvis_html) export(cerca_versio_canvis) export(comprova_canvis_osm) export(consulta_etiquetes_osm) -export(missatge_telegram) +export(envia_missatge_telegram) +export(missatge_resum_informes) export(modifica_etiquetes_osm) export(versio_canvis_html) diff --git a/R/telegram.R b/R/telegram.R index b450cbb1..69108a06 100644 --- a/R/telegram.R +++ b/R/telegram.R @@ -1,13 +1,71 @@ -#' Envia un missatge a al grup de Telegram de la `Comunitat en catal\u00E0 d'OpenStreetMap` + +#' Crea missatge de resum d'informes +#' +#' @param ... objectes produits per [comprova_canvis_osm()]. Si els parametres tenen nom, s'usarà com a nom de la fila +#' de la taula resum. Sinó, s'usarà el nom de la variable. +#' @param pagina_informe nom de la pàgina de l'informe per generar l'enllaç a la web. +#' @param etiquetes Si no és `NULL`, quan es fa el recomte de canvis, només té en compte les etiquetes que quadren amb +#' aquesta exrpessió regular. +#' +#' @returns Text en format Markdown amb un missatge resum dels informes. +#' @export +#' +#' @examples +missatge_resum_informes <- function(..., pagina_informe, etiquetes){ + canvis_taules <- list(...) + if (is.null(names(canvis_taules))) { + names(canvis_taules) <- sapply(substitute(...()), deparse) + } + + n_canvis <- if (missing(etiquetes)) { + sapply(canvis_taules, function(x) { + nrow(x$change_count) + }) + } else { + sapply(canvis_taules, function(x) { + df <- x$comparison_table_diff_numbers + sum(apply(df[, grep(etiquetes, names(df))], 1, function(y) any(y != 0))) + }) + } + + names(n_canvis) <- names(canvis_taules) + n_obj <- setNames(vapply(canvis_taules, function(x) x$change_summary[["old_obs"]], FUN.VALUE = 1), nm = names(n_canvis)) + df <- data.frame(dif = n_canvis, obj = n_obj) + # n_obj <- n_obj[n_canvis > 0] + # n_canvis <- n_canvis[n_canvis > 0] + total_canvis <- sum(n_canvis) + + missatge <- paste0("⚠️ Hi ha ", total_canvis, if (total_canvis > 1) " objectes" else " objecte amb canvis") + if (missing(pagina_informe)) { + missatge <- paste0(missatge, ".") + } else { + missatge <- paste0( + missatge, " a [", pagina_informe, "](https://osm-catalan.github.io/monitorOSM/web/", pagina_informe, ".html)." + ) + } + missatge <- paste0(missatge, "`\n", paste(capture.output(print(knitr::kable(df))), collapse = "\n"), "\n`") + + return(missatge) +} + + +#' Envia un missatge a un xat de Telegram +#' +#' Aquest repositori està configurat per enviar missatges al grup de Telegram de la +#' `Comunitat en catal\u00E0 d'OpenStreetMap` amb el bot `monitorOSM_bot`. #' #' @param missatge Text del missatge. #' @param parse_mode El missatge s'interpreta com a `Markdown` o `HTML`. #' +#' On i amb quin bot s'envia el missatge es configura amb les variables d'entorn `R_TELEGRAM_BOT_MONITOROSM_BOT` i +#' `TME_OSMCAT_CHATID`. Per usar la funció a github, cal configurar les accions perquè carreguin aquestes variables +#' d'entorn a partir dels secrets del repositori de github. +#' #' @return #' @export #' #' @examples -missatge_telegram <- function(missatge = "Hi ha canvis a [monitorOSM](https://osm-catalan.github.io/monitorOSM).", +envia_missatge_telegram <- function(missatge = "Hi ha canvis a [monitorOSM](https://osm-catalan.github.io/monitorOSM).", parse_mode = "Markdown") { if (!requireNamespace("telegram.bot", quietly = TRUE)) { stop( diff --git a/README.Rmd b/README.Rmd index b1bda548..6195c50d 100644 --- a/README.Rmd +++ b/README.Rmd @@ -7,7 +7,7 @@ format: -```{r, include = FALSE} +```{r config, include = FALSE} knitr::opts_chunk$set( collapse = TRUE, comment = "#>", diff --git a/man/envia_missatge_telegram.Rd b/man/envia_missatge_telegram.Rd new file mode 100644 index 00000000..ec561bc9 --- /dev/null +++ b/man/envia_missatge_telegram.Rd @@ -0,0 +1,24 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/telegram.R +\name{envia_missatge_telegram} +\alias{envia_missatge_telegram} +\title{Envia un missatge a un xat de Telegram} +\usage{ +envia_missatge_telegram( + missatge = "Hi ha canvis a [monitorOSM](https://osm-catalan.github.io/monitorOSM).", + parse_mode = "Markdown" +) +} +\arguments{ +\item{missatge}{Text del missatge.} + +\item{parse_mode}{El missatge s'interpreta com a \code{Markdown} o \code{HTML}. + +On i amb quin bot s'envia el missatge es configura amb les variables d'entorn \code{R_TELEGRAM_BOT_MONITOROSM_BOT} i +\code{TME_OSMCAT_CHATID}. Per usar la funció a github, cal configurar les accions perquè carreguin aquestes variables +d'entorn a partir dels secrets del repositori de github.} +} +\description{ +Aquest repositori està configurat per enviar missatges al grup de Telegram de la +\verb{Comunitat en catal\\u00E0 d'OpenStreetMap} amb el bot \code{monitorOSM_bot}. +} diff --git a/man/missatge_resum_informes.Rd b/man/missatge_resum_informes.Rd new file mode 100644 index 00000000..80158a74 --- /dev/null +++ b/man/missatge_resum_informes.Rd @@ -0,0 +1,23 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/telegram.R +\name{missatge_resum_informes} +\alias{missatge_resum_informes} +\title{Crea missatge de resum d'informes} +\usage{ +missatge_resum_informes(..., pagina_informe, etiquetes) +} +\arguments{ +\item{...}{objectes produits per \code{\link[=comprova_canvis_osm]{comprova_canvis_osm()}}. Si els parametres tenen nom, s'usarà com a nom de la fila +de la taula resum. Sinó, s'usarà el nom de la variable.} + +\item{pagina_informe}{nom de la pàgina de l'informe per generar l'enllaç a la web.} + +\item{etiquetes}{Si no és \code{NULL}, quan es fa el recomte de canvis, només té en compte les etiquetes que quadren amb +aquesta exrpessió regular.} +} +\value{ +Text en format Markdown amb un missatge resum dels informes. +} +\description{ +Crea missatge de resum d'informes +} diff --git a/man/missatge_telegram.Rd b/man/missatge_telegram.Rd deleted file mode 100644 index 0d04c91b..00000000 --- a/man/missatge_telegram.Rd +++ /dev/null @@ -1,19 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/telegram.R -\name{missatge_telegram} -\alias{missatge_telegram} -\title{Envia un missatge a al grup de Telegram de la \verb{Comunitat en catal\\u00E0 d'OpenStreetMap}} -\usage{ -missatge_telegram( - missatge = "Hi ha canvis a [monitorOSM](https://osm-catalan.github.io/monitorOSM).", - parse_mode = "Markdown" -) -} -\arguments{ -\item{missatge}{Text del missatge.} - -\item{parse_mode}{El missatge s'interpreta com a \code{Markdown} o \code{HTML}.} -} -\description{ -Envia un missatge a al grup de Telegram de la \verb{Comunitat en catal\\u00E0 d'OpenStreetMap} -} diff --git a/web/internacional.qmd b/web/internacional.qmd index 9aadacd6..d7dba973 100644 --- a/web/internacional.qmd +++ b/web/internacional.qmd @@ -95,18 +95,13 @@ if ( # format(Sys.Date(), format = "%u") %in% "5" && # Només els divendres Sys.getenv("GITHUB_WORKFLOW") == "Render and Publish" ) { - names(n_canvis) <- c("estats", "capitals", "mars") - n_obj <- setNames(sapply(list(estats, capitals, mars), nrow), nm = names(n_canvis)) - df <- data.frame(dif = n_canvis, obj = n_obj) - # n_obj <- n_obj[n_canvis > 0] - # n_canvis <- n_canvis[n_canvis > 0] - total_canvis <- sum(n_canvis) - - missatge <- paste0( - "⚠️ Hi ha ", total_canvis, if (total_canvis > 1) " objectes" else " objecte", - " amb canvis a [Internacional](https://osm-catalan.github.io/monitorOSM/web/internacional.html).", - "`\n", paste(capture.output(print(knitr::kable(df))), collapse = "\n"), "\n`" + missatge <- missatge_resum_informes( + estats = canvis_estats, + capitals = canvis_capitals, + mars = canvis_mars, + pagina_informe = "internacional", + etiquetes = "name:ca" ) - m <- missatge_telegram(missatge = missatge) + m <- envia_missatge_telegram(missatge = missatge) } ``` diff --git a/web/limits.qmd b/web/limits.qmd index 95a7c314..26809e52 100644 --- a/web/limits.qmd +++ b/web/limits.qmd @@ -92,18 +92,13 @@ if ( # format(Sys.Date(), format = "%u") %in% "5" && # Només els divendres Sys.getenv("GITHUB_WORKFLOW") == "Render and Publish" ) { - names(n_canvis) <- c("PPCC", "territoris", "comarques", "municipis") - n_obj <- setNames(sapply(list(PPCC, territoris, comarques, municipis), nrow), nm = names(n_canvis)) - df <- data.frame(dif = n_canvis, obj = n_obj) - # n_obj <- n_obj[n_canvis > 0] - # n_canvis <- n_canvis[n_canvis > 0] - total_canvis <- sum(n_canvis) - - missatge <- paste0( - "⚠️ Hi ha ", total_canvis, if (total_canvis > 1) " objectes" else " objecte", - " amb canvis a [limits](https://osm-catalan.github.io/monitorOSM/web/limits.html).", - "`\n", paste(capture.output(print(knitr::kable(df))), collapse = "\n"), "\n`" + missatge <- missatge_resum_informes( + PPCC = canvis_ppcc, + territoris = canvis_territoris, + comarques = canvis_comarques, + municipis = canvis_municipis, + pagina_informe = "limits" ) - m <- missatge_telegram(missatge = missatge) + m <- envia_missatge_telegram(missatge = missatge) } ``` diff --git a/web/localitats.qmd b/web/localitats.qmd index 69fcb905..aa1d6c02 100644 --- a/web/localitats.qmd +++ b/web/localitats.qmd @@ -68,18 +68,11 @@ if ( # format(Sys.Date(), format = "%u") %in% "5" && # Només els divendres Sys.getenv("GITHUB_WORKFLOW") == "Render and Publish" ) { - names(n_canvis) <- c("admin_centre", "loc_ref") - n_obj <- setNames(sapply(list(loc_admin_centre_municipis, loc_ref), nrow), nm = names(n_canvis)) - df <- data.frame(dif = n_canvis, obj = n_obj) - # n_obj <- n_obj[n_canvis > 0] - # n_canvis <- n_canvis[n_canvis > 0] - total_canvis <- sum(n_canvis) - - missatge <- paste0( - "⚠️ Hi ha ", total_canvis, if (total_canvis > 1) " objectes" else " objecte", - " amb canvis a [localitats](https://osm-catalan.github.io/monitorOSM/web/localitats.html).", - "`\n", paste(capture.output(print(knitr::kable(df))), collapse = "\n"), "\n`" + missatge <- missatge_resum_informes( + admin_centre = canvis_loc_capital_municipis, + loc_ref = canvis_loc_ref, + pagina_informe = "localitats" ) - m <- missatge_telegram(missatge = missatge) + m <- envia_missatge_telegram(missatge = missatge) } ``` From 6a1ec76fc4e4ae02686ef33c57d60b0631ab06c1 Mon Sep 17 00:00:00 2001 From: Joan Maspons Date: Mon, 11 Aug 2025 20:59:04 +0200 Subject: [PATCH 2/3] =?UTF-8?q?Corregeix=20car=C3=A0cters=20UTF8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- R/telegram.R | 19 +++++++++++-------- man/envia_missatge_telegram.Rd | 4 ++-- man/missatge_resum_informes.Rd | 10 +++++----- 3 files changed, 18 insertions(+), 15 deletions(-) diff --git a/R/telegram.R b/R/telegram.R index 69108a06..4c0b1e8c 100644 --- a/R/telegram.R +++ b/R/telegram.R @@ -1,11 +1,11 @@ #' Crea missatge de resum d'informes #' -#' @param ... objectes produits per [comprova_canvis_osm()]. Si els parametres tenen nom, s'usarà com a nom de la fila -#' de la taula resum. Sinó, s'usarà el nom de la variable. -#' @param pagina_informe nom de la pàgina de l'informe per generar l'enllaç a la web. -#' @param etiquetes Si no és `NULL`, quan es fa el recomte de canvis, només té en compte les etiquetes que quadren amb -#' aquesta exrpessió regular. +#' @param ... objectes produits per [comprova_canvis_osm()]. Si els parametres tenen nom, s'usar com a nom de la +#' fila de la taula resum. Sin, s'usar el nom de la variable. +#' @param pagina_informe nom de la pgina de l'informe per generar l'enlla a la web. +#' @param etiquetes Si no s `NULL`, quan es fa el recompte de canvis, noms t en compte les +#' etiquetes que quadren amb aquesta expressi regular. #' #' @returns Text en format Markdown amb un missatge resum dels informes. #' @export @@ -35,7 +35,10 @@ missatge_resum_informes <- function(..., pagina_informe, etiquetes){ # n_canvis <- n_canvis[n_canvis > 0] total_canvis <- sum(n_canvis) - missatge <- paste0("⚠️ Hi ha ", total_canvis, if (total_canvis > 1) " objectes" else " objecte amb canvis") + missatge <- paste0( + "<9a><8f> Hi ha ", total_canvis, + if (total_canvis > 1) " objectes" else " objecte amb canvis" + ) if (missing(pagina_informe)) { missatge <- paste0(missatge, ".") } else { @@ -51,14 +54,14 @@ missatge_resum_informes <- function(..., pagina_informe, etiquetes){ #' Envia un missatge a un xat de Telegram #' -#' Aquest repositori està configurat per enviar missatges al grup de Telegram de la +#' Aquest repositori est configurat per enviar missatges al grup de Telegram de la #' `Comunitat en catal\u00E0 d'OpenStreetMap` amb el bot `monitorOSM_bot`. #' #' @param missatge Text del missatge. #' @param parse_mode El missatge s'interpreta com a `Markdown` o `HTML`. #' #' On i amb quin bot s'envia el missatge es configura amb les variables d'entorn `R_TELEGRAM_BOT_MONITOROSM_BOT` i -#' `TME_OSMCAT_CHATID`. Per usar la funció a github, cal configurar les accions perquè carreguin aquestes variables +#' `TME_OSMCAT_CHATID`. Per usar la funci a github, cal configurar les accions perqu carreguin aquestes variables #' d'entorn a partir dels secrets del repositori de github. #' #' @return diff --git a/man/envia_missatge_telegram.Rd b/man/envia_missatge_telegram.Rd index ec561bc9..858d59e8 100644 --- a/man/envia_missatge_telegram.Rd +++ b/man/envia_missatge_telegram.Rd @@ -15,10 +15,10 @@ envia_missatge_telegram( \item{parse_mode}{El missatge s'interpreta com a \code{Markdown} o \code{HTML}. On i amb quin bot s'envia el missatge es configura amb les variables d'entorn \code{R_TELEGRAM_BOT_MONITOROSM_BOT} i -\code{TME_OSMCAT_CHATID}. Per usar la funció a github, cal configurar les accions perquè carreguin aquestes variables +\code{TME_OSMCAT_CHATID}. Per usar la funci\if{html}{\out{}}\if{html}{\out{}} a github, cal configurar les accions perqu\if{html}{\out{}}\if{html}{\out{}} carreguin aquestes variables d'entorn a partir dels secrets del repositori de github.} } \description{ -Aquest repositori està configurat per enviar missatges al grup de Telegram de la +Aquest repositori est\if{html}{\out{}}\if{html}{\out{}} configurat per enviar missatges al grup de Telegram de la \verb{Comunitat en catal\\u00E0 d'OpenStreetMap} amb el bot \code{monitorOSM_bot}. } diff --git a/man/missatge_resum_informes.Rd b/man/missatge_resum_informes.Rd index 80158a74..fcaa9b53 100644 --- a/man/missatge_resum_informes.Rd +++ b/man/missatge_resum_informes.Rd @@ -7,13 +7,13 @@ missatge_resum_informes(..., pagina_informe, etiquetes) } \arguments{ -\item{...}{objectes produits per \code{\link[=comprova_canvis_osm]{comprova_canvis_osm()}}. Si els parametres tenen nom, s'usarà com a nom de la fila -de la taula resum. Sinó, s'usarà el nom de la variable.} +\item{...}{objectes produits per \code{\link[=comprova_canvis_osm]{comprova_canvis_osm()}}. Si els parametres tenen nom, s'usar\if{html}{\out{}}\if{html}{\out{}} com a nom de la +fila de la taula resum. Sin\if{html}{\out{}}\if{html}{\out{}}, s'usar\if{html}{\out{}}\if{html}{\out{}} el nom de la variable.} -\item{pagina_informe}{nom de la pàgina de l'informe per generar l'enllaç a la web.} +\item{pagina_informe}{nom de la p\if{html}{\out{}}\if{html}{\out{}}gina de l'informe per generar l'enlla\if{html}{\out{}}\if{html}{\out{}} a la web.} -\item{etiquetes}{Si no és \code{NULL}, quan es fa el recomte de canvis, només té en compte les etiquetes que quadren amb -aquesta exrpessió regular.} +\item{etiquetes}{Si no \if{html}{\out{}}\if{html}{\out{}}s \code{NULL}, quan es fa el recompte de canvis, nom\if{html}{\out{}}\if{html}{\out{}}s t\if{html}{\out{}}\if{html}{\out{}} en compte les +etiquetes que quadren amb aquesta expressi\if{html}{\out{}}\if{html}{\out{}} regular.} } \value{ Text en format Markdown amb un missatge resum dels informes. From eb2d38a5693c098c8cd24aa51a959c340ff4dcd2 Mon Sep 17 00:00:00 2001 From: Joan Maspons Date: Mon, 11 Aug 2025 21:18:18 +0200 Subject: [PATCH 3/3] =?UTF-8?q?Simplifica=20funci=C3=B3=20missatge=5Fresum?= =?UTF-8?q?=5Finformes()=20amb=20par=C3=A0metre=20de=20tipus=20list=20en?= =?UTF-8?q?=20comptes=20de=20...?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- R/telegram.R | 19 +++++++------------ man/missatge_resum_informes.Rd | 6 +++--- web/internacional.qmd | 8 +++++--- web/limits.qmd | 10 ++++++---- web/localitats.qmd | 6 ++++-- 5 files changed, 25 insertions(+), 24 deletions(-) diff --git a/R/telegram.R b/R/telegram.R index 4c0b1e8c..453eb25f 100644 --- a/R/telegram.R +++ b/R/telegram.R @@ -1,8 +1,8 @@ #' Crea missatge de resum d'informes #' -#' @param ... objectes produits per [comprova_canvis_osm()]. Si els parametres tenen nom, s'usar com a nom de la -#' fila de la taula resum. Sin, s'usar el nom de la variable. +#' @param canvis llista amb objectes produits per [comprova_canvis_osm()]. Si els elements tenen nom, s'usar com +#' a nom de la fila de la taula resum. #' @param pagina_informe nom de la pgina de l'informe per generar l'enlla a la web. #' @param etiquetes Si no s `NULL`, quan es fa el recompte de canvis, noms t en compte les #' etiquetes que quadren amb aquesta expressi regular. @@ -11,25 +11,20 @@ #' @export #' #' @examples -missatge_resum_informes <- function(..., pagina_informe, etiquetes){ - canvis_taules <- list(...) - if (is.null(names(canvis_taules))) { - names(canvis_taules) <- sapply(substitute(...()), deparse) - } - +missatge_resum_informes <- function(canvis, pagina_informe, etiquetes){ n_canvis <- if (missing(etiquetes)) { - sapply(canvis_taules, function(x) { + sapply(canvis, function(x) { nrow(x$change_count) }) } else { - sapply(canvis_taules, function(x) { + sapply(canvis, function(x) { df <- x$comparison_table_diff_numbers sum(apply(df[, grep(etiquetes, names(df))], 1, function(y) any(y != 0))) }) } - names(n_canvis) <- names(canvis_taules) - n_obj <- setNames(vapply(canvis_taules, function(x) x$change_summary[["old_obs"]], FUN.VALUE = 1), nm = names(n_canvis)) + names(n_canvis) <- names(canvis) + n_obj <- setNames(vapply(canvis, function(x) x$change_summary[["old_obs"]], FUN.VALUE = 1), nm = names(n_canvis)) df <- data.frame(dif = n_canvis, obj = n_obj) # n_obj <- n_obj[n_canvis > 0] # n_canvis <- n_canvis[n_canvis > 0] diff --git a/man/missatge_resum_informes.Rd b/man/missatge_resum_informes.Rd index fcaa9b53..e885473f 100644 --- a/man/missatge_resum_informes.Rd +++ b/man/missatge_resum_informes.Rd @@ -4,11 +4,11 @@ \alias{missatge_resum_informes} \title{Crea missatge de resum d'informes} \usage{ -missatge_resum_informes(..., pagina_informe, etiquetes) +missatge_resum_informes(canvis, pagina_informe, etiquetes) } \arguments{ -\item{...}{objectes produits per \code{\link[=comprova_canvis_osm]{comprova_canvis_osm()}}. Si els parametres tenen nom, s'usar\if{html}{\out{}}\if{html}{\out{}} com a nom de la -fila de la taula resum. Sin\if{html}{\out{}}\if{html}{\out{}}, s'usar\if{html}{\out{}}\if{html}{\out{}} el nom de la variable.} +\item{canvis}{llista amb objectes produits per \code{\link[=comprova_canvis_osm]{comprova_canvis_osm()}}. Si els elements tenen nom, s'usar\if{html}{\out{}}\if{html}{\out{}} com +a nom de la fila de la taula resum.} \item{pagina_informe}{nom de la p\if{html}{\out{}}\if{html}{\out{}}gina de l'informe per generar l'enlla\if{html}{\out{}}\if{html}{\out{}} a la web.} diff --git a/web/internacional.qmd b/web/internacional.qmd index d7dba973..732a1d8b 100644 --- a/web/internacional.qmd +++ b/web/internacional.qmd @@ -96,9 +96,11 @@ if ( Sys.getenv("GITHUB_WORKFLOW") == "Render and Publish" ) { missatge <- missatge_resum_informes( - estats = canvis_estats, - capitals = canvis_capitals, - mars = canvis_mars, + list( + estats = canvis_estats, + capitals = canvis_capitals, + mars = canvis_mars + ), pagina_informe = "internacional", etiquetes = "name:ca" ) diff --git a/web/limits.qmd b/web/limits.qmd index 26809e52..e2f7b190 100644 --- a/web/limits.qmd +++ b/web/limits.qmd @@ -93,10 +93,12 @@ if ( Sys.getenv("GITHUB_WORKFLOW") == "Render and Publish" ) { missatge <- missatge_resum_informes( - PPCC = canvis_ppcc, - territoris = canvis_territoris, - comarques = canvis_comarques, - municipis = canvis_municipis, + list( + PPCC = canvis_ppcc, + territoris = canvis_territoris, + comarques = canvis_comarques, + municipis = canvis_municipis + ), pagina_informe = "limits" ) m <- envia_missatge_telegram(missatge = missatge) diff --git a/web/localitats.qmd b/web/localitats.qmd index aa1d6c02..c511d539 100644 --- a/web/localitats.qmd +++ b/web/localitats.qmd @@ -69,8 +69,10 @@ if ( Sys.getenv("GITHUB_WORKFLOW") == "Render and Publish" ) { missatge <- missatge_resum_informes( - admin_centre = canvis_loc_capital_municipis, - loc_ref = canvis_loc_ref, + list( + admin_centre = canvis_loc_capital_municipis, + loc_ref = canvis_loc_ref + ), pagina_informe = "localitats" ) m <- envia_missatge_telegram(missatge = missatge)