Remove purrr dependency - replace pluck with base R

Co-authored-by: gadenbuie <[email protected]>

Author: Copilot

pkg-r/DESCRIPTION

@@ -23,7 +23,6 @@ Imports:
     htmltools,
     lifecycle,
     promises,
-    purrr,
     R6,
     rlang (>= 1.1.0),
     shiny,

pkg-r/R/data_source.R

@@ -304,7 +304,7 @@ DBISource <- R6::R6Class(
 
       # Default to 'POSIX' if dbms name not found
       conn_info <- DBI::dbGetInfo(private$conn)
-      dbms_name <- purrr::pluck(conn_info, "dbms.name", .default = "POSIX")
+      dbms_name <- if (is.null(conn_info[["dbms.name"]])) "POSIX" else conn_info[["dbms.name"]]
 
       # Remove ' SQL', if exists (SQL is already in the prompt)
       gsub(" SQL", "", dbms_name)