통계 팩키지

statdata 팩키지 데이터를 정리합니다.

.csv 데이터

library(tidyverse)

statdata_raw <- fs::dir_ls("../statdata/inst/extdata/")

statdata_csv <- statdata_raw[str_detect(statdata_raw, "csv$")] %>% 
  str_remove("../statdata/inst/extdata/") %>% 
  str_remove("\\.csv")

statdata_tbl <- tibble(csv = statdata_csv)

statdata_tbl  %>% 
  reactable::reactable()

.csv → 팩키지 데이터

pkg_raw <- fs::dir_ls("../statdata/data/")

pkg_rda <- pkg_raw %>% 
  str_remove("../statdata/data/") %>% 
  str_remove("\\.rda")

rda_tbl <- tibble(rda = pkg_rda)

rda_tbl  %>%
  reactable::reactable()

.csv 와 .rda 연결

csv2rda_raw <- read_lines("../statdata/data-raw/DATASET.R")

csv2rda_mask <- str_detect(csv2rda_raw, pattern = "read_csv")

csv2rda_raw <- csv2rda_raw[csv2rda_mask] %>% 
  str_split(pattern = "read_csv", simplify  = TRUE) 

csv2rda_tbl <- csv2rda_raw %>% 
  as_tibble() %>% 
  set_names(c("rda", "csv")) %>% 
  mutate(rda = str_extract(rda, "[^\\s]*") %>% str_remove("_raw"),
         csv = str_extract(csv, "(?<=extdata).*?(?=\\.csv)")) %>% 
  mutate(csv = str_remove(csv, "/")) 

csv2rda_tbl %>% 
  reactable::reactable()

확인

csv2rda_tbl %>% 
  full_join(rda_tbl) %>% 
  full_join(statdata_tbl)  %>% 
  reactable::reactable()