回答編集履歴
1
test
CHANGED
|
@@ -6,7 +6,8 @@
|
|
|
6
6
|
app_file <- "upd_pmab_gr_appl_case_biblog.tsv"
|
|
7
7
|
file_list <- Sys.glob(file.path(defrodir, "*", "JPWAP", app_file))
|
|
8
8
|
app <- file_list %>%
|
|
9
|
-
map_df(~read_tsv(., locale=locale(encoding="UTF-8"), show_col_types=FALSE)
|
|
9
|
+
map_df(~read_tsv(., locale=locale(encoding="UTF-8"), show_col_types=FALSE) %>%
|
|
10
|
+
mutate(abct_clmt_atty_id = as.character(abct_clmt_atty_id))) %>%
|
|
10
11
|
select(2, 20, 28, 43)
|
|
11
12
|
```
|
|
12
13
|
|