R/hellno.R

In petermeissner/hellno: A Solution to the 'stringsAsFactors=FALSE' Problem

#' logical constant for FALSE
#' @export
HELLNO <- FALSE

#' alternative data.frame() implementation
#'
#' \code{hellno::data.frame()} wraps up \code{base::data.frame()} so that
#' \code{stringAsFactors} is set to \code{HELLNO} ( \code{== FALSE} ) by default
#' @param ... see \code{\link[base]{data.frame}}
#' @param stringsAsFactors see \code{\link[base]{data.frame}} by default set to \code{FALSE}
#' @seealso \code{\link[base]{data.frame}}
#' @export
data.frame <- function ( ..., stringsAsFactors = HELLNO ) {
  base::data.frame( ..., stringsAsFactors=stringsAsFactors )
}

#' alternative as.data.frame() implementation
#'
#' \code{hellno::as.data.frame()} wraps up \code{base::as.data.frame()} so that
#' \code{stringAsFactors} is set to \code{HELLNO} ( \code{== FALSE} ) by default
#' @param x see \code{\link[base]{as.data.frame}}
#' @param row.names see \code{\link[base]{as.data.frame}}
#' @param optional see \code{\link[base]{as.data.frame}}
#' @param stringsAsFactors see \code{\link[base]{as.data.frame}} by default set to \code{FALSE}
#' @param ... see \code{\link[base]{as.data.frame}}
#' @seealso \code{\link[base]{as.data.frame}}
#' @export
as.data.frame <- function (
  x, row.names = NULL, optional = FALSE, stringsAsFactors=HELLNO, ...
){
  base::as.data.frame(
    x, row.names = NULL, optional = FALSE, stringsAsFactors=stringsAsFactors, ...
  )
}

#' altenative rbind.data.frame() implementation
#'
#' @param ... see \code{\link[base]{rbind.data.frame}}
#' @param deparse.level see \code{\link[base]{rbind.data.frame}}
#' @param make.row.names see \code{\link[base]{rbind.data.frame}}
#' @param stringsAsFactors \code{\link[base]{rbind.data.frame}} by default set to \code{FALSE}
#' @seealso \code{\link[base]{rbind.data.frame}}
#' @export
rbind.data.frame <-
  function(..., deparse.level = 1, make.row.names = TRUE, stringsAsFactors = HELLNO){
  base::rbind.data.frame(
    ...,
    deparse.level = deparse.level,
    make.row.names = make.row.names,
    stringsAsFactors = stringsAsFactors
  )
  }

#' altenative rbind implementation
#'
#' @param ... see \code{\link[base]{rbind.data.frame}}
#' @param deparse.level see \code{\link[base]{rbind.data.frame}}
#' @seealso \code{\link[base]{rbind.data.frame}}
#' @export
rbind <- function (..., deparse.level = 1) {
  x <- list(...)
  iffer <- unlist(lapply(x, function(x){ class(x) %in% "data.frame" & sum(dim(x))==0 }))
 if( any(iffer) ){
  x <- do.call(base::rbind, x[!iffer])
    if( class(x) %in% "data.frame" ){
      x <- as.data.frame(x)
    }
  }else{
    x <- as.data.frame(do.call(base::rbind, x))
  }
  return(x)
}