Source data {#source-data}

Structure {#structure}

Distribution {#distribution}

Files included {#files-included}

library(sf)library(dplyr)library(ggplot2)munic<- read_sf("dist/se89_3_admin_muni_a_x.gpkg",quiet=TRUE) %>%  filter(rotulo=="Arenas del Rey")ggplot(munic)+  geom_sf()+  facet_wrap(~fecha_alta,nrow=1)

munic %>%  st_drop_geometry() %>%  select(fecha_alta,fecha_baja,rotulo) %>%knitr::kable()

# 2010 shapeyear<-2010year.fmt<- as.Date(paste(year,"01","01",sep="-"))shp2010<-munic %>%# If fecha_baja is NA means it is the current valid shape  mutate(fecha_baja= ifelse(is.na(fecha_baja), Sys.Date(),fecha_baja)) %>%  filter(fecha_alta<year.fmt&year.fmt<=fecha_baja)ggplot(shp2010)+  geom_sf()+  labs(title=year)# 2017 shapeyear<-2017year.fmt<- as.Date(paste(year,"01","01",sep="-"))shp2017<-munic %>%  mutate(fecha_baja= ifelse(is.na(fecha_baja), Sys.Date(),fecha_baja)) %>%  filter(fecha_alta<year.fmt&year.fmt<=fecha_baja)ggplot(shp2017)+  geom_sf()+  labs(title=year)# Current valueshpcurrent<-munic %>% filter(is.na(fecha_baja))ggplot(shpcurrent)+  geom_sf()+  labs(title="Current")

Table of files {#table-of-files}

Preview {#preview}