Call 'rstudioapi' to set focus is R console

This has been bothering me for a long time. Finally found a way of transferring the focus to the console from a script in the editor pane!! Needs testing that it not causes difficulties when the functions are run at the console instead of through a script.

DESCRIPTION

@@ -2,7 +2,7 @@ Package: ooacquire
 Type: Package
 Title: Acquire Data from OO Spectrometers
 Version: 0.3.4.9000
-Date: 2023-05-26
+Date: 2023-05-30
 Authors@R:
    c(
     person("Pedro J.", "Aphalo", email = "pedro.aphalo@helsinki.fi", role = c("aut", "trl", "cre")),
@@ -40,6 +40,7 @@ Imports:
     magrittr (>= 2.0.3)
 Suggests:
     rOmniDriver (>= 0.1.19),
+    rstudioapi (>= 0.10),
     knitr (>= 1.39),
     rmarkdown (>= 2.14),
     testthat (>= 3.1.4)

R/acq-fraction-interactive.R

@@ -155,6 +155,12 @@ acq_fraction_interactive <-
 
     w <- start_session()
 
+    # Transfer focus to console (e.g., from editor pane)
+    if (requireNamespace("rstudioapi", quietly = TRUE) &&
+        rstudioapi::isAvailable()) {
+      rstudioapi::executeCommand('activateConsole')
+    }
+
     instruments <- list_srs_interactive(w = w)
     sr.index <- choose_sr_interactive(instruments = instruments)
     if (sr.index < 0L) {

R/acq-irrad-interactive.R

@@ -213,6 +213,12 @@ acq_irrad_interactive <-
     w <- start_session()
     on.exit(end_session(w)) # ensure session is always closed!
 
+    # Transfer focus to console (e.g., from editor pane)
+    if (requireNamespace("rstudioapi", quietly = TRUE) &&
+        rstudioapi::isAvailable()) {
+      rstudioapi::executeCommand('activateConsole')
+    }
+
     instruments <- list_srs_interactive(w = w)
     sr.index <- choose_sr_interactive(instruments = instruments)
     if (sr.index < 0L) {