add the close in on.exit before opening the connection

[cderv]

This fixes #1050 by adding the on.exit(close(con, add = TRUE)) before opening the connection as in other function like write_file

readr/R/file.R

Lines 49 to 58 in 192cb1c

	write_file <- function(x, path, append = FALSE) {
	path <- standardise_path(path, input = FALSE)
	if (!isOpen(path)) {
	on.exit(close(path), add = TRUE)
	if (isTRUE(append)) {
	open(path, "ab")
	} else {
	open(path, "wb")
	}
	}

[jimhester]

Thanks, can you please add a bullet to NEWS? It should briefly describe the change and end with (@yourname, #issuenumber).

[cderv]

I was not sure it was considered as a user-facing change. done.

[jimhester]

Thanks Christophe!