feat: implement rstudioapi::showPrompt() and rstudioapi::askForPassword() for sess package

Ported changes from PR #1694 to dev branch, targeting sess package instead of legacy R/session/. Added handlers in session.ts and helpers in rstudioapi.ts.

Author: randy3k

sess/R/rstudioapi.R

@@ -388,7 +388,14 @@ patch_rstudioapi <- function() {
     readRStudioPreference = readRStudioPreference,
     getConsoleEditorContext = .sess_not_yet_implemented,
     sourceMarkers = .sess_not_yet_implemented,
-    showPrompt = .sess_not_yet_implemented,
+    showPrompt = function(title, message, default = NULL) {
+      response <- request_client("rstudioapi/show_prompt", args = list(title = title, message = message, default = default))
+      response$response
+    },
+    askForPassword = function(prompt = "Please enter your password") {
+      response <- request_client("rstudioapi/ask_for_password", args = list(prompt = prompt))
+      response$response
+    },
     showQuestion = .sess_not_yet_implemented,
     updateDialog = .sess_not_yet_implemented,
     openProject = .sess_not_yet_implemented,

src/rstudioapi.ts

@@ -144,6 +144,27 @@ export function showDialog(message: string): void {
 
 }
 
+export async function showPrompt(
+    title: string, message: string, defaultValue?: string
+): Promise<{ response: string | null }> {
+    const result = await window.showInputBox({
+        title: title,
+        prompt: message,
+        value: defaultValue ?? '',
+    });
+    return { response: result ?? null };
+}
+
+export async function askForPassword(
+    prompt: string
+): Promise<{ response: string | null }> {
+    const result = await window.showInputBox({
+        prompt: prompt,
+        password: true,
+    });
+    return { response: result ?? null };
+}
+
 export async function navigateToFile(file: string, line: number, column: number): Promise<void>{
 
     const targetDocument = await workspace.openTextDocument(Uri.file(file));

src/session.ts

@@ -831,6 +831,12 @@ async function handleRequest(message: Record<string, unknown>, ws: ExtWebSocket)
                     rstudioapi.showDialog(String(params.message));
                     result = true;
                     break;
+                case 'rstudioapi/show_prompt':
+                    result = await rstudioapi.showPrompt(String(params.title), String(params.message), params.default as string | undefined);
+                    break;
+                case 'rstudioapi/ask_for_password':
+                    result = await rstudioapi.askForPassword(String(params.prompt));
+                    break;
                 case 'rstudioapi/navigate_to_file':
                     await rstudioapi.navigateToFile(String(params.file), Number(params.line), Number(params.column));
                     result = true;