explicitly convert collection_date to character type during specimen …

…checking
EPPIcenter · Jan 23, 2024 · 6621c78 · 6621c78
1 parent 4896408
commit 6621c78
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/UploadSamples.R b/R/UploadSamples.R
@@ -113,7 +113,9 @@ UploadSamples <- function(sample_type_id, upload_data) {
       eval.study_subject_id <- filter(CheckTableTx(conn = conn, "study_subject"), name == eval.subject, study_id == eval.study_id)$id
 
       #3a. check if this sample exists (subject+study+specimen_type) in the database
-      tmp_table.specimen <- inner_join(CheckTableTx(conn = conn, "specimen")[,c("study_subject_id", "specimen_type_id", "collection_date")],
+      tmp_table.specimen <- inner_join(dbReadTable(conn = conn, "specimen") %>%
+                                        select("study_subject_id", "specimen_type_id", "collection_date") %>%
+                                        dplyr::mutate(collection_date = as.character(collection_date)),
                                        tibble(study_subject_id = eval.study_subject_id, specimen_type_id = eval.specimen_type_id, collection_date = eval.collection_date),
                                        by = c("study_subject_id", "specimen_type_id", "collection_date"))