diff --git a/_posts/2023-10-27-areas-protegidas/areas-protegidas.Rmd b/_posts/2023-10-27-areas-protegidas/areas-protegidas.Rmd index 8f692ce..02a4042 100644 --- a/_posts/2023-10-27-areas-protegidas/areas-protegidas.Rmd +++ b/_posts/2023-10-27-areas-protegidas/areas-protegidas.Rmd @@ -5,7 +5,7 @@ date: 2023-10-27 output: distill::distill_article: self_contained: false -draft: false +draft: true --- diff --git a/_posts/2024-10-30-areas-protegidas-provinciales/areas-protegidas-provinciales.Rmd b/_posts/2024-10-30-areas-protegidas-provinciales/areas-protegidas-provinciales.Rmd new file mode 100644 index 0000000..91926cc --- /dev/null +++ b/_posts/2024-10-30-areas-protegidas-provinciales/areas-protegidas-provinciales.Rmd @@ -0,0 +1,336 @@ +--- +title: "Áreas Protegidas" +description: La publicación del Informe de visitas en Áreas Protegidas en Argentina incorpora información de visitas en el Gran Parque Iberá (provincia de Corrientes) y en el Área Natural Protegida Cabo Dos Bahías. +date: 2024-10-30 +output: + distill::distill_article: + self_contained: false +draft: false +--- + + +```{r setup, include=FALSE} +knitr::opts_chunk$set(echo = FALSE) +``` + + + +# Presentación + +A partir de febrero 2023, la Dirección Nacional de Mercados y Estadística (DNMyE) buscó ampliar el trabajo realizado desde el 2009 en colaboración con la Dirección de Mercadeo de la Dirección Nacional de Uso Público, dependiente de la Administración de Parques Nacionales, con la incorporación de información histórica de visitas por condición de residencia en 5 Áreas Protegidas Naturales del Chubut y las visitas en el Parque Provincial Ischigualasto, en la provincia de San Juan. + +Con el objetivo de continuar ampliando la información de visitas a destinos vinculados al Turismo de Naturaleza en el país, en el informe de visitas de septiembre 2024 disponible en [SINTA](https://www.yvera.tur.ar/sinta/informe/info/areas-protegidas), se incorpora información del Gran Parque Iberá en la provincia de Corrientes, conformado por 600.000 hectáreas del Parque Provincial Iberá y más 168.000 hectáreas del Parque Nacional Iberá, en el interior de la Reserva Natural Iberá. Por otro lado, en el caso de las Áreas Protegidas del Chubut se incorpora información histórica del Área Protegida Natural Cabo Dos Bahías. + +En el siguiente gráfico se puede observar la evolución histórica del total de las visitas del Gran Parque Iberá, que surge de las visitas registradas en 8 portales de acceso al Gran Parque, 3 portales administrados por Parques Nacionales (Laguna Iberá, Cambyretá y San Nicolás) y 5 portales por la Unidad Ejecutora del Comité Iberá (Carambola, Galarza, San Antonio, Uguay y Capivarí). Cabe mencionar que la serie de los portales nacionales inicia con el registro por los 3 portales de acceso, mientras que la de los portales provinciales incluye solo los registros del portal Carambola a partir del 2015; a partir del segundo semestre del 2021 se abrieron a la visita los Portal San Antonio, Galarza y Uguay, mientras que en el segundo semestre del 2022 se abrió el portal Capivarí. + + + +```{r} +library(tidyverse) +library(herramientas) +library(comunicacion) +library(ggrepel) +library(ggtext) +library(glue) + +#se levanta la pivot de Iberá +ibera_base <- read_file_srv("/DataDNMYE/areas_protegidas/areas_protegidas_provinciales/pivot_ibera.xlsx", sheet=2)%>% + mutate(mes_1 = as.numeric(mes_1), + visitantes = as.numeric(visitantes)) + +# misiones_base <- read_file_srv("/DataDNMYE/areas_protegidas/areas_protegidas_provinciales/pivot_misiones.xlsx", sheet=2)%>% mutate(mes_1 = as.numeric(mes_1), +# visitantes = as.numeric(visitantes)) + + +# calculo los totales anuales de las portadas nacionales + +tabla_anual_corr_portadasnac <- ibera_base %>% + select(- c(localidades, mes, mes_1)) %>% + filter(portada %in% c("laguna_ibera","cambyreta","san_nicolas")) %>% + filter(anio> 2015 & anio < 2024) %>% + arrange(anio) %>% + group_by(anio) %>% + summarise(visitantes = sum(visitantes, na.rm = T)) %>% + # rename("Total Portales Nacionales" = visitantes) %>% + # select(-anio) + mutate(total_portales = "nacionales") + + +# calculo los totales anuales de las portadas provinciales + +tabla_anual_corr_portadasprov <- ibera_base %>% + select(- c(localidades, mes, mes_1)) %>% + filter(portada %in% c("carambola","galarza","san_antonio", "capivari_isla_disparo +", "uguay")) %>% + filter(anio < 2024) %>% + arrange(anio) %>% + group_by(anio) %>% + summarise(visitantes = sum(visitantes, na.rm = T)) %>% + # rename("Total Portales Provinciales" = visitantes) %>% + # select(-anio) + mutate(total_portales = "provinciales") + + + +# uno las 3 tablas con el total anuales de visitas al parque y los totales por portales nacionales y provinciales del GPI + +total_ibera_portales <- bind_rows(tabla_anual_corr_portadasnac,tabla_anual_corr_portadasprov) + + +``` + + +```{r} +#Calculo totales para agreagar al gráfico +# totales <- data_areas_protegidas %>% group_by(anio) %>% +# summarise(total = sum(visitantes)) %>% ungroup() + + +# se arman los totales anuales para el gráfico de evolución 2015 al 2023 + +ibera_total <- ibera_base%>% filter(anio > 2015 & anio < 2024) %>% + group_by(anio) %>% + summarise(visitantes = sum(visitantes, na.rm = T)) %>% + ungroup() %>% + arrange(anio) %>% + mutate(total = "total") + + +#Grafico 1 - evolución de las visitas por parque + +ggplot()+ + geom_area(data= total_ibera_portales, aes(anio, visitantes, group = total_portales, fill= total_portales), position = position_dodge(), alpha = 0.8)+ + geom_line(data = ibera_total, aes(anio, visitantes, group =1), color= dnmye_colores("gris oscuro"))+ + geom_point(data = ibera_total, mapping = aes(anio, visitantes), color= dnmye_colores("gris oscuro") )+ + geom_label(data = ibera_total, aes(anio, visitantes, label = round(visitantes/1000)), size = 3, vjust = -1, label.padding = unit(1, "mm"), + fontface="bold",show.legend = FALSE)+ + scale_y_continuous(limits = c(-10, max(ibera_total$visitantes)*1.1), + labels = function(x){paste0(x/1000," mil")})+ + scale_fill_manual(values = c("nacionales"= dnmye_colores("purpura"), + "provinciales" = dnmye_colores("azul verde") + ))+ + theme_minimal()+ + theme(legend.position = "none", plot.subtitle = element_markdown())+ + labs(title = "Evolución de las visitas en el Gran Parque Iberá", subtitle = glue("**en miles. Años 2016 - 2023.** Portales **nacionales****,** **provinciales** **y** **Total** "), caption = "Fuente: DNMyE en base a datos del Departamento Técnico del Comité Iberá",x= "", y= "Visitantes", fill= "total_portales") +``` + + + + + + +```{r} +# ggplot(data_areas_protegidas, aes(anio, visitantes, group = area_protegida, color= area_protegida ))+ +# geom_line()+ +# geom_point()+ +# geom_line(data = totales, aes(anio, total, group =1), color= "grey")+ +# geom_label(data = filter(data_areas_protegidas, area_protegida == "Talampaya"), aes(label = round(visitantes/1000)), size = 3, vjust = 1.5, label.padding = unit(1, "mm"), +# fontface="bold",show.legend = FALSE)+ +# geom_label(data = filter(data_areas_protegidas, area_protegida == "Ischigualasto"), aes(label = round(visitantes/1000)), size = 3, vjust = -.7, label.padding = unit(1, "mm"),fontface="bold", +# show.legend = FALSE)+ +# scale_y_continuous(limits = c(-10, max(totales$total)*1.1), +# labels = function(x){paste0(x/1000," mil")})+ +# scale_color_dnmye()+ +# theme_minimal()+ +# theme(legend.position = "bottom")+ +# labs(title = "Evolución de las visitas en el SPM Ischigualasto - Talampaya", subtitle = "Años 2008 - 2022", caption = "Fuente: DNMyE en base a datos de APN y PP Ischigualasto",x= "Año", y= "Visitantes", color= "Áreas Protegidas") + +``` + + +En el siguiente gráfico se observa la participación de las visitas en los portales nacionales y provinciales en el año 2023 y su estacionalidad, con picos de afluencia durante las vacaciones de invierno, y en los meses de octubre y abril. + +Por otro lado, las diferencias en la cantidad de visitantes por los portales nacionales y provinciales dan cuenta del grado de desarrollo turístico de los mismos y las localidades desde las que acceden los visitantes. + +```{r} + +portadas_nac_m <- ibera_base %>% + filter(portada %in% c("laguna_ibera","cambyreta","san_nicolas")) %>% + filter(anio == 2023) %>% + mutate(indice_tiempo = (make_date(anio,mes_1, 1))) %>% + group_by(indice_tiempo) %>% + summarise(visitantes = sum(visitantes, na.rm = T)) %>% + ungroup() %>% + mutate(total_portales = "nacionales") + #arrange(mes_1) %>% + # mutate(mes_1 = str_to_title(month(mes_1, label = TRUE, abbr = FALSE))) %>% + # rename(Mes = mes_1) + + # unique(ibera_base$portada) + +portadas_prov_m <- ibera_base %>% + filter(portada %in% c("carambola","galarza","san_antonio", "uguay", "capivari_isla_disparo")) %>% + filter(anio == 2023) %>% + mutate(indice_tiempo = (make_date(anio,mes_1, 1))) %>% + # mutate(indice_tiempo = paste(anio,mes, sep="-")) %>% + group_by(indice_tiempo) %>% + summarise(visitantes = sum(visitantes, na.rm = T)) %>% + ungroup() %>% + mutate(total_portales = "provinciales") + # arrange(mes_1) %>% + # mutate(mes_1 = str_to_title(month(mes_1, label = TRUE, abbr = FALSE))) %>% + # rename(Mes = mes_1) + +data_portadas <- rbind(portadas_nac_m, portadas_prov_m) %>% + mutate(indice_tiempo = as.Date(paste(indice_tiempo, "01", sep = "-"))) + + + +``` + + +```{r} + +ggplot(data_portadas, aes(indice_tiempo, visitantes, group = total_portales, color= total_portales ))+ + geom_line()+ + geom_point()+ + scale_y_continuous(limits = c(0, max(data_portadas$visitantes)*1.1), + labels = function(x){paste0(x/1000," mil")})+ + scale_x_date(date_labels = "%B",date_breaks = "1 month")+ + scale_color_dnmye()+ + theme_minimal()+ + theme(legend.position = "bottom", axis.text.x = element_text(angle = 45))+ + labs(title = "Evolución mensual de las visitas en el Gran Parque Iberá", subtitle = "Año 2023", caption = "Fuente: DNMyE en base a datos del Departamento Técnico del Comité Iberá",x= "Mes", y= "Visitantes", color= "Áreas Protegidas") + +``` +*Notas: En 2023 el portal Carambola cerró a la visita del 30 de enero al 14 de mayo por incendios. El portal Galarza se cerró a la visita desde enero a marzo y en noviembre y diciembre por bajante en Laguna Galarza. El portal Capivarí se cerró a la visita debido a las prolongadas sequías que afectaron la región durante el 2023. El portal Uguay se mantiene sin acceso público desde diciembre 2022. * + + + + + + +En el caso de la provincia del Chubut, se puede ver la evolución histórica de las visitas en tanto en áreas protegidas provinciales, y observar la evolución y participación del Área Natural Protegida Cabo Dos Bahías en el conjunto de áreas protegidas provinciales. Dicha área se abre a la visita anualmente desde el mes de septiembre hasta fines de abril, debido a la vulnerabilidad de las especies que habitan el lugar (al igual que Punta Tombo) mientras que el resto de las áreas protegidas naturales de la provincia se mantienen abiertas todo el año. + + + + +```{r} +# se levanta base de áreas protegidas del Chubut + +parques_ch <- read_file_srv("/DataDNMYE/areas_protegidas/areas_protegidas_provinciales/insumos/base_trabajo/bases_chubut.csv") + + +# se arman insumos para tablas de evolución 2008 al 2022 + + +#se levanta la base PN +# parques_nacionales <- read_file_srv("/DataDNMYE/areas_protegidas/areas_protegidas_nacionales/pivot_pn.xlsx", sheet=2) + + +# parques_nac_ch <- parques_nacionales %>% +# filter(parque_nacional %in% c("los alerces", "lago puelo"), anio < 2024) %>% +# group_by(anio, area_protegida = parque_nacional) %>% +# summarise(visitantes = sum(visitantes)) %>% +# ungroup() %>% +# mutate(area_protegida = str_to_title(area_protegida)) + +chubut <- parques_ch %>% + group_by(anio, area_protegida) %>% + summarise(visitantes =sum(visitantes, na.rm = T)) %>% + ungroup() %>% + filter(anio > 2007 & anio <2024) + +data_areas_protegidasch <- chubut + + +#se juntan las tablas de nacionales y prov + +# data_areas_protegidasch <- rbind(parques_nac_ch, chubut) + + +``` + + +```{r} + +ggplot(data_areas_protegidasch, aes(anio, visitantes, group = area_protegida, color= area_protegida ))+ + geom_line()+ + geom_point()+ + scale_y_continuous(labels = function(x){paste0(x/1000," mil")})+ + scale_x_continuous(breaks = seq(2008,2022))+ + scale_color_dnmye()+ + theme_minimal()+ + theme(legend.position = "bottom")+ + guides(color=guide_legend(nrow=3,byrow=TRUE))+ + labs(title = "Evolución de las visitas en las Áreas Naturales Protegidas del Chubut", subtitle = "Años 2008 - 2023", caption = "Fuente: DNMyE en base a datos de APN y al Departamento Observatorio Turistico del Chubut",x="", y= "Visitantes", color= "") + + + +``` + + +```{r} + +#generacion de mes como numérico + +tabla_mes <- data.frame(Mes = tolower(c("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre")), mes = c("01","02","03","04","05","06", "07", "08", "09", "10", "11", "12")) + + + +``` + + +```{r} + +parques_ch <- left_join(parques_ch, tabla_mes) + +tabla_mensual <- parques_ch %>% + filter(anio == 2023, (area_protegida %in% c("Punta Tombo", "Cabo 2B"))) %>% + mutate(indice_tiempo = paste(anio,mes, sep="-")) %>% + group_by(indice_tiempo, area_protegida) %>% + summarise(visitantes = sum(visitantes, na.rm = T)) %>% + ungroup() + + + # tabla_mensual_pn <- parques_nacionales %>% + # filter(parque_nacional %in% c("los alerces", "lago puelo"), anio == 2019) %>% + # mutate(indice_tiempo = paste(anio,mes, sep="-")) %>% + # group_by(indice_tiempo, area_protegida = parque_nacional) %>% + # summarise(visitantes = sum(visitantes)) %>% + # ungroup() %>% + # mutate(area_protegida = str_to_title(area_protegida)) + + #se juntan las tablas de nacionales y prov + +# datamensual_areas_protegidasch <- rbind(tabla_mensual, tabla_mensual_pn) %>% + datamensual_areas_protegidasch <- tabla_mensual %>% + mutate(indice_tiempo = as.Date(paste(indice_tiempo, "01", sep = "-"))) + + +``` + +En cuanto a la estacionalidad, se observa que el cuarto trimestre concentra la mayor cantidad de visitas en Punta Tombo, mientras que en Cabo Dos Bahías la mayor afluencia se concentra en el primer trimestre. + + +```{r} +ggplot(datamensual_areas_protegidasch, aes(indice_tiempo, visitantes, group = area_protegida, color= area_protegida ))+ + geom_line()+ + geom_point()+ + #scale_y_continuous(labels = function(x){paste0(x/1000," mil")})+ + scale_x_date(date_labels = "%B",date_breaks = "1 month")+ + scale_color_dnmye()+ + theme_minimal()+ + theme(legend.position = "bottom", axis.text.x = element_text(vjust = 0.5, hjust = 1, angle = 45))+ + guides(color=guide_legend(nrow=3,byrow=TRUE))+ + labs(title = "Evolución de las visitas en las Áreas Naturales Protegidas del Chubut", subtitle = "Año 2023", caption = "Fuente: DNMyE en base a datos del Departamento Observatorio Turistico del Chubut",x="", y= "Visitantes", color= "") + + + + +``` + +## Recursos + +Para más información visitá los distintos recursos sobre Áreas Protegidas del SINTA: + +- [Datos abiertos](https://datos.yvera.gob.ar/dataset?groups=turismo-naturaleza) + +- [Informes](https://www.yvera.tur.ar/sinta/informe/info/areas-protegidas) + +- [Reporte](https://tableros.yvera.tur.ar/areas_protegidas.html) + + +::: {.infobox} +Para recibir las novedades del SINTA escribíle al bot de Telegram de la DNMyE *SintIA*: @RDatinaBot 🤖 +::: diff --git a/_posts/2024-10-30-areas-protegidas-provinciales/areas-protegidas-provinciales.html b/_posts/2024-10-30-areas-protegidas-provinciales/areas-protegidas-provinciales.html new file mode 100644 index 0000000..a2432d5 --- /dev/null +++ b/_posts/2024-10-30-areas-protegidas-provinciales/areas-protegidas-provinciales.html @@ -0,0 +1,1551 @@ + + + + +
+ + + + + + + + + + + + + + + +La publicación del Informe de visitas en Áreas Protegidas en Argentina incorpora información de visitas en el Gran Parque Iberá (provincia de Corrientes) y en el Área Natural Protegida Cabo Dos Bahías.
+A partir de febrero 2023, la Dirección Nacional de Mercados y Estadística (DNMyE) buscó ampliar el trabajo realizado desde el 2009 en colaboración con la Dirección de Mercadeo de la Dirección Nacional de Uso Público, dependiente de la Administración de Parques Nacionales, con la incorporación de información histórica de visitas por condición de residencia en 5 Áreas Protegidas Naturales del Chubut y las visitas en el Parque Provincial Ischigualasto, en la provincia de San Juan.
+Con el objetivo de continuar ampliando la información de visitas a destinos vinculados al Turismo de Naturaleza en el país, en el informe de visitas de septiembre 2024 disponible en SINTA, se incorpora información del Gran Parque Iberá en la provincia de Corrientes, conformado por 600.000 hectáreas del Parque Provincial Iberá y más 168.000 hectáreas del Parque Nacional Iberá, en el interior de la Reserva Natural Iberá. Por otro lado, en el caso de las Áreas Protegidas del Chubut se incorpora información histórica del Área Protegida Natural Cabo Dos Bahías.
+En el siguiente gráfico se puede observar la evolución histórica del total de las visitas del Gran Parque Iberá, que surge de las visitas registradas en 8 portales de acceso al Gran Parque, 3 portales administrados por Parques Nacionales (Laguna Iberá, Cambyretá y San Nicolás) y 5 portales por la Unidad Ejecutora del Comité Iberá (Carambola, Galarza, San Antonio, Uguay y Capivarí). Cabe mencionar que la serie de los portales nacionales inicia con el registro por los 3 portales de acceso, mientras que la de los portales provinciales incluye solo los registros del portal Carambola a partir del 2015; a partir del segundo semestre del 2021 se abrieron a la visita los Portal San Antonio, Galarza y Uguay, mientras que en el segundo semestre del 2022 se abrió el portal Capivarí.
+En el siguiente gráfico se observa la participación de las visitas en los portales nacionales y provinciales en el año 2023 y su estacionalidad, con picos de afluencia durante las vacaciones de invierno, y en los meses de octubre y abril.
+Por otro lado, las diferencias en la cantidad de visitantes por los portales nacionales y provinciales dan cuenta del grado de desarrollo turístico de los mismos y las localidades desde las que acceden los visitantes.
+Notas: En 2023 el portal Carambola cerró a la visita del 30 de enero al 14 de mayo por incendios. El portal Galarza se cerró a la visita desde enero a marzo y en noviembre y diciembre por bajante en Laguna Galarza. El portal Capivarí se cerró a la visita debido a las prolongadas sequías que afectaron la región durante el 2023. El portal Uguay se mantiene sin acceso público desde diciembre 2022.
+ + + +En el caso de la provincia del Chubut, se puede ver la evolución histórica de las visitas en tanto en áreas protegidas provinciales, y observar la evolución y participación del Área Natural Protegida Cabo Dos Bahías en el conjunto de áreas protegidas provinciales. Dicha área se abre a la visita anualmente desde el mes de septiembre hasta fines de abril, debido a la vulnerabilidad de las especies que habitan el lugar (al igual que Punta Tombo) mientras que el resto de las áreas protegidas naturales de la provincia se mantienen abiertas todo el año.
+ +En cuanto a la estacionalidad, se observa que el cuarto trimestre concentra la mayor cantidad de visitas en Punta Tombo, mientras que en Cabo Dos Bahías la mayor afluencia se concentra en el primer trimestre.
+Para más información visitá los distintos recursos sobre Áreas Protegidas del SINTA:
+ +Para recibir las novedades del SINTA escribíle al bot de Telegram de la DNMyE SintIA: @RDatinaBot 🤖
+
`,e.githubCompareUpdatesUrl&&(t+=`View all changes to this article since it was first published.`),t+=` + If you see mistakes or want to suggest changes, please create an issue on GitHub.
+ `);const n=e.journal;return'undefined'!=typeof n&&'Distill'===n.title&&(t+=` +Diagrams and text are licensed under Creative Commons Attribution CC-BY 4.0 with the source available on GitHub, unless noted otherwise. The figures that have been reused from other sources don’t fall under this license and can be recognized by a note in their caption: “Figure from …”.
+ `),'undefined'!=typeof e.publishedDate&&(t+=` +For attribution in academic contexts, please cite this work as
+${e.concatenatedAuthors}, "${e.title}", Distill, ${e.publishedYear}.+
BibTeX citation
+${m(e)}+ `),t}var An=Math.sqrt,En=Math.atan2,Dn=Math.sin,Mn=Math.cos,On=Math.PI,Un=Math.abs,In=Math.pow,Nn=Math.LN10,jn=Math.log,Rn=Math.max,qn=Math.ceil,Fn=Math.floor,Pn=Math.round,Hn=Math.min;const zn=['Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'],Bn=['Jan.','Feb.','March','April','May','June','July','Aug.','Sept.','Oct.','Nov.','Dec.'],Wn=(e)=>10>e?'0'+e:e,Vn=function(e){const t=zn[e.getDay()].substring(0,3),n=Wn(e.getDate()),i=Bn[e.getMonth()].substring(0,3),a=e.getFullYear().toString(),d=e.getUTCHours().toString(),r=e.getUTCMinutes().toString(),o=e.getUTCSeconds().toString();return`${t}, ${n} ${i} ${a} ${d}:${r}:${o} Z`},$n=function(e){const t=Array.from(e).reduce((e,[t,n])=>Object.assign(e,{[t]:n}),{});return t},Jn=function(e){const t=new Map;for(var n in e)e.hasOwnProperty(n)&&t.set(n,e[n]);return t};class Qn{constructor(e){this.name=e.author,this.personalURL=e.authorURL,this.affiliation=e.affiliation,this.affiliationURL=e.affiliationURL,this.affiliations=e.affiliations||[]}get firstName(){const e=this.name.split(' ');return e.slice(0,e.length-1).join(' ')}get lastName(){const e=this.name.split(' ');return e[e.length-1]}}class Gn{constructor(){this.title='unnamed article',this.description='',this.authors=[],this.bibliography=new Map,this.bibliographyParsed=!1,this.citations=[],this.citationsCollected=!1,this.journal={},this.katex={},this.publishedDate=void 0}set url(e){this._url=e}get url(){if(this._url)return this._url;return this.distillPath&&this.journal.url?this.journal.url+'/'+this.distillPath:this.journal.url?this.journal.url:void 0}get githubUrl(){return this.githubPath?'https://github.com/'+this.githubPath:void 0}set previewURL(e){this._previewURL=e}get previewURL(){return this._previewURL?this._previewURL:this.url+'/thumbnail.jpg'}get publishedDateRFC(){return Vn(this.publishedDate)}get updatedDateRFC(){return Vn(this.updatedDate)}get publishedYear(){return this.publishedDate.getFullYear()}get publishedMonth(){return Bn[this.publishedDate.getMonth()]}get publishedDay(){return this.publishedDate.getDate()}get publishedMonthPadded(){return Wn(this.publishedDate.getMonth()+1)}get publishedDayPadded(){return Wn(this.publishedDate.getDate())}get publishedISODateOnly(){return this.publishedDate.toISOString().split('T')[0]}get volume(){const e=this.publishedYear-2015;if(1>e)throw new Error('Invalid publish date detected during computing volume');return e}get issue(){return this.publishedDate.getMonth()+1}get concatenatedAuthors(){if(2
tag. We found the following text: '+t);const n=document.createElement('span');n.innerHTML=e.nodeValue,e.parentNode.insertBefore(n,e),e.parentNode.removeChild(e)}}}}).observe(this,{childList:!0})}}var Ti='undefined'==typeof window?'undefined'==typeof global?'undefined'==typeof self?{}:self:global:window,_i=f(function(e,t){(function(e){function t(){this.months=['jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec'],this.notKey=[',','{','}',' ','='],this.pos=0,this.input='',this.entries=[],this.currentEntry='',this.setInput=function(e){this.input=e},this.getEntries=function(){return this.entries},this.isWhitespace=function(e){return' '==e||'\r'==e||'\t'==e||'\n'==e},this.match=function(e,t){if((void 0==t||null==t)&&(t=!0),this.skipWhitespace(t),this.input.substring(this.pos,this.pos+e.length)==e)this.pos+=e.length;else throw'Token mismatch, expected '+e+', found '+this.input.substring(this.pos);this.skipWhitespace(t)},this.tryMatch=function(e,t){return(void 0==t||null==t)&&(t=!0),this.skipWhitespace(t),this.input.substring(this.pos,this.pos+e.length)==e},this.matchAt=function(){for(;this.input.length>this.pos&&'@'!=this.input[this.pos];)this.pos++;return!('@'!=this.input[this.pos])},this.skipWhitespace=function(e){for(;this.isWhitespace(this.input[this.pos]);)this.pos++;if('%'==this.input[this.pos]&&!0==e){for(;'\n'!=this.input[this.pos];)this.pos++;this.skipWhitespace(e)}},this.value_braces=function(){var e=0;this.match('{',!1);for(var t=this.pos,n=!1;;){if(!n)if('}'==this.input[this.pos]){if(0 =k&&(++x,i=k);if(d[x]instanceof n||d[T-1].greedy)continue;w=T-x,y=e.slice(i,k),v.index-=i}if(v){g&&(h=v[1].length);var S=v.index+h,v=v[0].slice(h),C=S+v.length,_=y.slice(0,S),L=y.slice(C),A=[x,w];_&&A.push(_);var E=new n(o,u?a.tokenize(v,u):v,b,v,f);A.push(E),L&&A.push(L),Array.prototype.splice.apply(d,A)}}}}}return d},hooks:{all:{},add:function(e,t){var n=a.hooks.all;n[e]=n[e]||[],n[e].push(t)},run:function(e,t){var n=a.hooks.all[e];if(n&&n.length)for(var d,r=0;d=n[r++];)d(t)}}},i=a.Token=function(e,t,n,i,a){this.type=e,this.content=t,this.alias=n,this.length=0|(i||'').length,this.greedy=!!a};if(i.stringify=function(e,t,n){if('string'==typeof e)return e;if('Array'===a.util.type(e))return e.map(function(n){return i.stringify(n,t,e)}).join('');var d={type:e.type,content:i.stringify(e.content,t,n),tag:'span',classes:['token',e.type],attributes:{},language:t,parent:n};if('comment'==d.type&&(d.attributes.spellcheck='true'),e.alias){var r='Array'===a.util.type(e.alias)?e.alias:[e.alias];Array.prototype.push.apply(d.classes,r)}a.hooks.run('wrap',d);var l=Object.keys(d.attributes).map(function(e){return e+'="'+(d.attributes[e]||'').replace(/"/g,'"')+'"'}).join(' ');return'<'+d.tag+' class="'+d.classes.join(' ')+'"'+(l?' '+l:'')+'>'+d.content+''+d.tag+'>'},!t.document)return t.addEventListener?(t.addEventListener('message',function(e){var n=JSON.parse(e.data),i=n.language,d=n.code,r=n.immediateClose;t.postMessage(a.highlight(d,a.languages[i],i)),r&&t.close()},!1),t.Prism):t.Prism;var d=document.currentScript||[].slice.call(document.getElementsByTagName('script')).pop();return d&&(a.filename=d.src,document.addEventListener&&!d.hasAttribute('data-manual')&&('loading'===document.readyState?document.addEventListener('DOMContentLoaded',a.highlightAll):window.requestAnimationFrame?window.requestAnimationFrame(a.highlightAll):window.setTimeout(a.highlightAll,16))),t.Prism}();e.exports&&(e.exports=n),'undefined'!=typeof Ti&&(Ti.Prism=n),n.languages.markup={comment://,prolog:/<\?[\w\W]+?\?>/,doctype://i,cdata://i,tag:{pattern:/<\/?(?!\d)[^\s>\/=$<]+(?:\s+[^\s>\/=]+(?:=(?:("|')(?:\\\1|\\?(?!\1)[\w\W])*\1|[^\s'">=]+))?)*\s*\/?>/i,inside:{tag:{pattern:/^<\/?[^\s>\/]+/i,inside:{punctuation:/^<\/?/,namespace:/^[^\s>\/:]+:/}},"attr-value":{pattern:/=(?:('|")[\w\W]*?(\1)|[^\s>]+)/i,inside:{punctuation:/[=>"']/}},punctuation:/\/?>/,"attr-name":{pattern:/[^\s>\/]+/,inside:{namespace:/^[^\s>\/:]+:/}}}},entity:/?[\da-z]{1,8};/i},n.hooks.add('wrap',function(e){'entity'===e.type&&(e.attributes.title=e.content.replace(/&/,'&'))}),n.languages.xml=n.languages.markup,n.languages.html=n.languages.markup,n.languages.mathml=n.languages.markup,n.languages.svg=n.languages.markup,n.languages.css={comment:/\/\*[\w\W]*?\*\//,atrule:{pattern:/@[\w-]+?.*?(;|(?=\s*\{))/i,inside:{rule:/@[\w-]+/}},url:/url\((?:(["'])(\\(?:\r\n|[\w\W])|(?!\1)[^\\\r\n])*\1|.*?)\)/i,selector:/[^\{\}\s][^\{\};]*?(?=\s*\{)/,string:{pattern:/("|')(\\(?:\r\n|[\w\W])|(?!\1)[^\\\r\n])*\1/,greedy:!0},property:/(\b|\B)[\w-]+(?=\s*:)/i,important:/\B!important\b/i,function:/[-a-z0-9]+(?=\()/i,punctuation:/[(){};:]/},n.languages.css.atrule.inside.rest=n.util.clone(n.languages.css),n.languages.markup&&(n.languages.insertBefore('markup','tag',{style:{pattern:/(
+
+
+ ${e.map(l).map((e)=>`
`)}}const Mi=`
+d-citation-list {
+ contain: layout style;
+}
+
+d-citation-list .references {
+ grid-column: text;
+}
+
+d-citation-list .references .title {
+ font-weight: 500;
+}
+`;class Oi extends HTMLElement{static get is(){return'd-citation-list'}connectedCallback(){this.hasAttribute('distill-prerendered')||(this.style.display='none')}set citations(e){x(this,e)}}var Ui=f(function(e){var t='undefined'==typeof window?'undefined'!=typeof WorkerGlobalScope&&self instanceof WorkerGlobalScope?self:{}:window,n=function(){var e=/\blang(?:uage)?-(\w+)\b/i,n=0,a=t.Prism={util:{encode:function(e){return e instanceof i?new i(e.type,a.util.encode(e.content),e.alias):'Array'===a.util.type(e)?e.map(a.util.encode):e.replace(/&/g,'&').replace(/e.length)break tokenloop;if(!(y instanceof n)){c.lastIndex=0;var v=c.exec(y),w=1;if(!v&&f&&x!=d.length-1){if(c.lastIndex=i,v=c.exec(e),!v)break;for(var S=v.index+(g?v[1].length:0),C=v.index+v[0].length,T=x,k=i,p=d.length;T
+
+`);class Ni extends ei(Ii(HTMLElement)){renderContent(){if(this.languageName=this.getAttribute('language'),!this.languageName)return void console.warn('You need to provide a language attribute to your
Footnotes
+
+`,!1);class Fi extends qi(HTMLElement){connectedCallback(){super.connectedCallback(),this.list=this.root.querySelector('ol'),this.root.style.display='none'}set footnotes(e){if(this.list.innerHTML='',e.length){this.root.style.display='';for(const t of e){const e=document.createElement('li');e.id=t.id+'-listing',e.innerHTML=t.innerHTML;const n=document.createElement('a');n.setAttribute('class','footnote-backlink'),n.textContent='[\u21A9]',n.href='#'+t.id,e.appendChild(n),this.list.appendChild(e)}}else this.root.style.display='none'}}const Pi=ti('d-hover-box',`
+
+
+