update split string separator to get full sample name

R/dada2_fun.R

@@ -456,6 +456,6 @@ dada2_fun <- function(amplicon = "16S", path = "", outpath = "./dada2_out/", f_t
 #' @keywords internal
 
 get.sample.name <- function(fname){
-  tt <- strsplit(basename(fname), "_")[[1]][1]
+  tt <- strsplit(basename(fname), "_R")[[1]][1]
   return(tt)
 }