col_hrs_a <- "ph_y_mctq__fd_001__01a"
col_hrs_b <- "ph_y_mctq__fd_001__01b"
col_minute <- "ph_y_mctq__fd_001__02"
name <- "ph_y_mctq__fd__bed__start__24h_t"
data <- dplyr::tibble(
ph_y_mctq__fd_001__01a = c(NA, NA, NA, NA, NA, 1, 7, 3, NA),
ph_y_mctq__fd_001__01b = c(6, 7, 8, 8, 10, NA, NA, NA, NA),
ph_y_mctq__fd_001__02 = c(1, 1, 1, 7, 7, 1, 4, 1, NA)
)
convert_time_mctq(data, name, col_hrs_a, col_hrs_b, col_minute)
name <- "ph_y_mctq__fd__bed__start__36h_t"
convert_time_mctq(data, name, col_hrs_a, col_hrs_b, col_minute, "36h")
Run the code above in your browser using DataLab