Made Positron compatible: fallsback to text version of the dialogs when not implemented in Positron

Author: phgrosjean

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: svDialogs
 Type: Package
-Version: 1.1.1
+Version: 1.1.2
 Title: 'SciViews::R' - Standard Dialog Boxes for Windows, MacOS and Linuxes
 Description: Quickly construct standard dialog boxes for your GUI, including 
   message boxes, input boxes, list, file or directory selection, ... In case R

NEWS.md

@@ -1,3 +1,7 @@
+# svDialogs 1.1.2
+
+-   Made compatible with Positron as much as possible (many RStudio dialog boxes are NOT implemented in Positron, resulting in a fallback to the console text version).
+
 # svDialogs 1.1.1
 
 -   Updated CITATION file to the new format.

R/dlg_dir.R

@@ -129,7 +129,14 @@ rstudio = getOption("svDialogs.rstudio", TRUE), ..., gui = .GUI) {
 
 # RStudio version
 .rstudio_dlg_dir <- function(default = getwd(), title = "") {
-  res <- rstudioapi::selectDirectory(caption = title, path = default)
+  # Positron current (2025-11-06) fools rstudioapi, and it is recognized
+  # as RStudio (desktop). However, it does not implements
+  # rstudioapi::selectDirectory()
+  # Catch the error, and move to next implementation
+  res <- try(rstudioapi::selectDirectory(caption = title, path = default),
+    silent = TRUE)
+  if (inherits(res, "try-error"))
+    return(NULL)
   if (is.null(res)) {
     res <- character(0)
   } else{
@@ -140,13 +147,13 @@ rstudio = getOption("svDialogs.rstudio", TRUE), ..., gui = .GUI) {
 
 # Windows version
 .win_dlg_dir <- function(default = getwd(), title = "") {
-	res <- choose.dir(default = default, caption = title)
+  res <- choose.dir(default = default, caption = title)
   if (is.na(res)) {
     res <- character(0)
   } else {
     res <-  path.expand(gsub("\\\\", "/", res))
   }
-	res
+  res
 }
 
 # MacOS version

R/dlg_input.R

@@ -119,8 +119,14 @@ rstudio = getOption("svDialogs.rstudio", TRUE), ..., gui = .GUI) {
 .rstudio_dlg_input <- function(message, default) {
   if (rstudioapi::getVersion() < '1.1.67')
     return(NULL)
-  res <- rstudioapi::showPrompt(title = "R prompt", message = message,
-    default = default)
+  # Positron current (2025-11-06) fools rstudioapi, and it is recognized
+  # as RStudio (desktop). However, it does not implements
+  # rstudioapi::selectDirectory()
+  # Catch the error, and move to next implementation
+  res <- try(rstudioapi::showPrompt(title = "R prompt", message = message,
+    default = default), silent = TRUE)
+  if (inherits(res, "try-error"))
+    return(NULL)
   if (is.null(res)) {
     character(0)
   } else{

R/dlg_open.R

@@ -249,10 +249,17 @@ filters = dlg_filters["All", ], rstudio = getOption("svDialogs.rstudio", TRUE),
         label = "Open", existing = TRUE)
     }
   } else {# Single file
-    res <- rstudioapi::selectFile(caption = title, path = default,
-      label = "Open", existing = TRUE) #, filter = filters) # Does not work: filters are specified differently in RStudio!
+    # Positron current (2025-11-06) fools rstudioapi, and it is recognized
+    # as RStudio (desktop). However, it does not implements
+    # rstudioapi::selectDirectory()
+    # Catch the error, and move to next implementation
+    res <- try(rstudioapi::selectFile(caption = title, path = default,
+      label = "Open", existing = TRUE), #, filter = filters) # Does not work: filters are specified differently in RStudio!
+      silent = TRUE)
+    if (inherits(res, "try-error"))
+      return(NULL)
   }
-  if (is.null(res) || res == "") {
+  if (is.null(res) || (length(res) == 1L && res == "")) {
     res <- character(0)
   } else{
     res <-  path.expand(gsub("\\\\", "/", res))

R/dlg_save.R

@@ -166,10 +166,18 @@ rstudio = getOption("svDialogs.rstudio", TRUE), ..., gui = .GUI) {
   title = "", filters = dlg_filters["All", ]) {
   if (rstudioapi::getVersion() < '1.1.287')
     return(NULL)
+  # Positron current (2025-11-06) fools rstudioapi, and it is recognized
+  # as RStudio (desktop). However, it does not implements
+  # rstudioapi::selectDirectory()
+  # Catch the error, and move to next implementation
+
   # I don't understand how filter is used in selectFile(). So, I prefer **not**
   # to use it for now!
-  res <- rstudioapi::selectFile(caption = title, path = default,
-      label = "Save", existing = FALSE) #, filter = filters) # Filter implemented differently on RStudio
+  res <- try(rstudioapi::selectFile(caption = title, path = default,
+      label = "Save", existing = FALSE), #, filter = filters) # Filter implemented differently on RStudio
+    silent = TRUE)
+  if (inherits(res, "try-error"))
+    return(NULL)
   if (is.null(res)) {
     res <- character(0)
   } else{

R/svDialogs-internal.R

@@ -22,6 +22,12 @@
 
 .is_rstudio_desktop <- function() rstudioapi::versionInfo()$mode == "desktop"
 
+# Positron fools rstudioapi, letting it beleive it is RStudio
+# This trick is the only one I found to get Positron from rstudioapi
+# (but one could also seach for "tools:positron" on the search path)
+.is_positron <- function()
+  grepl("Positron", rstudioapi::versionInfo()$citation, fixed = TRUE)
+
 # With yad or zenity, I cannot have double quotes inside strings: escape them
 .escape_quotes <- function(str) {
   # For yad messages, we need to escape double quotes **inside** messages