make sure depress does not cut off for long equations

KopfLab · Sep 3, 2016 · f31d72d · f31d72d
1 parent 66a0996
commit f31d72d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: lans2r
 Type: Package
 Title: Work with Look at NanoSIMS data in R
-Version: 0.2.3
+Version: 0.2.4
 Date: 2016-08-30
 Author: Sebastian Kopf
 Maintainer: Sebastian Kopf <seb.kopf@gmail.com>

diff --git a/R/calculations.R b/R/calculations.R
@@ -25,14 +25,14 @@ calculate <- function(data, data_type, ..., value_fun,
   # default name function (concatenate the deparsed expression)
   default_name <- function(...) {
     lazy_dots(...) %>% 
-      sapply(function(lexp) deparse(lexp$exp), simplify = TRUE) %>% 
+      sapply(function(lexp) deparse(lexp$exp, width.cutoff = 200L), simplify = TRUE) %>% 
       paste(collapse = " ")
   }
 
   # generate parameter sets
   param_exps <- lazy_dots(...)
   params <- lapply(param_exps, function(lexp) {
-    strsplit(sub("^c\\((.+)\\)$", "\\1", deparse(lexp$expr)), ",\\s?")[[1]]
+    strsplit(sub("^c\\((.+)\\)$", "\\1", deparse(lexp$expr,  width.cutoff = 200L)), ",\\s?")[[1]]
   })
 
   # determine new variable names (calling the name_fun)