Merge pull request #92 from YoungjunNa/master

update hanwoo_kpn
adatalab · Aug 2, 2024 · 10df1b4 · 10df1b4
2 parents adfef6e + c1cf491
commit 10df1b4
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 4 deletions.
diff --git a/data-raw/hanwoo_kpn/DATASET.R b/data-raw/hanwoo_kpn/DATASET.R
@@ -6,7 +6,7 @@ library(dplyr)
 
 names(hanwoo::hanwoo_kpn)
 
-hanwoo_kpn <- readxl::read_excel("data-raw/hanwoo_kpn/kpn-nias-2402.xlsx") %>%
+hanwoo_kpn <- readxl::read_excel("data-raw/hanwoo_kpn/kpn-nias-2406.xlsx") %>%
   janitor::clean_names(case = "lower_camel", ascii = FALSE)
 
 glimpse(hanwoo::hanwoo_kpn)
@@ -18,21 +18,24 @@ ncol(hanwoo_kpn)
 tail(hanwoo::hanwoo_kpn)
 tail(hanwoo_kpn)
 
+# 이전 버전과 colnames 체크
 data.frame(
   old = names(hanwoo::hanwoo_kpn),
   new = names(hanwoo_kpn)
 ) %>%
   mutate(
     diff = ifelse(old == new, TRUE, FALSE)
   ) %>%
-  # filter(diff == FALSE) %>%
-  pull(diff) %>% table()
+  filter(diff == FALSE)
+  # pull(diff) %>% table()
 
 names(hanwoo::hanwoo_kpn)
 names(hanwoo_kpn)
 
+names(hanwoo_kpn) <- gsub("명호", "", names(hanwoo_kpn))
+
 # 만약 확인해보고.. colname 다른 것들 내용이 일치하면 기존 양식이랑 동일하게 진행
-names(hanwoo_kpn) <- names(hanwoo::hanwoo_kpn)
+# names(hanwoo_kpn) <- names(hanwoo::hanwoo_kpn)
 
 # use_data
 usethis::use_data(hanwoo_kpn, overwrite = TRUE)

diff --git a/data-raw/hanwoo_kpn/kpn-nias-2406.xlsx b/data-raw/hanwoo_kpn/kpn-nias-2406.xlsx
diff --git a/data/hanwoo_kpn.rda b/data/hanwoo_kpn.rda