data_dir <- system.file('extdata', package = 'babyTimeR')
baby_dann_db_nov <- read_one_bt_activity_file(
infile = file.path(data_dir, 'activity_Dann_202411.txt')
) |>
clean_bt_list_db()
baby_dann_db_dec<- read_one_bt_activity_file(
infile = file.path(data_dir, 'activity_Dann_202412.txt')
) |>
clean_bt_list_db()
baby_dann_db <- combine_clean_bt_list_dbs(
baby_dann_db_nov,
baby_dann_db_dec
)
Run the code above in your browser using DataLab