diff --git a/R/split_to_tbl.R b/R/split_to_tbl.R index eb469f2..82eb336 100644 --- a/R/split_to_tbl.R +++ b/R/split_to_tbl.R @@ -37,13 +37,13 @@ split_to_tbl <- function(file) { yaml_content <- yaml::yaml.load(rmd_lines[yaml_begin:yaml_end]) yaml_tbl <- tibble( type = "yaml", - label = NA, + label = NA_character_, params = list(yaml_content), text = NA, code = NA, - heading = NA, - heading_level = NA, - section = NA + heading = NA_character_, + heading_level = NA_real_, + section = NA_character_ ) # Get the rest of the document without yaml diff --git a/dev/flat_split_combine.Rmd b/dev/flat_split_combine.Rmd index 50dfcdc..9afdb8f 100644 --- a/dev/flat_split_combine.Rmd +++ b/dev/flat_split_combine.Rmd @@ -49,13 +49,13 @@ split_to_tbl <- function(file) { yaml_content <- yaml::yaml.load(rmd_lines[yaml_begin:yaml_end]) yaml_tbl <- tibble( type = "yaml", - label = NA, + label = NA_character_, params = list(yaml_content), text = NA, code = NA, - heading = NA, - heading_level = NA, - section = NA + heading = NA_character_, + heading_level = NA_real_, + section = NA_character_ ) # Get the rest of the document without yaml