Update number of iterations in p-rep optimization

DidierMurilloF · Feb 5, 2024 · 70153df · 70153df
1 parent 0232d7a
commit 70153df
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/app_ui.R b/R/app_ui.R
@@ -19,8 +19,8 @@ app_ui <- function(request) {
   #shiny::addResourcePath("res", system.file("app/www", package = "FielDHub"))
   tagList(
     golem_add_external_resources(),
-    tags$head(tags$script(type="text/javascript", src = "corner.js")),
-    tags$head(tags$script(type="text/javascript", src= "shinybusy.js")), 
+    #tags$head(tags$script(type="text/javascript", src = "corner.js")),
+    #tags$head(tags$script(type="text/javascript", src= "shinybusy.js")), 
     #includeCSS(system.file("app/www/style.css", package = "FielDHub")),
     fluidPage(theme = shinythemes::shinytheme("flatly"),
               navbarPage(title = "FielDHub v1.3.4", 

diff --git a/R/utils_pREP.R b/R/utils_pREP.R
@@ -176,9 +176,9 @@ pREP <- function(
     ################### Optimization ##########################################
     # Perform an optimization by using the function swap_pairs()
     if (max(table(field_layout)) == 2) {
-        swap <- swap_pairs(X = field_layout, starting_dist = 3, stop_iter = 50)
+        swap <- swap_pairs(X = field_layout, starting_dist = 3, stop_iter = 20)
     } else {
-        swap <- swap_pairs(X = field_layout, starting_dist = 2, stop_iter = 50)
+        swap <- swap_pairs(X = field_layout, starting_dist = 2, stop_iter = 20)
     }
     optim_layout <- swap$optim_design
     dups <- table(as.vector(optim_layout))