Show full URLs in content download

Author: matt-dray

R/utils.R

@@ -8,7 +8,11 @@ check_env_vars <- function(required_env_vars) {
 }
 
 # Create a {DT} datatable with common settings
-create_dt <- function(dat, type = c("users", "content")) {
+create_dt <- function(
+    dat,
+    type = c("users", "content"),
+    ...  # pass further options
+) {
   dat |>
     DT::datatable(
       filter = "top",
@@ -23,7 +27,8 @@ create_dt <- function(dat, type = c("users", "content")) {
             extend = "csv",
             title = glue::glue("{Sys.Date()}_su-posit-connect_{type}-lookup")
           )
-        )
+        ),
+        ...
       )
     )
 }

index.qmd

@@ -71,9 +71,17 @@ This table shows one row per content item. There are `r n_content` content items
 
 content |> 
   dplyr::mutate(
-    content_url = glue::glue("<a href='{content_url}'>Link</a>"),
-    dashboard_url = glue::glue("<a href='{dashboard_url}'>Link</a>"),
+    content_link = glue::glue("<a href='{content_url}'>Link</a>"),
+    dashboard_link = glue::glue("<a href='{dashboard_url}'>Link</a>"),
     dplyr::across(dplyr::where(is.character), as.factor)
   ) |> 
-  create_dt("content")
+  create_dt(
+    "content",
+    columnDefs = list(
+      list(
+        visible = FALSE,
+        targets = c("content_url", "dashboard_url")
+      )
+    )
+  )
 ```

posit-connect-people.Rproj

@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: d00e3496-481b-4ff5-a061-0492ffc1ae2d
 
 RestoreWorkspace: Default
 SaveWorkspace: Default