Clean-up. Removed debugging info.

AEBilgrau · Jan 25, 2019 · 5c14899 · 5c14899
1 parent 7baab23
commit 5c14899
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 13 deletions.
diff --git a/inst/shiny/server.R b/inst/shiny/server.R
@@ -278,8 +278,6 @@ shinyServer(function(input, output, session) {
         ignoreInit = TRUE,
         eventExpr = input[[paste0("full_slider_pie", k)]],
         handlerExpr = {
-          cat(paste0("full_slider_pie", k, " changed!\n"))
-
           # All pie slider IDs
           pie_slider_ids <- paste0("full_slider_pie", seq_len(rv$m))
 
@@ -379,8 +377,6 @@ shinyServer(function(input, output, session) {
   output$rhandson_mu <- renderRHandsontable({
     req(rv$d)
     req(rv$m)
-    cat("Rendering rhandson_mu\n")
-
 
     if (is.null(in_mu())) {
       mu <- replicate(n = rv$m, rep(NA_real_, rv$d), simplify = TRUE)
@@ -446,7 +442,6 @@ shinyServer(function(input, output, session) {
     # Create all rhandsontables
     lapply(seq_len(rv$m), function(k) {
       output[[paste0("rhandson_sigma", k)]] <- renderRHandsontable({
-        cat("Creating rhandson_sigma", k, "\n", sep = "")
         # req(full_start_theta())
         #https://github.com/jrowen/rhandsontable/tree/master/inst/examples/rhandsontable_corr
 
@@ -494,8 +489,6 @@ shinyServer(function(input, output, session) {
     lapply(seq_len(rv$m), function(k) {
 
       observeEvent(input[[paste0("rhandson_sigma", k)]], {
-        cat("input$rhandson_sigma", k, " hit!\n", sep = "")
-
         # Write change full_start_theta
         theta <- full_start_theta()
         theta$sigma[[k]] <- hot_to_r(input[[paste0("rhandson_sigma", k)]])
@@ -533,8 +526,6 @@ shinyServer(function(input, output, session) {
 
   # Fit general model ----
   full_fit <- eventReactive(input$full_fit_push, {
-    cat("Fit (full) model pushed!\n")
-
     # Requirements
     req(full_start_theta())
     req(length(input$model_cols) >= 2)

diff --git a/inst/shiny/ui.R b/inst/shiny/ui.R
@@ -174,8 +174,6 @@ shinyUI(
           uiOutput("full_latent_plot"),
           uiOutput("full_ui_selectize_model_cols_xy"),
           uiOutput("full_res_theta_plot"),
-          uiOutput("full_fit_log"),
-
           box(
             title = "Classified data",
             footer = downloadButton('full_downloadData', 'Download'),
@@ -187,7 +185,8 @@ shinyUI(
 
             DTOutput("full_out_file_table")
           ),
-          verbatimTextOutput("DEBUG")
+          uiOutput("full_fit_log")
+          #,verbatimTextOutput("DEBUG")
         )
       )
     ),
@@ -357,7 +356,8 @@ shinyUI(
     navbarMenu(
       title = "",
       icon = icon("bars"),
-      #title = "More",
+
+
       tabPanel("About", icon = icon("question"),
          h1("About"),
          p("This shiny app. was developed by Anders Ellern Bilgrau.")