diff --git a/R/shiny-ui-gen.R b/R/shiny-ui-gen.R
index 8b0bb102b515a003d333926b26c7f648874696e0..001dd84baf6328ee4935e6d6089833f4993ab2ce 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
 }