R/dvMetadataFormats.r

Defines functions dvMetadataFormats

Documented in dvMetadataFormats

dvMetadataFormats <- function(objectid, dv = getOption('dvn'), browser=FALSE, ...){
	if(inherits(objectid, 'dvStudyAtom'))
        objectid <- objectid$objectId
    xml <- dvQuery(verb = "metadataFormatsAvailable", query = objectid, dv = dv, browser=browser, ...)
	if(is.null(xml))
		invisible(NULL)
	else if(browser==FALSE){
		searchterms <- xpathApply(xmlParse(xml),"//formatAvailable")
		if(length(searchterms)>0){
			d <- data.frame(matrix(nrow=length(searchterms),ncol=3))
			names(d) <- c("formatName","formatSchema","formatMime")
			for(i in 1:length(searchterms)){
				d$formatName[i] <- xmlValue(xmlChildren(searchterms[[i]])$formatName)
				d$formatSchema[i] <- xmlValue(xmlChildren(searchterms[[i]])$formatSchema)
				d$formatMime[i] <- xmlValue(xmlChildren(searchterms[[i]])$formatMime)
			}
			return(d)
		}
		else
			return(NULL)
	}
}
leeper/dvn documentation built on May 21, 2019, 12:36 a.m.