remove col and line columns

Author: lorenzwalthert

R/initialize.R

@@ -9,6 +9,7 @@ initialize_attributes <- function(pd_flat) {
   init_pd <-
     initialize_newlines(pd_flat) %>%
     initialize_spaces() %>%
+    remove_line_col() %>%
     initialize_multi_line() %>%
     initialize_indention_ref_id() %>%
     initialize_indent() %>%
@@ -37,6 +38,14 @@ initialize_spaces <- function(pd_flat) {
   pd_flat
 }
 
+remove_line_col <- function(pd_flat) {
+  pd_flat$line1 <- NULL
+  pd_flat$col1 <- NULL
+  pd_flat$line2 <- NULL
+  pd_flat$col2 <- NULL
+  pd_flat
+}
+
 #' @describeIn initialize_attributes Initializes `multi_line`.
 initialize_multi_line <- function(pd_flat) {
   nrow <- nrow(pd_flat)