R/addOffsetType.R

In RObsDat: Data Management for Hydrology and Beyond Using the Observations Data Model

addOffsetType <- function(Units, Description){
	#all mandatory
	stopifnot(length(Units) == length(Description))

	#check ref: Units
	UnitsID <- getID("Units",Units)
	if(NROW(existing <- getMetadata("OffsetType",Description=Description, Units = UnitsID, exact=TRUE))>0){
		warning(paste("Existing OffsetType entry:", Description, ", Skipping all imports"))
		return()
	}
	IaddOffsetType(getOption("odm.handler"), Description=Description, Units=UnitsID)
}