Yes. Get it from here:
http://www.activestate.com/activeperl/
On Fri, Feb 5, 2010 at 10:10 AM, Gábor Pozsgai <pozsg...@gmail.com> wrote:
> Thank you both.
> Gabor, do I need perl to be installed onj my computer to use those functions?
>
> Gabor
>
> 2010/2/5 Kevin Wright <kw.s...@gmail.com>:
>> I have a function to read xls files that tells me the name of the available
>> sheets. See below.
>>
>> Kevin Wright
>>
>>
>> read.xls = function (file, sheet, condition)
>> {
>> if (missing(file))
>> stop("No file specified.")
>> if (!file.exists(file))
>> stop("File ", file, " does not exist in directory ",
>> getwd())
>> if (missing(sheet))
>> stop("No sheet specified.")
>> if (!require(RODBC, quietly = TRUE))
>> stop("The RODBC package is required.")
>> channel = odbcConnectExcel(file)
>> if (!RODBC:::odbcValidChannel(channel))
>> stop("first argument is not an open RODBC channel")
>> tables <- sqlTables(channel)
>> tables <- if (is.data.frame(tables))
>> tables[, "TABLE_NAME"]
>> else ""
>> tables <- gsub("\\$$", "", gsub("'", "", tables))
>> if (!(sheet %in% tables)) {
>> odbcClose(channel)
>> msg <- paste(paste("'", tables, "'", sep = ""), collapse = " ")
>> stop("Couldn't find requested sheet.\n", " Available sheets are: ",
>> msg)
>> }
>> qsheet <- paste("[", sheet, "$]", sep = "")
>> if (missing(condition))
>> data <- sqlQuery(channel, paste("select * from", qsheet))
>> else data <- sqlQuery(channel, paste("select * from", qsheet,
>> condition))
>> odbcClose(channel)
>> if (length(grep("#", names(data))) > 0)
>> cat("Caution: Column names may have had '.' changed to '#'.\n")
>> cat("Caution: Be careful with mixed-type columns that begin with\n")
>> cat(" some (15?) rows that are only numeric.\n")
>> cat(" Use str() and summary() to check the import.\n")
>> return(data)
>> }
>>
>>
>> On Fri, Feb 5, 2010 at 8:13 AM, Gábor Pozsgai <pozsg...@gmail.com> wrote:
>>>
>>> Dear All,
>>>
>>> I would like to count or list the names of the existing worksheets
>>> within an .xls file. Any hints?
>>>
>>> Thaks,
>>>
>>> Gabor
>>>
>>> --
>>> Pozsgai Gábor
>>> www.coleoptera.hu
>>> www.photogabor.com
>>>
>>> ______________________________________________
>>> 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.
>>
>>
>>
>> --
>> Kevin Wright
>>
>>
>
>
>
> --
> Pozsgai Gábor
> www.coleoptera.hu
> www.photogabor.com
>
> ______________________________________________
> 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.
>
______________________________________________
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.
