R/HTTPGET.PUB.R

In jeroenooms/opencpu-legacy: OpenCPU

HTTPGET.PUB <- function(uri, fnargs){
	
	#split uri
	Rpackage <- uri[1];
	Robject  <- uri[2];
	Routput  <- uri[3];
	Rhelpout <- uri[4];
	
	#GET /R/pub
	if(is.na(Rpackage)){
		allpackages <- row.names(installed.packages());
		return(object2jsonfile(allpackages, fnargs, cache=TRUE));
	} 
	
	#GET /R/pub/somepackage
	if(is.na(Robject)){
		envirname <- paste("package", Rpackage, sep=":");
		if(envirname %in% search()){
			allobjects <- ls(envirname);
		} else {
			mynamespace <- loadNamespace(Rpackage);		
			allobjects <- getNamespaceExports(mynamespace);
		}
		return(object2jsonfile(allobjects, fnargs, cache=TRUE));
	} 
	
	#GET /R/pub/somepackage/someobject
	if(is.na(Routput)){
		myobject <- getExportedValue(Rpackage, Robject)
		return(object2jsonfile(outputformats, fnargs, cache=TRUE));
	} 	
	
	#GET /R/pub/somepackage/somefun/help
	if(Routput == "help"){
		return(
			HTTPGET.PUB.PACKAGE.OBJECT.HELP(Rpackage, Robject, Rhelpout)
		);
	}
	
	#GET /R/pub/somepackage/somefun/ascii
	return(
		HTTPGET.PUB.PACKAGE.OBJECT(Rpackage, Robject, Routput, fnargs)
	);
}