minor updates

The-Strategy-Unit · Nov 8, 2023 · b1a6bfa · b1a6bfa
1 parent 02f8137
commit b1a6bfa
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 7 deletions.
diff --git a/R/golem_utils_server.R b/R/golem_utils_server.R
@@ -415,7 +415,7 @@ get_sentiment_text <- function(value) {
     value == 3 ~ "Neutral/Mixed",
     value == 4 ~ "Negative",
     value == 5 ~ "Negative",
-    TRUE ~ NA
+    TRUE ~ NA_character_
   )
 }
 

diff --git a/R/mod_header_message.R b/R/mod_header_message.R
@@ -24,11 +24,11 @@ mod_header_message_server <- function(id, pool, db_data, data_exists) {
       isolate({
         last_upload_date <- DBI::dbGetQuery(pool, paste0("SELECT MAX(last_upload_date) FROM ",
                                                          get_golem_config('trust_name')))$`MAX(last_upload_date)`
-        last_upload_date <- if (is.na(last_upload_date)) "No edit yet" else paste(strptime(last_upload_date, format = "%Y-%m-%d %H:%M"), "GMT")
+        last_upload_date <- if (is.na(last_upload_date)) "No edit yet" else paste(strptime(as.POSIXct(last_upload_date), format = "%Y-%m-%d %H:%M"))
 
         last_date_edit <- DBI::dbGetQuery(pool, paste0("SELECT MAX(last_edit_date) FROM ", 
                                                        get_golem_config('trust_name')))$`MAX(last_edit_date)`
-        last_date_edit <- if (is.na(last_date_edit)) "No edit yet" else paste(strptime(last_date_edit, format = "%Y-%m-%d %H:%M"), "GMT")
+        last_date_edit <- if (is.na(last_date_edit)) "No edit yet" else paste(strptime(as.POSIXct(last_date_edit), format = "%Y-%m-%d %H:%M"))
 
         total_users <- db_data %>%
           dplyr::pull(pt_id) %>%

diff --git a/R/mod_search_text.R b/R/mod_search_text.R
@@ -71,10 +71,6 @@ mod_search_text_server <- function(id, filter_data) {
         filter_text = text_search(),
         comment_type_filter = NULL, search_type = "and"
       ) |>
-        dplyr::mutate(across(c(category, super_category), ~ purrr::map(.x, jsonlite::fromJSON)),
-          super_category = lapply(super_category, unique), # to remove the duplicate values from each super category row
-          across(c(category, super_category), ~ purrr::map(.x, to_string))
-        ) |>
         prep_data_for_comment_table(in_tidy_format = FALSE)
     })