From 3e8994f9b5431994a7791f3f88cc400421ae59ce Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Mon, 11 May 2020 08:05:16 +0200
Subject: [PATCH] shiny-ui-gen: Update server-gen
* R/shiny-ui-gen.R(server-gen): New observer. This one is to test the
workflow.
---
R/shiny-ui-gen.R | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/R/shiny-ui-gen.R b/R/shiny-ui-gen.R
index 8b0bb10..001dd84 100644
--- a/R/shiny-ui-gen.R
+++ b/R/shiny-ui-gen.R
@@ -83,5 +83,16 @@ mk_ui_gen <- function() {
server_gen <- function(input,output,session,rv,rf,roots) {
+
+
+ ## **** Observers ****
+ obsrv({
+ ## Run
+ message("run!")
+ m <- rf$m()
+ m <- mk_comp_tab(m)
+ message("done!")
+ })
+
rv
}
--
GitLab