How to append data into csv file in R?

[cy5...@gmail.com]

When I try to append data into .CSV file in R, the error occurred as below.

Do someone meet this error? and do you know what happened and how to solve it? 

Thanks for your information.

> AA <- read.csv(file="PerRange.csv", sep=",")

> AA

    X X.1                       ColName Min Max

1   1   1 number_customer_service_calls   0   0

2   2   2 number_customer_service_calls   0   0

3   3   3 number_customer_service_calls   0   1

4   4   4 number_customer_service_calls   1   1

5   5   5 number_customer_service_calls   1   1

6   6   6 number_customer_service_calls   1   2

7   7   7 number_customer_service_calls   2   2

8   8   8 number_customer_service_calls   2   3

9   9   9 number_customer_service_calls   3   3

10 10  10 number_customer_service_calls   3   9

> write.csv(AA, file="PerRange.csv", col.names=F, append=T)

Warning messages:

1: In write.csv(AA, file = "PerRange.csv", col.names = F, append = T) :

  attempt to set 'append' ignored

2: In write.csv(AA, file = "PerRange.csv", col.names = F, append = T) :

  attempt to set 'col.names' ignored

> 

[WEPA ^_^]

Hi friend,

Please refer to the online document for the write.csv command. In the CSV files section: "These wrappers are deliberately inflexible: they are designed to ensure that the correct conventions are used to write a valid file. Attempts to change append, col.names, sep, dec or qmethod are ignored, with a warning."

Please use write.table( ) command.

R code:

###

# title: read table from csv file

# date: 2014.4.4

AA <- read.csv(file="PerRange.csv", sep=",")

AA

# write.csv(AA[1:3,], file="PerRange.csv", col.names=F, append=T)

write.table(AA[1:3,], file="PerRange.csv", append=T, row.names=F, col.names=F,  sep=",")

AA.new <- read.csv(file="PerRange.csv", sep=",")

AA.new

# end

###

R output:

> # title: write table from csv file

> # date: 2014.4.4

> AA <- read.csv(file="PerRange.csv", sep=",")

> tail(AA, n=3)

    X X.1                       ColName Min Max

8   8   8 number_customer_service_calls   2   3

9   9   9 number_customer_service_calls   3   3

10 10  10 number_customer_service_calls   3   9

> # write.csv(AA[1:3,], file="PerRange.csv", col.names=F, append=T)

> write.table(AA[1:3,], file="PerRange.csv", append=T, row.names=F, col.names=F,  sep=",")

> AA.new <- read.csv(file="PerRange.csv", sep=",")

> AA.new

    X X.1                       ColName Min Max

1   1   1 number_customer_service_calls   0   0

2   2   2 number_customer_service_calls   0   0

3   3   3 number_customer_service_calls   0   1

4   4   4 number_customer_service_calls   1   1

5   5   5 number_customer_service_calls   1   1

6   6   6 number_customer_service_calls   1   2

7   7   7 number_customer_service_calls   2   2

8   8   8 number_customer_service_calls   2   3

9   9   9 number_customer_service_calls   3   3

10 10  10 number_customer_service_calls   3   9

11  1   1 number_customer_service_calls   0   0

12  2   2 number_customer_service_calls   0   0

13  3   3 number_customer_service_calls   0   1

> # end

 cy5...@gmail.com於 2014年4月3日星期四UTC+8下午5時54分35秒寫道：