1## s$Id: read.xls.R 1423 2010-02-21 17:12:30Z ggrothendieck2 $ 2 3xlsFormats <- function(perl="perl", verbose=FALSE) 4{ 5 ## determine proper path to perl executable 6 perl <- if (missing(perl)) 7 findPerl(verbose = verbose) 8 else 9 findPerl(perl, verbose = verbose) 10 11 ## 12 ## directories 13 package.dir <- find.package('gdata') 14 perl.dir <- file.path(package.dir,'perl') 15 ## 16 ## 17 18 cmd <- "supportedFormats.pl" 19 sc <- file.path(perl.dir, cmd) 20 21 ## 22 ## 23 24 ## 25 ## execution command 26 27 cmd <- paste(shQuote(perl), shQuote(sc), sep=" ") 28 29 ## 30 31 if(verbose) 32 { 33 cat("\n") 34 cat("Determining supported formats...\n") 35 cat("\n") 36 } 37 38 ## 39 40 output <- system(cmd, intern=TRUE) 41 42 ## 43 44 if(verbose) cat("Results: ", output, "\n") 45 46 ## 47 48 retval <- unlist( strsplit(output," ")) 49 retval <- retval[ -c(1,2) ] 50 51 return(retval) 52} 53