diff --git a/data-raw/becat_cadastre.R b/data-raw/becat_cadastre.R index 29bfc21..c816a77 100644 --- a/data-raw/becat_cadastre.R +++ b/data-raw/becat_cadastre.R @@ -131,6 +131,13 @@ table(comarques$comarca) comarques <- comarques[, c("municipi", "comarca", "municipi_pdf", "comarca_pdf", "nom_fitxer")] usethis::use_data(comarques, overwrite = TRUE) +openxlsx::write.xlsx( + comarques, + file = "data-raw/comarques.xlsx", rowNames = FALSE, borders = "surrounding", colWidths = "auto", + firstRow = TRUE, headerStyle = openxlsx::createStyle(textDecoration = "BOLD") +) +readODS::write_ods(comarques, path = "data-raw/comarques.ods", row_names = FALSE) + ### Altres dades (data, autors, estat a l'IGN) ---- diff --git a/data-raw/fitxers_cadastre.R b/data-raw/fitxers_cadastre.R index ef47a3b..6b2c017 100644 --- a/data-raw/fitxers_cadastre.R +++ b/data-raw/fitxers_cadastre.R @@ -80,5 +80,15 @@ names(md5sum) <- gsub("^data-raw/pdf/|\\.pdf$", "", names(md5sum)) fitxers_cadastre <- merge(fitxers_cadastre, md5sum, by.x = "municipi", by.y = 0, all = TRUE) row.names(fitxers_cadastre) <- NULL + +## Desa ---- + # usethis::use_data(fitxers_cadastre, overwrite = TRUE) load("data/fitxers_cadastre.rda", verbose = TRUE) # fitxers_cadastre + +openxlsx::write.xlsx( + fitxers_cadastre, + file = "data-raw/fitxers_cadastre.xlsx", rowNames = FALSE, borders = "surrounding", colWidths = "auto", + firstRow = TRUE, headerStyle = openxlsx::createStyle(textDecoration = "BOLD") +) +readODS::write_ods(fitxers_cadastre, path = "data-raw/fitxers_cadastre.ods", row_names = FALSE) diff --git a/data-raw/metadades_becat_cadastre.R b/data-raw/metadades_becat_cadastre.R index a859d93..3361cad 100644 --- a/data-raw/metadades_becat_cadastre.R +++ b/data-raw/metadades_becat_cadastre.R @@ -282,3 +282,10 @@ capçaleres_partides[c("la Roca de l'Albera_CORREGIT", "la Roca de l'Albera_NO C ## Desa ---- usethis::use_data(meta_cadastre, overwrite = TRUE) + +openxlsx::write.xlsx( + meta_cadastre, + file = "data-raw/meta_cadastre.xlsx", rowNames = FALSE, borders = "surrounding", colWidths = "auto", + firstRow = TRUE, headerStyle = openxlsx::createStyle(textDecoration = "BOLD") +) +readODS::write_ods(meta_cadastre, path = "data-raw/meta_cadastre.ods", row_names = FALSE)