R/getLanguage.R

In xprimexinverse/pxRmisc: Miscellaneous helper functions for pxR package

Defines functions getLanguage

Documented in getLanguage

getLanguage <- function(px){
  if ("px" %in% class(px)){
    px$LANGUAGE
  }
}