avoid as.integer(NULL)

git-svn-id: https://svn.r-project.org/R/trunk@87407 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: ripley

src/library/utils/R/write.table.R

@@ -71,7 +71,7 @@ function (x, file = "", append = FALSE, quote = TRUE, sep = " ",
     nocols <- p == 0L
 
     if(is.logical(quote)) # must be false
-	quote <- NULL
+	quote <- integer(0) # NULL
     else if(is.numeric(quote)) {
 	if(any(quote < 1L | quote > p))
 	    stop("invalid numbers in 'quote'")