shiny up rm print

inst/shiny-landsepi/server.R

@@ -514,10 +514,10 @@ server <- function(input, output, session) {
       # Remove old files
       cleanDir(simul_params@OutputDir)
       
-      print(simul_params@Croptypes)
-      print(simul_params@Cultivars)
-      print(simul_params@CultivarsGenes)
-      print(simul_params@Genes)
+      # print(simul_params@Croptypes)
+      # print(simul_params@Cultivars)
+      # print(simul_params@CultivarsGenes)
+      # print(simul_params@Genes)
 
       # Croptypes Rotation
       if( input$demo == "RO" || (advanced_mode() && input$rotationPeriod > 0)) {
@@ -701,7 +701,6 @@ server <- function(input, output, session) {
   ######################################################################################
   # Handle the demo list
   shiny::observeEvent(input$demo, {
-    print(input$demo)
     # Cultivar tab
     switch(input$demo,
       MO = {