R/viewer_save_image.R

Defines functions viewer_save_image

Documented in viewer_save_image

viewer_save_image <- function(from, to){

	# Decode 'to'
	to_decode <- URLdecode(to)
	to_decode <- gsub('[+]', ' ', to_decode)

	# Copy image file from temp folder
	file.copy(from=from, to=to_decode, overwrite=TRUE)

	#cat('from: ', from, '\n')
	#cat('to: ', to_decode, '\n')
	
	# Remove version in temp
	if(file.exists(from)) file.remove(from)
}
aaronolsen/svgViewR documentation built on Sept. 5, 2023, 12:45 a.m.