R/moas-utils.R

In LCBC-UiO/MOAS: MOAS convenience functions

get_moas <- function(MOAS){
  if(is.character(MOAS)){
    nn <- load(MOAS)
    get(nn)
  }else{
    MOAS
  }
}

#' Utility function to remove columns with no data
#'
#' \code{na.col.rm} Removes columns from the
#' data frame that does not contain any data.
#'
#' @param data a data.frame
#'
#' @return a data frame with no empty columns

#' @examples
#' df <- data.frame(
#' ID = 1:3,
#' Age = c(22, 25,17),
#' Sex = NA,
#' group = NA
#' )
#' na_col_rm(df)
#' @export
na_col_rm = function(data) {
  NaNidx = apply(data, 2, function(x) all(is.na(x)))
  data[, !NaNidx]
}