Remvoe setwd()

[chainsawriot]

See gesistsa/rio#319

readODS/R/write_ods.R

Lines 8 to 19 in a81f54a

	.zip_tmp_to_path <- function(temp_ods_dir, path, overwrite = TRUE, flat = FALSE) {
	if (flat) {
	return(path) ## do nothing
	}
	wd <- getwd()
	on.exit(setwd(wd), add = TRUE)
	setwd(temp_ods_dir)
	zip::zip(basename(path), include_directories = FALSE, recurse = TRUE, files = dir(), mode = "cherry-pick")
	setwd(wd)
	file.copy(file.path(temp_ods_dir, basename(path)), path, overwrite = overwrite)
	return(path)
	}