R/data_structure.R

In shahryareiv/singleverbr: Express Your R Shorter

# from here: https://gist.github.com/aammd/9ae2f5cce9afd799bafb (by Hadley)
#' Converts a list to a dataframe with 'list.element' and 'names' columns
#'
#' @param listfordf
#'
#' @return
#' @export
#'
#' @examples
sv_list_to_df <- function(listfordf){

  if(!is.list(listfordf)) stop("it should be a list")

  df <- list(list.element = listfordf)
  class(df) <- c("tbl_df", "data.frame")
  attr(df, "row.names") <- .set_row_names(length(listfordf))

  if (!is.null(names(listfordf))) {
    df$name <- names(listfordf)
  }

  df
}



#' Converts a data.frame to a factor data.frame each var with the.levels level
#'
#' @param data.df
#' @param the.levels
#' @param be.ordered
#'
#' @return
#' @export
#'
#' @examples
sv_as_factor.dataframe <- function(data.df, the.levels , be.ordered = TRUE){
  # as.data.frame(lapply(data.df, factor, levels = 1:the.levels))
  as.data.frame( lapply( data.df, function(x){factor(x, ordered = be.ordered)}) )
}


#' Converts a data.frame to an integer data.frame
#'
#' @param data.df
#'
#' @return
#' @export
#'
#' @examples
sv_as_integer.dataframe <- function(data.df){

  as.data.frame( lapply( data.df, function(x){as.integer(x)}) )
}