remove asterisc in pairs comb

IrishMarineInstitute · Jul 3, 2020 · ac9c13f · ac9c13f
1 parent e0e880a
commit ac9c13f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Parent_folder/subfolder_with_the_app/app.R b/Parent_folder/subfolder_with_the_app/app.R
@@ -1760,7 +1760,7 @@ observeEvent({feat$counter}, {
                                      pattern = input$inSurveyID),
                                pattern = "counts.csv", value = T),
                           pattern = "SURVEYS_and_COUNTERS|Box|ERROR|SIC_", inv=T, value=T)
-        pairs.stn <- sub("*_(.*?) *_.*", "_\\1", sub(paste0(".*", input$inSurveyID, "_ *(.*?) *_counts.*"), "\\1", pre.pairs))
+        pairs.stn <- sub("*_(.?) *_.*", "_\\1", sub(paste0(".*", input$inSurveyID, "_ *(.*?) *_counts.*"), "\\1", pre.pairs))
         pairs <- as.data.frame(cbind("file" = as.character(pre.pairs), "st" = as.character(pairs.stn)))
         pairs <- subset(pairs, st %in% unique(pairs$st[duplicated(pairs$st)])) # only if more than 1 counter has counted the station
         pairs[,1:2] <- lapply(pairs[,1:2], as.character)