R/df.as.text.R

In crazybilly/ucbudar: A collection of functions and variables for working with data at UC Berkeley UDAR

#' Make a data frame into a delimited text Table
#'
#' @description collapse a data frame into a tab-separated text table, suitable for a .tsv file. Particularly useful for stringing multiple data frames together into a single report.
#'
#' @param df a data frame to convert to a vector
#' @param sep a delimiter. Defaults to tab-separated text.
#'
#' @return a character vector with one entry per row of the data frame. Each row is collapsed to a single entry with variables separated by tabs. NA and Inf values are replaced with blanks.
#'
#' @export
#'
df.as.text  <- function(df, sep = "\t") {
  stringr::str_replace_all(

    c(
        paste0(names(df),collapse="\t")
      , purrr::map_chr(1:nrow(df), ~ paste0(unlist(df[.x,]), collapse = sep) )
    )
    , "NA|Inf",""
  )
}