command<-sprintf("%s classpath", Sys.getenv("HADOOP_CMD"))
hcp<-system(command, intern=TRUE)
hcp_filelist<-""
if (length(hcp) > 0) {
if(.Platform$OS.type == "windows") {
hcp<-strsplit(gsub("\\*","",hcp), ";")
} else {
hcp<-strsplit(gsub("\\*","",hcp), ":")
}
hcp_filelist<-hcp[[1]]
}
hadoop.CP <- c(hcp_filelist
,unlist(lapply(hcp_filelist, function(x) list.files(x, full.names=TRUE,pattern="jar$",recursive=FALSE)))
,list.files(paste(system.file(package="rhdfs"),"java",sep=.Platform$file.sep),pattern="jar$",full.names=T)
)
---
Can you do this? Hopefully we can get you going.