[education/rkward/devel/workspace_output] rkward/rbackend/rpackages/rkward/R: URLdecode no longer accepts a null argument.

[Thomas Friedrichsmeier]

Git commit 0e4fa0bf817946d282815a6a19431883d39e6611 by Thomas Friedrichsmeier.
Committed on 28/10/2020 at 18:00.
Pushed by tfry into branch 'devel/workspace_output'.

URLdecode no longer accepts a null argument.

M  +3    -2    rkward/rbackend/rpackages/rkward/R/rk.workspace-functions.R

https://invent.kde.org/education/rkward/commit/0e4fa0bf817946d282815a6a19431883d39e6611

diff --git a/rkward/rbackend/rpackages/rkward/R/rk.workspace-functions.R b/rkward/rbackend/rpackages/rkward/R/rk.workspace-functions.R
index 45e04d8a..e9607248 100644
--- a/rkward/rbackend/rpackages/rkward/R/rk.workspace-functions.R
+++ b/rkward/rbackend/rpackages/rkward/R/rk.workspace-functions.R
@@ -38,8 +38,9 @@
 #' @export
 "rk.save.workplace" <- function (file=NULL, description=NULL) {
 	if (is.null (file)) {
-		file <- URLdecode (rk.get.workspace.url ())
-		if (is.null (file)) file <- rk.get.tempfile.name (prefix="unsaved", extension=".RData", directory=rk.tempdir ())
+		file <- rk.get.workspace.url ()
+		if (is.null(file)) file <- rk.get.tempfile.name (prefix="unsaved", extension=".RData", directory=rk.tempdir ())
+		else file <- URLdecode(file)
 		file <- paste (file, "rkworkplace", sep=".")
 	}
 	if (is.null (description)) lines <- .rk.do.plain.call ("workplace.layout", "get")