inst/extdata/insert.functions.R

In stranda/unpakDB: Database operations for unpak DB

###########33
#########    functions to test if observations can be inserted into a database.
############ and then insert them
##########AES 6 30 2013

#find the largest unique id for a plant in the individual plant table
largest.plantid <- function(con)
    {
        max(as.numeric(unlist(dbGetQuery(con,"SELECT idIndividualPlant FROM IndividualPlant"))))
    }

#check two vectors of names, if all of the second are not in the first, return FALSE
test.names <- function(names,required)
    {
        res <- as.logical(prod(required%in%names))
        if (!res)
            {
                print("these column names are missing from the input data")
                print(required[which(!(required%in%names))])
            }
        res
    }