R/add_row_numbers.R

In gpilgrim2670/JumpeR: Importing and Working with Track and Field Data

#' Add row numbers to raw results
#'
#' Takes the output of \code{read_results} and adds row numbers to it
#'
#' @param text output from \code{read_results}
#' @return returns a data frame with event names and row numbers to eventually be
#'   recombined with T&F results inside \code{swim_parse}
#'
#' @seealso \code{add_row_numbers} is a helper function inside
#'   \code{\link{tf_parse}}


add_row_numbers <- function(text) {
  row_numbs <- seq(1, length(text), 1)
  text <-
    paste(text, row_numbs, sep = "    ") # increased spacing 8/21

  return(text)
}