Set default smats for nblast() as characters, not objects

This removes a complaint about there being no visible binding for the smats during R CMD check on CRAN (hopefully...)
natverse · Sep 19, 2014 · d7b91a2 · d7b91a2
1 parent ad308a0
commit d7b91a2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/neuriteblast.r b/R/neuriteblast.r
@@ -104,8 +104,8 @@ nblast <- function(query, target=getOption("nat.default.neuronlist"),
     if(is.null(smat)) {
       smat=getOption("nat.nblast.defaultsmat")
       if(is.null(smat)) {
-        if(UseAlpha) smat=smat_alpha.fcwb
-        else smat=smat.fcwb
+        if(UseAlpha) smat="smat_alpha.fcwb"
+        else smat="smat.fcwb"
       }
     }
     if(is.character(smat)) smat=get(smat)