R/prepField.R

Defines functions .prepField

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

#-------------------------------------------------------------------------------
# prepField: Paste appropriate table name to field name
#-------------------------------------------------------------------------------

#' @title Paste appropriate table name to field name
#'
#' @description Paste appropriate table name to field name
#'
#' @param fld Character, the table fields
#' @param tbl Character, the possible tables
#' @param db Character, the database containing the tables
#'
#' @details
#' The function loops through the given tables, and for each field i it assigns
#' the last table containing i to i. ORDER OF FLD MATTERS!!
#'
#' @keywords internal
#' 
#' @import data.table
#' @return List of fields
#' 

.prepField <- function(fld, tbl, db) {

    tbl_flds <- lapply(tbl, gtoxListFlds, db=db)
    pre <- rep(NA_character_, length(fld))

    for (i in seq_along(tbl)) {

        pre[fld %in% tbl_flds[[i]]] <- tbl[i]

    }

    if (any(is.na(pre))) stop("Not all given fields available in query.")

    paste(pre, fld, sep=".")

}

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