R/addISOMetadata.R

Defines functions addISOMetadata

Documented in addISOMetadata

addISOMetadata <- function(TopicCategory="Unknown", Title="Unknown", Abstract="Unknown", ProfileVersion="Unknown", MetadataLink=NULL){

	theUnexisting <- rep(TRUE, length(Title))
	if(NROW(existing <- getMetadata("ISOMetadata",TopicCategory=TopicCategory, Title=Title))>0){
		warning(paste("Skiping existing ISOMetadata entry:", paste(existing[,3], collapse="; ")))
		theUnexisting <- !(Title %in% existing[,3])
	}
	if(!any(theUnexisting)){
		return()
	}
	#check from reference table
	if(!is.null(TopicCategory)){
		stopifnot(length(TopicCategory) == length(Title))
		TheTopicCategory <- getID("TopicCategory",TopicCategory[theUnexisting])
	} else {
		TheTopicCategory <- rep(NA, sum(theUnexisting))
	}
	if(Abstract=="Unknown") Abstract <- rep("Unknwon", length(Title))
	if(ProfileVersion=="Unknown") ProfileVersion <- rep("Unknwon", length(Title))
	if(Abstract=="Unknown") Abstract <- rep("Unknwon", length(Title))
	
	IaddISOMetadata(getOption("odm.handler"), TopicCategory=TheTopicCategory, Title= Title[theUnexisting], Abstract= Abstract[theUnexisting], ProfileVersion= ProfileVersion[theUnexisting], MetadataLink= MetadataLink[theUnexisting])

}

Try the RObsDat package in your browser

Any scripts or data that you put into this service are public.

RObsDat documentation built on May 31, 2017, 4:20 a.m.