# installazione
install.packages("rsdmx")

# pacchetti
library(rsdmx)
library(tidyverse)

# elenco dei dataset disponibili su Istat
istat.fl <- readSDMX(providerId = "ISTAT", resource = "dataflow") %>% 
  as.data.frame()

# ricerca per nome del dataset
istat.fl %>% 
  filter(str_detect(Name.it, "coppi"))

# download del dataset
sdmx.data <- readSDMX(providerId = "ISTAT", resource = "data", 
                      flowRef  = "174_65", 
                      dsd = T)

# dataframe con etichette
contr.genere <- as.data.frame(sdmx.data,
                              labels = TRUE)
# tibble senza etichette
contr.genere.s <-  as_tibble(sdmx.data)

# con filtro
readSDMX(providerId = "ISTAT", resource = "data", 
                      flowRef  = "174_65",
                      key = ".......11...2013.",
                      dsd = T)