Add shim for rstudioapi::documentPath() (#642)

posit-dev · Dec 3, 2024 · 17fb694 · 17fb694
1 parent 268cbe4
commit 17fb694
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/crates/ark/src/modules/rstudio/document-api.R b/crates/ark/src/modules/rstudio/document-api.R
@@ -33,7 +33,17 @@
     ))
 }
 
+#' @export
+.rs.api.documentPath <- function(id = NULL) {
+    # TODO: Support document IDs
+    stopifnot(is.null(id))
 
+    context <- .ps.ui.LastActiveEditorContext()
+    if (is.null(context)) {
+        return()
+    }
+    context$document$path
+}
 
 #' @export
 .rs.api.getActiveDocumentContext <- function() {