R/internal.R

In ILSAstats: Statistics for International Large-Scale Assessments (ILSA)

#' Internal functions
#'
#' @param x an R object.
#'
#' @noRd




lu <- function(x){
  length(unique(x[!is.na(x)]))
}

sm <- function(x){
  
  suppressMessages(x)
  
}

sw <- function(x){
  
  
  suppressWarnings(x)}


omitna <- function(x){

  if(is.vector(x)|is.factor(x))
    return(x[!is.na(x)])
  
  
  x[rowSums(is.na(x))<1,,drop = FALSE]
  
}


untidy <- function(x){
  
  if(is.data.frame(x)|is.matrix(x))
    return(.untidy(x))
  
  lapply(x,.untidy)
  
}

.untidy <- function(x){
  out <- x
  out <- lapply(1:ncol(x),function(X){
    
    as.vector(out[,X,drop = TRUE])
    
  })
  
  out <- do.call(cbind.data.frame,out)
  colnames(out) <- colnames(x)
  out
  
}