1 muutettua tiedostoa jossa 1 lisäystä ja 1 poistoa
+ 1
- 1
R/tidyr_helpers.R
Näytä tiedosto
| key_values <- names(x) | key_values <- names(x) | ||||
| key_values <- key_values[!key_values %in% ids] | key_values <- key_values[!key_values %in% ids] | ||||
| id_values <- x %>% select(one_of(ids)) | |||||
| id_values <- x %>% select(dplyr::one_of(ids)) | |||||
| id_values <- id_values %>% tidyr::gather(key = ".key_map", value = ".id_map") | id_values <- id_values %>% tidyr::gather(key = ".key_map", value = ".id_map") | ||||
| x <- x %>% mutate(.r = row_number()) %>% | x <- x %>% mutate(.r = row_number()) %>% |
Loading…