Add shim for rstudioapi::documentPath()

posit-dev · Nov 26, 2024 · ffbceb1 · ffbceb1
1 parent f3fffe3
commit ffbceb1
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() {