get_design_code

DeclareDesign · May 24, 2018 · 98fce90 · 98fce90
1 parent 1edbe47
commit 98fce90
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/helpers.R b/R/helpers.R
@@ -4,7 +4,11 @@
 #' @export
 #'
 get_design_code <- function(design){
-  attr(design, "code")
+  out <- capture.output( cat(attr(design, "code"),sep =  "\n"))
+  out <- gsub("\\{|\\}", "", out)
+  out <- gsub("\\\"#|\\\"\\}", "
+ #", out)
+  cat(out, sep =  "\n")
 }
 
 #' @export