grammar

Author: lorenzwalthert

R/nested.R

@@ -101,7 +101,7 @@ add_terminal_token_before <- function(pd_flat) {
 #'
 #' @param spaces_after_prefix An integer vector with the number of spaces
 #'   after the prefix.
-#' @param text_lenght Integer vector giving the number of characters of
+#' @param text_length Integer vector giving the number of characters of
 #'   the text.
 #' @param force_one Whether spaces_after_prefix should be set to one in all
 #'   cases.

R/visit.R

@@ -104,8 +104,8 @@ context_towards_terminals <- function(pd_nested,
 #' @param pd_nested A nested parse table.
 extract_terminals <- function(pd_nested) {
   if (is.null(pd_nested)) return(pd)
-  pd_splitted <- split(pd_nested, seq_len(nrow(pd_nested)))
-  bind_rows(ifelse(pd_nested$terminal, pd_splitted, pd_nested$child))
+  pd_split <- split(pd_nested, seq_len(nrow(pd_nested)))
+  bind_rows(ifelse(pd_nested$terminal, pd_split, pd_nested$child))
 }