Quiero escribir un marco de datos de R en un archivo CSV. Considere el siguiente ejemplo de juguete

df <- data.frame(ID = c(1,2,3), X = c("a", "b", "c"), Y = c(1,2,NA))
df[which(is.na(df[,"Y"])), 1]

write.table(t(df), file = "path to CSV/test.csv", sep = ""), col.names=F, sep=",", quote=F)

La salida entest.csvse ve de la siguiente manera

ID,1,2,3
X,a,b,c
Y, 1, 2,NA

A primera vista, esto es exactamente como lo necesito, PERO lo que no se puede ver en la inserción de código anterior es que después deNA en la última línea, hay otro salto de línea. Cuando pasotest.csv a un gráfico Javascript en un sitio web, sin embargo, el salto de línea final causa problemas.

¿Hay alguna manera de evitar este salto de línea final dentro de R?