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