fix for loci spoof

btmartin721 · Jun 23, 2022 · ccd77e4 · ccd77e4
1 parent 1b95e73
commit ccd77e4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/get_bgc_outliers.R b/R/get_bgc_outliers.R
@@ -175,7 +175,7 @@ get_bgc_outliers <- function(df.list,
   #if no loci file provided, make a spoof one here
   if (is.null(loci.file)){
     clean=TRUE
-    spoof<-data.frame("#CHROM" = 0:(nrow(df.list[[2]][,1])-1),"POS"=0:(nrow(df.list[[2]][,1])-1), check.names = FALSE)
+    spoof<-data.frame("#CHROM" = 0:((nrow(df.list[[2]][,1])-1)), "POS"=0:((nrow(df.list[[2]][,1])-1)), check.names = FALSE)
     readr::write_delim(spoof, "loci_map.txt", delim=" ", col_names=TRUE)
     loci.file="loci_map.txt"
   }