parse-number.R

parse-number.R

data_2020 <- tibble(
  id = 1:4,
  wk1 = c(1, "-", NA, 4),
  wk2 = c(1, "-", 3, 4)
)

data_2021 <- tibble(
  id = 1:4,
  wk1 = c(1, NA, 3, 4),
  wk2 = c(1, 2, 3, 4)
)

wrangle_data <- function(data){
  
  data %>% 
    pivot_longer(contains("wk")) %>% 
    mutate(value = parse_number(value))
  
}

data_2020 %>% 
  wrangle_data()

data_2021 %>% 
  wrangle_data()