Binding for 'tags' and 'fields_metadata' in job_status_emails.R

JRaviLab · Oct 3, 2024 · 08c6d55 · 08c6d55
1 parent 94369a2
commit 08c6d55
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/.RData b/R/.RData
diff --git a/R/job_status_emails.R b/R/job_status_emails.R
@@ -95,10 +95,10 @@ make_job_results_url <- function(
 #' }
 format_job_args <- function(job_args) {
     # format job arguments into html-formatted key/value pairs
-    job_args_list <- tags$ul(lapply(names(job_args), function(key) {
+    job_args_list <- .data$tags$ul(lapply(names(job_args), function(key) {
         # look up human labels for field names, values, if available
         # (if not, just use the keys and values as-is)
-        field_meta <- fields_metadata[[key]]
+        field_meta <- .data$fields_metadata[[key]]
         human_key <- tryCatch(
             {
                 toString(
@@ -136,8 +136,8 @@ format_job_args <- function(job_args) {
         # which works fine for our purposes.
         human_value <- toString(lapply(value, humanize_value))
 
-        tags$li(
-            tags$b(paste0(human_key, ":")),
+        .data$tags$li(
+           .data$tags$b(paste0(human_key, ":")),
             human_value
         )
     }))