Save View() output invisibly so it can be printed etc.

1 files changed, 3 insertions, 1 deletions

diff --git a/R/View.R b/R/View.R
index e635fb0..90b6c3e 100644
--- a/R/View.R
+++ b/R/View.R
@@ -30,5 +30,7 @@ View.jagsUI <- function(x,title,digits=3, ...){
   
   # View the output
   utils::View(view.out, title=title)
+
+  invisible(view.out)
   
-}
\ No newline at end of file
+}