R/getDatabase.R

In xprimexinverse/pxRmisc: Miscellaneous helper functions for pxR package

Defines functions getDatabase

Documented in getDatabase

getDatabase <- function(px){
  if ("px" %in% class(px)){
    px$DATABASE$value
  }
}