Merge pull request #24 from The-Strategy-Unit/23-urls

Add bare URLs to 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

renv.lock

@@ -39,13 +39,13 @@
     },
     "R6": {
       "Package": "R6",
-      "Version": "2.5.1",
+      "Version": "2.6.0",
       "Source": "Repository",
       "Repository": "CRAN",
       "Requirements": [
         "R"
       ],
-      "Hash": "470851b6d5d0ac559e9d01bb352b4021"
+      "Hash": "245934b1f739076a00b61ee7d9cd5233"
     },
     "Rcpp": {
       "Package": "Rcpp",
@@ -203,14 +203,14 @@
     },
     "digest": {
       "Package": "digest",
-      "Version": "0.6.37",
+      "Version": "0.6.35",
       "Source": "Repository",
       "Repository": "CRAN",
       "Requirements": [
         "R",
         "utils"
       ],
-      "Hash": "33698c4b3127fc9f506654607fb73676"
+      "Hash": "698ece7ba5a4fa4559e3d537e7ec3d31"
     },
     "dplyr": {
       "Package": "dplyr",
@@ -507,20 +507,19 @@
     },
     "pillar": {
       "Package": "pillar",
-      "Version": "1.9.0",
+      "Version": "1.10.1",
       "Source": "Repository",
       "Repository": "CRAN",
       "Requirements": [
         "cli",
-        "fansi",
         "glue",
         "lifecycle",
         "rlang",
         "utf8",
         "utils",
         "vctrs"
       ],
-      "Hash": "15da5a8412f317beeee6175fbc76f4bb"
+      "Hash": "8b16b6097daef84cd3c40a6a7c5c9d86"
     },
     "pkgconfig": {
       "Package": "pkgconfig",
@@ -619,7 +618,7 @@
     },
     "rsconnect": {
       "Package": "rsconnect",
-      "Version": "1.2.2",
+      "Version": "1.3.4",
       "Source": "Repository",
       "Repository": "CRAN",
       "Requirements": [
@@ -638,7 +637,7 @@
         "tools",
         "yaml"
       ],
-      "Hash": "77e9ed1307e84cd7ca1c7fb2cd7bbfe2"
+      "Hash": "315454d2f50d117ef58691d0bf50fe63"
     },
     "rstudioapi": {
       "Package": "rstudioapi",