rosstat:

library(sf)
library(tidyr)
library(dplyr)
library(rosstat)
library(mapview)
data(rosstat_regions)

rst = read_rosstat('data-raw/12-03.docx')

tbl = docxtractr::read_docx('data-raw/12-03.docx') %>%
  docxtractr::docx_extract_all_tbls() %>%
  purrr::pluck(1)

rst$values %>% View()
rst$vars %>% View()
data.tree::as.Node(rst$vars)

dfsf = rosstat::to_sf(rst$values)

mapview(dfsf, zcol = 'var5', legend = TRUE)

rosstat::run_app()

mapview(rosstat_regions)

vls = rst$values


pts = st_centroid(unitary)

plot(pts['X6'])

mapview(unitary,
        col.regions = 'white') +
  mapview(centers, cex = 'X6')

tbl = read_rosstat('data-raw/24-11-1.docx')
tree = tree_rosstat(tbl)