[R-sig-DB] R-sig-DB Digest, Vol 74, Issue 2

[Nilza BARROS]

 Hi,
Your mistake is related with   "read.table(n)". I haven`t got what you want
but I put an example below (where I used loop to read many files). Hope it
helps. Anyway, I thougth should have sent your question to

<r-help using r-project.org>.
Bye
Nilza


=====example ====================
nomesout <- dir(dat.dir,pattern="^[s]") #obtem no diretorio de atual todos
arquivo iniciado com a letra s

OUT <- read.table(paste(dat.dir,nomesout[1] ,sep = ""),header = FALSE, sep =
",", na.strings = c("/","///","////","/////","//////"))

for(i in 2:length(nomesout)){

Y <- read.table(paste(dat.dir,nomesout[i] ,sep = ""),header = FALSE, sep =
",")

OUT <- rbind(OUT, Y)

}

OUT <- OUT[-1,] ## Remove linhas em branco


On Fri, Dec 17, 2010 at 9:00 AM, <r-sig-db-request using r-project.org> wrote:

> Send R-sig-DB mailing list submissions to
>        r-sig-db using r-project.org
>
> To subscribe or unsubscribe via the World Wide Web, visit
>        https://stat.ethz.ch/mailman/listinfo/r-sig-db
> or, via email, send a message with subject or body 'help' to
>        r-sig-db-request using r-project.org
>
> You can reach the person managing the list at
>        r-sig-db-owner using r-project.org
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of R-sig-DB digest..."
>
>
> Today's Topics:
>
>   1. Help with loop (Daniel)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Thu, 16 Dec 2010 21:47:47 -0200
> From: Daniel <dmsilv using gmail.com>
> To: r-sig-db using stat.math.ethz.ch
> Subject: [R-sig-DB] Help with loop
> Message-ID:
>        <AANLkTik0GOA-KHUoFtqocj4uV-C81TLkcESgKDTf3=eq using mail.gmail.com>
> Content-Type: text/plain
>
> Hello all,
> Is there a way to get each file from a website list and aggregate in a
> unique file?
> Otherwise I have to type 23 thousand web address into a long script like
> it:
>
> base1 <- read.table("site 1", sep=";", header=T,
> fileEncoding="windows-1252")
> base2 <- read.table("site 2", sep=";", header=T,
> fileEncoding="windows-1252")
>
> I need to download each .CSV file from each web address and "rbind" all
> them
> into one data frame.
> Also I need to translate each object to UTF-8. Of course many of address
> maybe be empty, so, my loop can't stops because this.
>
> I never type a loop before, so, in my first shot I get an error. Can
> somebody help me?
>
> myresult <- NULL
> n <-length(mysites)
> for (i in 1:n) {
>  bases <- read.table(n)
>  bases[i]<-read.table(mysites[[i]], sep=";", header=TRUE,
> fileEncoding="windows-1252")
> tudo <- rbind(myresult, bases)
> }
>
> Error in read.table(n) : 'file' must be a character string or connection
> --
> Daniel Marcelino
> Skype: dmsilv
> www.sites.google.com/site/politicaevoce/ <http://bit.ly/pol4vc>
>
>        [[alternative HTML version deleted]]
>
>
>
> ------------------------------
>
> _______________________________________________
> R-sig-DB mailing list
> R-sig-DB using r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-sig-db
>
>
> End of R-sig-DB Digest, Vol 74, Issue 2
> ***************************************
>



-- 
Abra�o,
Nilza Barros

	[[alternative HTML version deleted]]