R/gtoxLoadAid.R

Defines functions gtoxLoadAid

Documented in gtoxLoadAid

#####################################################################
## This program is distributed in the hope that it will be useful, ##
## but WITHOUT ANY WARRANTY; without even the implied warranty of  ##
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the    ##
## GNU General Public License for more details.                    ##
#####################################################################

#-------------------------------------------------------------------------------
# gtoxLoadAid: Load assay id and name for the given fields
#-------------------------------------------------------------------------------

#' @rdname assay_funcs
#' @import data.table
#' @export

gtoxLoadAid <- function(fld=NULL, val=NULL, add.fld=NULL) {

    out <- c(
        "assay.aid",
        "assay.assay_name"
    )

    qstring <- .buildAssayQ(
        out=out,
        tblo=c(6, 1, 4, 3, 2),
        fld=fld,
        val=val,
        add.fld=add.fld
    )

    dat <- gtoxQuery(query=qstring, db=getOption("TCPL_DB"))

    dat[]

}

#-------------------------------------------------------------------------------
pmpsa-hpc/GladiaTOX documentation built on Sept. 1, 2023, 5:52 p.m.