trim white space as last serialization step

Author: lorenzwalthert

R/serialize.R

@@ -31,7 +31,8 @@ serialize_parse_data_nested_helper <- function(pd_nested, pass_indent) {
 
 #' Serialize a nested parse table
 #'
-#' Collapses a nested parse table into its character vector representation.
+#' Collapses a nested parse table into its character vector representation and
+#' removes trailing white spaces.
 #' @param pd_nested A nested parse table with line break, spaces and indention
 #'   information.
 #' @return A character string.
@@ -48,7 +49,8 @@ serialize_parse_data_nested <- function(pd_nested) {
 
 #' Serialize Flat Parse Data
 #'
-#' Collapses a parse table into character vector representation.
+#' Collapses a parse table into character vector representation and
+#' removes trailing white spaces.
 #' @param pd_flat A parse table.
 #' @details
 #'   The function essentially collapses the column text of `pd_flat`
@@ -66,12 +68,14 @@ serialize_parse_data_flat <- function(pd_flat) {
         collapse = "")) %>%
     .[["text_ws"]] %>%
     strsplit("\n", fixed = TRUE) %>%
-    .[[1L]]
+    .[[1L]] %>%
+    trimws(which = "right")
 }
 
 #' Serialize flattened parse data
 #'
-#' Collapses a flattened parse table into character vector representation.
+#' Collapses a flattened parse table into character vector representation and
+#' removes trailing white spaces.
 #' @param flattened_pd A flattened parse table.
 serialize_parse_data_flattened <- function(flattened_pd) {
   flattened_pd$lag_newlines[1] <- flattened_pd$line1[1] - 1
@@ -84,7 +88,8 @@ serialize_parse_data_flattened <- function(flattened_pd) {
         collapse = "")) %>%
     .[["text_ws"]] %>%
     strsplit("\n", fixed = TRUE) %>%
-    .[[1L]]
+    .[[1L]] %>%
+    trimws(which = "right")
 
 
 }