Dear all,
I have a problem with the function read.xls from the gdata package, error
message see below. Two examples:
First, I try to read my data, which does not work;
Secondly, I tried the example code/data with the Iris data, which worked
Any idea?
Thanks,
Lars
> path<-"I:/subProjects/bh/HPGD/"
>
> setwd(path)
>
> xls <- "Platten_Liste_090421.xls"
>
> xlsfile <- file.path(path,xls)
>
> file.exists(xlsfile)
[1] TRUE
>
>
>
> oxl <- comCreateObject("Excel.Application")
>
> comSetProperty(oxl, "Visible", TRUE)
NULL
>
> owb <- comGetProperty(oxl, "Workbooks")
>
> ob <- comInvoke(owb, "Open", xlsfile)
>
> osheets <- comGetProperty(ob, "Worksheets")
>
> n <- comGetProperty(osheets, "Count")
>
> ithSheetName <- function(i) comGetProperty(comGetProperty(osheets, "Item",
> i), "Name")
>
> sheetNames <- sapply(1:n, ithSheetName)
>
> #> sheetNames
> # [1] "Platten gesamt" "Platte 1-5" "Platte 6-10"
> "Platte 11-15" "Platte 16-20" "Platte 21-25"
> # [7] "Platte 26-30" "Platte 31-35" "Platte 36-42"
> "Replikate Platte 1-10" "Replikate Platte 11-20" "Replikate Platte 21-30"
> #[13] "Replikate Platte 31-42"
>
>
> comInvoke(oxl, "Quit")
NULL
>
> read.xls(xlsfile, sheetNames[1], na.strings = c("na"," ","."),verbose=TRUE)
Converting xls file
"I:/subProjects/bh/HPGD//Platten_Liste_090421.xls"
to csv file
"C:\DOKUME~1\beckmann\LOKALE~1\Temp\RtmpCU2zBu\file4db74d06.csv"
...
Executing perl C:/Programme/R/R-2.8.1/library/gdata/perl/xls2csv.pl
"I:/subProjects/bh/HPGD//Platten_Liste_090421.xls"
"C:\DOKUME~1\beckmann\LOKALE~1\Temp\RtmpCU2zBu\file4db74d06.csv" Platten gesamt
...
Sheetnumber must be an integer larger than 0. at
C:/Programme/R/R-2.8.1/library/gdata/perl/xls2csv.pl line 57.
Done.
Fehler in xls2csv(xls, sheet, verbose = verbose, ..., perl = perl) :
Unable to read translated csv file
'C:\DOKUME~1\beckmann\LOKALE~1\Temp\RtmpCU2zBu\file4db74d06.csv'.
Fehler in file.exists(tfn) : ungültiges 'file' Argument
>
> xlsfile <- file.path(.path.package('gdata'),'xls','iris.xls')
> xlsfile
[1] "C:/Programme/R/R-2.8.1/library/gdata/xls/iris.xls"
>
> iris <- read.xls(xlsfile)
Converting xls file to csv file... Done.
Reading csv file... Done.
> head(iris) # look at the top few rows
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1 5.1 3.5 1.4 0.2 setosa
2 4.9 3.0 1.4 0.2 setosa
3 4.7 3.2 1.3 0.2 setosa
4 4.6 3.1 1.5 0.2 setosa
5 5.0 3.6 1.4 0.2 setosa
6 5.4 3.9 1.7 0.4 setosa
>
--
Jetzt kostenlos herunterladen: Internet Explorer 8 und Mozilla Firefox 3 -
sicherer, schneller und einfacher! http://portal.gmx.net/de/go/chbrowser
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
