Fix access to find_common_prefix in analysis app (#56)

akoyabio · Jan 11, 2022 · df20867 · df20867
1 parent 2db7f6c
commit df20867
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/inst/analysis_app/server.R b/inst/analysis_app/server.R
@@ -69,7 +69,8 @@ shinyServer(function(input, output, server) {
     if ('Slide ID' %in% names(d)) {
       unique_ids = unique(d$`Slide ID`)
       the_data$slide_id_prefix = slide_id_prefix =
-        ifelse(length(unique_ids) > 1, find_common_prefix(unique_ids), '')
+        ifelse(length(unique_ids) > 1,
+               phenoptrReports:::find_common_prefix(unique_ids), '')
       by_choices = c('Slide ID', phenoptr::field_column(d))
     } else {
       # No Slide ID column