R/mlr_reshape.R

In mitchelllisle/mlr_package: MLR Functions

mlr_census_reshape <- function(read_file, id){
  x <- read.csv(read_file, check.names = FALSE)
  molten = reshape2::melt(x, id = id, na.rm = FALSE)
  data.frame(molten)
}

mlr_extract_hashes <- function(vec){
  hash.pattern = "#[[:alpha:]]+"
  have.hash = grep(x = vec, pattern = hash.pattern)
  hash.matches = gregexpr(pattern = hash.pattern, text = vec[have.hash])
  extracted.hash = regmatches(x = vec[have.hash], m = hash.matches)
  df = data.frame(table(tolower(unlist(extracted.hash))))
  colnames(df) = c("tag","freq")
  df = df[order(df$freq,decreasing = TRUE),]
  return(df)
}

mlr_replace_all_na <- function(dataframe){
  if(!is.data.frame(dataframe)){
    message("Please supply a dataframe")
  } else {
    dataframe[is.na(dataframe)] <- 0
    data.frame(dataframe) 
  }
}

mlr_date_local <- function(date){
  as.character(str_replace_all(date, "-", ""))
}