remove line and col from token creators

This will conflict with #212

Author: lorenzwalthert

R/initialize.R

@@ -39,10 +39,7 @@ initialize_spaces <- function(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[c("line1", "line2", "col1", "col2")] <- NULL
   pd_flat
 }
 

R/nested.R

@@ -179,7 +179,5 @@ combine_children <- function(child, internal_child) {
 #' @param pd_nested A nested parse table.
 #' @return The line number on which the first token occurs.
 find_start_line <- function(pd_nested) {
-  if (pd_nested$terminal[1]) return(pd_nested$line1[1])
-  first_child <- which(!pd_nested$terminal)[1]
-  find_start_line(pd_nested$child[[first_child]])
+  pd_nested$line1[1]
 }