R/gtoxLoadAeid.R

In philipmorrisintl/GladiaTOX: R Package for Processing High Content Screening data

#####################################################################
## 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.                    ##
#####################################################################

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

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

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

    out <- c(
        "assay_component_endpoint.aeid",
        "assay_component_endpoint.assay_component_endpoint_name"
    )

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

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

    dat[]

}

#-------------------------------------------------------------------------------