chmod +x for whitebox_runner; closes #102

brownag · brownag · commit 20fad7555a3e · 2023-04-29T08:22:59.000-07:00
- and fix `wbt_runner_path(shell_quote=FALSE)`
diff --git a/R/wbt.R b/R/wbt.R
@@ -240,6 +240,7 @@ wbt_runner_path <- function(shell_quote = TRUE) {
   if (shell_quote) {
     return(shQuote(res))
   }
+  res
 }
 
 #' @title Launch 'WhiteboxTools Runner' GUI
@@ -609,6 +610,7 @@ wbt_install <- function(pkg_dir = wbt_data_dir(), platform = NULL, force = FALSE
     # subfolder WBT/whitebox_tools
     exe_path_out <- file.path(pkg_dir, "WBT", basename(exe_path))
     Sys.chmod(exe_path_out, '755')
+    Sys.chmod(file.path(dirname(exe_path_out), basename(wbt_runner_path(shell_quote = FALSE))), '755')
 
     # if (os == "Windows") {
     #   utils::unzip(exe_zip, exdir = pkg_dir)

Original file line number	Diff line number	Diff line change
`@@ -240,6 +240,7 @@ wbt_runner_path <- function(shell_quote = TRUE) {`
`240`	`240`	`if (shell_quote) {`
`241`	`241`	`return(shQuote(res))`
`242`	`242`	`}`
	`243`	`+ res`
`243`	`244`	`}`
`244`	`245`
`245`	`246`	`#' @title Launch 'WhiteboxTools Runner' GUI`
`@@ -609,6 +610,7 @@ wbt_install <- function(pkg_dir = wbt_data_dir(), platform = NULL, force = FALSE`
`609`	`610`	`# subfolder WBT/whitebox_tools`
`610`	`611`	`exe_path_out <- file.path(pkg_dir, "WBT", basename(exe_path))`
`611`	`612`	`Sys.chmod(exe_path_out, '755')`
	`613`	`+ Sys.chmod(file.path(dirname(exe_path_out), basename(wbt_runner_path(shell_quote = FALSE))), '755')`
`612`	`614`
`613`	`615`	`# if (os == "Windows") {`
`614`	`616`	`# utils::unzip(exe_zip, exdir = pkg_dir)`