Skip to content

don't write row.names #24

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

don't write row.names #24

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
28 changes: 13 additions & 15 deletions README.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1111,7 +1111,7 @@ sqldf("select * from a where

numStr <- as.character(1:100)
DF <- data.frame(a = c(numStr, "Hello"))
write.table(DF, file = "tmp99.csv", quote = FALSE, sep = ",")
write.table(DF, file = "tmp99.csv", quote = FALSE, sep = ",", row.names = FALSE)
sqldf("select * from csvread('tmp99.csv') limit 5")

# Note that ~ does not work on Windows in H2: ###
Expand Down Expand Up @@ -2096,7 +2096,7 @@ another one with performance results
> # test of file connections with sqldf
>
> # create test .csv file of just 3 records
> write.table(head(iris, 3), "iris3.dat", sep = ",", quote = FALSE)
> write.table(head(iris, 3), "iris3.dat", sep = ",", quote = FALSE, row.names = FALSE)
>
> # look at contents of iris3.dat
> readLines("iris3.dat")
Expand Down Expand Up @@ -2127,8 +2127,7 @@ another one with performance results

> # Example 6c.
> # with this format, header=TRUE needs to be specified
> write.table(head(iris, 3), "iris3a.dat", sep = ",", quote = FALSE,
+ row.names = FALSE)
> write.table(head(iris, 3), "iris3a.dat", sep = ",", quote = FALSE, row.names = FALSE)
> iris3a <- file("iris3a.dat")
> sqldf("select * from iris3a", file.format = list(header = TRUE))
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
Expand All @@ -2148,7 +2147,7 @@ another one with performance results
> # Example 6e.
> # create a test file with all 150 records from iris
> # and select 4 records at random without reading entire file into R
> write.table(iris, "iris150.dat", sep = ",", quote = FALSE)
> write.table(iris, "iris150.dat", sep = ",", quote = FALSE, row.names = FALSE)
> iris150 <- file("iris150.dat")
> sqldf("select * from iris150 order by random(*) limit 4")
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
Expand Down Expand Up @@ -2297,11 +2296,11 @@ to override its choice. Here are two ways:
~~~~ {.prettyprint}
library(sqldf)

# example example 8a - file.format attribute on file.object
# example 8a - file.format attribute on file.object

numStr <- as.character(1:100)
DF <- data.frame(a = c(numStr, "Hello"))
write.table(DF, file = "~/tmp.csv", quote = FALSE, sep = ",")
write.table(DF, file = "~/tmp.csv", quote = FALSE, sep = ",", row.names = FALSE)
ff <- file("~/tmp.csv")

attr(ff, "file.format") <- list(colClasses = c(a = "character"))
Expand All @@ -2313,7 +2312,7 @@ tail(sqldf("select * from ff"))

numStr <- as.character(1:100)
DF <- data.frame(a = c(numStr, "Hello"))
write.table(DF, file = "~/tmp.csv", quote = FALSE, sep = ",")
write.table(DF, file = "~/tmp.csv", quote = FALSE, sep = ",", row.names = FALSE)
ff <- file("~/tmp.csv")

tail(sqldf("select * from ff",
Expand Down Expand Up @@ -2374,7 +2373,7 @@ a vector of sql statements in a single sqldf call.)
> # Example 10a.
>
> # create test .csv file of just 3 records (same as example 6)
> write.table(head(iris, 3), "iris3.dat", sep = ",", quote = FALSE)
> write.table(head(iris, 3), "iris3.dat", sep = ",", quote = FALSE, row.names = FALSE)
> # set up file connection
> iris3 <- file("iris3.dat")
> # creates connection so in memory database persists after sqldf call
Expand Down Expand Up @@ -2432,7 +2431,7 @@ reading it again using a persistent connection:
~~~~ {.prettyprint}
# Example 10c.

write.table(iris, "iris.csv", sep = ",", quote = FALSE)
write.table(iris, "iris.csv", sep = ",", quote = FALSE, row.names = FALSE)

sqldf()
read.csv.sql("iris.csv", sql = "select count(*) from file")
Expand Down Expand Up @@ -2492,8 +2491,8 @@ examples for more.

~~~~ {.prettyprint}
> # set up some test data
> write.table(head(iris, 3), "irishead.dat", sep = ",", quote = FALSE)
> write.table(tail(iris, 3), "iristail.dat", sep = ",", quote = FALSE)
> write.table(head(iris, 3), "irishead.dat", sep = ",", quote = FALSE, row.names = FALSE)
> write.table(tail(iris, 3), "iristail.dat", sep = ",", quote = FALSE, row.names = FALSE)
>
> library(sqldf)
>
Expand Down Expand Up @@ -2538,7 +2537,7 @@ redone using this facility:
# Example 13a.
library(sqldf)

write.table(iris, "iris.csv", sep = ",", quote = FALSE, row.names = FALSE)
write.table(iris, "iris.csv", sep = ",", quote = FALSE, row.names = FALSE, row.names = FALSE)
iris.csv <- read.csv.sql("iris.csv",
sql = 'select * from file where "Sepal.Length" > 5')

Expand Down Expand Up @@ -2593,8 +2592,7 @@ library(sqldf)

# create test data file
nms <- names(anscombe)
write.table(anscombe, "anscombe.dat", sep = ",", quote = FALSE,
row.names = FALSE)
write.table(anscombe, "anscombe.dat", sep = ",", quote = FALSE, row.names = FALSE)

j <- 2
DF2 <- fn$read.csv.sql("anscombe.dat", sql = "select `nms[j]` from file")
Expand Down