| @@ -56,7 +56,7 @@ read_report_section <- function(section, info, report_path) { | |||
| } | |||
| names(data) <- snakecase::to_snake_case(names(data), parsing_option = 3) | |||
| post_process_steps_for_table(data, title) | |||
| data <- post_process_steps_for_table(data, title) | |||
| data <- mutate(data, !!!info, .before = 1) | |||
| structure(list(data), names = title) | |||
| @@ -73,7 +73,6 @@ pre_process_table_body <- function(table, header, body) { | |||
| if (all(stringr::str_count(body_lines_no_quoted_fields, ",") == exp_commas)) { | |||
| return(body) | |||
| } | |||
| browser() | |||
| i <- 1 | |||
| while (i < length(body_lines)) { | |||