[annotation] Less intrusive role string sanitization.

Author: ml-ebs-ext

R/mod_listings.R

@@ -389,7 +389,7 @@ listings_server <- function(module_id,
       "clear_filters",
       # NOTE(miguel): Added here for easier merge with other branches
       # TODO(miguel): Move elsewhere after merging 
-      REV_UI(ns = ns, roles = review[["roles"]])[["input_ids_to_exclude_from_bookmarking"]]
+      REV_UI(ns = ns, roles = character(0))[["input_ids_to_exclude_from_bookmarking"]]
     ))
 
     # Bookmarking (end)
@@ -429,6 +429,10 @@ listings_server <- function(module_id,
       } else {
         fs_client <- fs_init(fs_callbacks, review[["store_path"]])
       }
+      
+      # Overly restrictive sanitization of role strings, as they will be used for file names:
+      # TODO: Consider adapting https://github.com/r-lib/fs/blob/main/R/sanitize.R instead to allow alternative charsets
+      review[["roles"]] <- gsub("[^a-zA-Z0-9 _.-]", "", review[["roles"]]) # Accepts alpha+num+space+'.'+'_'+'-'
 
       output[[TBL$REVIEW_UI_ID]] <- shiny::renderUI(
         shinyWidgets::dropdownButton(

R/review.R

@@ -69,7 +69,7 @@ REV_include_review_info <- function(annotation_info, data, col_names, extra_col_
 }
 
 REV_UI <- function(ns, roles) {
-  choices <- setNames(c("", roles), c("<select reviewer role>", make.names(roles)))
+  choices <- setNames(c("", roles), c("<select reviewer role>", roles))
 
   res <- list()
   res[["ui"]] <- shiny::tagList(
@@ -108,8 +108,6 @@ REV_load_annotation_info <- function(folder_contents, review, dataset_lists) {
     folder_IO_plan <<- c(folder_IO_plan, list(action))
   }
 
-  review[["roles"]] <- make.names(review[["roles"]])
-
   for (dataset_lists_name in names(dataset_lists)) {
     sub_res <- list()
     dataset_list <- dataset_lists[[dataset_lists_name]]
@@ -590,7 +588,7 @@ REV_logic_2 <- function(ns, state, input, review, datasets, selected_dataset_lis
       SH$double_to_raw(timestamp)
     )
 
-    fname <- paste0(dataset_name, "_", make.names(role), ".review")
+    fname <- paste0(dataset_name, "_", role, ".review")
 
     IO_plan <- list(
       list(