FRemoved a bunch of prints, str's and cats

app.R

@@ -299,21 +299,18 @@ server <- function(input, output, session) {
   }
 
   setNewNames <- function(wb, habName) {
-    print(habName)
     possNames <- newNameMap %>%
       dplyr::filter(hab == habName) %>%
       dplyr::mutate(node = stripStr(node))
 
     newNodes <- wb$p_es$nodes %>% dplyr::mutate(node = stripStr(name))
 
-    print(possNames$node)
-    print(newNodes$node)
     newNames <- apply(newNodes, 1, function(row) {
       id <- match(row["node"], possNames$node)
       print(paste(id, row["node"]))
       possNames$newname[id]
     })
-    print(newNames)
+
     wb$p_es$nodes$name <- newNames
     return(wb)
   }
@@ -334,7 +331,6 @@ server <- function(input, output, session) {
       if (!is.null(wb)) {
         habName <- substr(fileList[idx], 1, (nchar(fileList[idx]) - 5)) %>%
           stringr::str_replace_all("_", " ")
-        print(habName)
 
         wb2 <- setNewNames(wb, habName)
 
@@ -345,6 +341,7 @@ server <- function(input, output, session) {
         cnt <- cnt + 1
       }
     }
+
     updateSelectInput(session, "modelSelect", choices = models)
     return(modelList)
   }
@@ -628,8 +625,6 @@ server <- function(input, output, session) {
       edgeNet <- edges
     }
 
-    print(paste(nrow(model$legend), length(palette)))
-
     legendDF <- data.frame(
       id = 1:nrow(model$legend),
       label = model$legend,