R/helperfunctions.r

In Daphnisd/hlptools: Help functions

#' add collunms to data frame
#' @export


fncols <- function(data, cname) {
  add <-cname[!cname%in%names(data)]
  if(length(add)!=0) data[add] <- as.character(NA)
  data
}


substrRight <- function(x, n){
  substr(x, nchar(x)-n+1, nchar(x))
}

#' get the rightmost characters from a string
#' @export

richtfrom <- function(x, y, n = 0) {
  substrRight(x, nchar(x)-stringr::str_locate(x, y)[1] - n)
  }


#' remove empty collumns and make all collumns into characters
#' @export

cleandataframe <- function (x) {

  x[x =='NA' | x =='' | x ==' '] <- NA
  x <- x[,colSums(is.na(x))<nrow(x)]
  x <- data.frame(lapply(x, as.character), stringsAsFactors=FALSE)

}