Code
library(arrow)
COM_1968 <- read_parquet("COM_1968.parquet")
COM_1968_var <- read_parquet("COM_1968_var.parquet")Données - INSEE
library(arrow)
COM_1968 <- read_parquet("COM_1968.parquet")
COM_1968_var <- read_parquet("COM_1968_var.parquet")COM_1968_var %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}COM_1968 %>%
filter(INSEE_COM == "92009") %>%
left_join(COM_1968_var, by = "variable") %>%
select(-INSEE_COM) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}