fixed a problem with landmark files not containing '_'

ParkerICI · Aug 29, 2018 · 6d9ca47 · 6d9ca47
1 parent 9415096
commit 6d9ca47
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: vite
 Type: Package
 Title: Analyzing single-cell data using graphs
-Version: 0.4.3
+Version: 0.4.4
 Authors@R: "Pier Federico Gherardini <pfgherardini@parkerici.org> [aut, cre]"
 Description: This is a package for visualization and analysis of high-dimensional
     single-cell data using graphs

diff --git a/R/scaffold.R b/R/scaffold.R
@@ -44,7 +44,7 @@ downsample_by <- function(tab, col.name, size) {
 load_landmarks <- function(files.list, asinh.cofactor, transform.data, ...) {
     res <- NULL
     for(f in files.list) {
-        population <- tail(strsplit(f, "_")[[1]], n = 1)
+        population <- tail(strsplit(basename(f), "_")[[1]], n = 1)
         population <- gsub(".fcs", "", population)
         fcs <- flowCore::read.FCS(f, ...)
         tab <- grappolo::convert_fcs(fcs, asinh.cofactor, transform.data, clip.at.zero = T)