- Added the fsleyes function for viewing files.

DESCRIPTION

@@ -2,7 +2,7 @@ Package: fslr
 Type: Package
 Title: Wrapper Functions for FSL ('FMRIB' Software Library) from Functional MRI
     of the Brain ('FMRIB')
-Version: 2.19.0
+Version: 2.20.0
 Authors@R: c(person(given = "John",
            family = "Muschelli",
            email = "muschellij2@gmail.com",

NAMESPACE

@@ -111,6 +111,7 @@ export(fslerode)
 export(fslerode.help)
 export(fslexp)
 export(fslexp.help)
+export(fsleyes)
 export(fslfast)
 export(fslfill)
 export(fslfill.help)

R/fslview.R

@@ -56,4 +56,37 @@ fslview = function(file, intern=TRUE, opts ="", verbose = TRUE, ...){
 #' }   
 fslview.help = function(){
   return(fslhelp("fslview"))
+}
+
+#' @rdname fslview
+#' @export
+fsleyes = function(file, intern=TRUE, opts ="", verbose = TRUE, ...){
+  cmd <- get.fsl()
+  if (is.nifti(file)) {
+    file = checkimg(file)
+  }
+  file = lapply(file, checkimg, ...)
+  if (length(file) != length(opts)) {
+    opts = rep(opts, length = length(file))
+  } else {
+    if (length(file) > length(opts)) {
+      opts = c(opts, rep("", length = (length(file) - length(opts))))
+    } else {
+      opts = opts[seq(length(file))]
+    }
+  }
+  file = shQuote(file)
+  file = paste(file, opts)
+  file = paste(file, collapse = " ")
+  fslview_cmd = "fsleyes"
+  ################################## 
+  # new version deprecated it
+  ################################## 
+  string = paste0(fslview_cmd, " %s")
+  cmd <- paste0(cmd, sprintf(string, file))  
+  if (verbose) {
+    message(cmd, "\n")
+  }
+  res = system(cmd, intern = intern)
+  return(res)
 }