R/check_database.R

In psygenet2r: psygenet2r - An R package for querying PsyGeNET and to perform comorbidity studies in psychiatric disorders

check_database <- function( database, 
                            allowed_db = c( "psycur15", "psycur16",  "ALL" ) ) {  
    #database <- toupper( database )
    if( sum( database %in% allowed_db ) == 1 ) {
        return( database )
    } else {
        stop("Invalid given 'database' ('", database, "'). ", 
             'Try ?psygenetGene or \"?psygenetDisease\" to check the ',
             'available databases.')
    }
}