data-raw/includi_dati.R

In master-info/masteRomi: Dati, Poligoni e altro per analisi di Zone OMI

########################################################################
# Copia tabelle aggiuntive e mappa leaflet di base in PACKAGE DATA DIR #
########################################################################
# Da eseguire *dopo* aver aggiornato i dati usando gli script 11, 21, 22, 23

masteRfun::load_pkgs('data.table')
load_all()

# Tabelle Ausiliarie: Utilizzi, Tipologie, Variazioni (da compilare manualmente alla fine delle elaborazioni)
salva_dts_pkg( fread('./data-raw/csv/utilizzi.csv'), 'utilizzi', omi_path$output, dbn = omi_path$dbn )
salva_dts_pkg( fread('./data-raw/csv/tipologie.csv'), 'tipologie', omi_path$output, dbn = omi_path$dbn )
salva_dts_pkg( fread('./data-raw/csv/variazioni.csv'), 'variazioni', omi_path$output, dbn = omi_path$dbn )

# Tabella Comuni >>> vedi script `11`

# Lista OMI per comune
y <- masteRgeo::comuni[, .(catasto, CMNd)][zone[is.na(termine), .(OMI, OMId, catasto)], on = 'catasto'
            ][, .(OMId, OMI, CMNd)][order(CMNd, OMI)] |> 
        crea_lista(TRUE)
salva_dts_pkg(y, 'omi.lst', as_db = FALSE, csv_in_pkg = FALSE)

# Lista comuni
y <- masteRgeo::comuni[, .(catasto, CMNd)][comuni[is.na(termine), .(catasto)][order(CMNd)], on = 'catasto'][order(CMNd)] |> 
        crea_lista()
salva_dts_pkg(y, 'cmn.lst', as_db = FALSE, csv_in_pkg = FALSE)

# Tabella Province
y <- masteRgeo::zone[tipo == 'PRV', .(PRV = codice, PRVd = descrizione, bb_xmin, bb_ymin, bb_xmax, bb_ymax)]
y <- unique(masteRgeo::comuni[, .(PRV, PRVs)])[y, on = 'PRV']
salva_dts_pkg(y, 'province', as_db = FALSE, csv_in_pkg = FALSE)

# Lista Province
y <- crea_lista(unique(masteRgeo::comuni[, .(PRVd, PRVs)])[order(PRVd)][, .(PRVs, PRVd)])
salva_dts_pkg(y, 'prv.lst', as_db = FALSE, csv_in_pkg = FALSE)

# # Mappa di base
# y <- masteRmappe::mappa_base(menu = FALSE, tiles = tiles.lst[[2]], add_pb_menu = FALSE, extras = NULL) |>
#         fitBounds(bbox.it[1, 1], bbox.it[2, 1], bbox.it[1, 2], bbox.it[2, 2]) |>
#         registerPlugin(spinPlugin) |>
#         registerPlugin(leafletspinPlugin) |>
#         clearShapes() |>
#         masteRshiny::fine_mappa_spin()
# salva_dts_pkg(y, 'mps', as_db = FALSE, csv_in_pkg = FALSE)

# Confini Comuni >>> vedi script `23` per i confini `CMNz` allineati con i confini sezioni ISTAT
salva_dts_pkg( readRDS(file.path(bnd_path, 'CMNz', 's20', '0')), 'CMN', as_db = FALSE, csv_in_pkg = FALSE)