| } | } | ||||
| names(data) <- snakecase::to_snake_case(names(data), parsing_option = 3) | 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) | data <- mutate(data, !!!info, .before = 1) | ||||
| structure(list(data), names = title) | structure(list(data), names = title) | ||||
| if (all(stringr::str_count(body_lines_no_quoted_fields, ",") == exp_commas)) { | if (all(stringr::str_count(body_lines_no_quoted_fields, ",") == exp_commas)) { | ||||
| return(body) | return(body) | ||||
| } | } | ||||
| browser() | |||||
| i <- 1 | i <- 1 | ||||
| while (i < length(body_lines)) { | while (i < length(body_lines)) { |