crop measurement timming

Author: CIP-RIU

R/server_desing_hdagrofim.R

@@ -5527,7 +5527,7 @@ server_design_agrofims <- function(input, output, session, values){
   traitsVals$selectedRows <- list()
   traitsVals$Data <- data.table()
 
-  dict <- readRDS("/home/obenites/HIDAP_SB_1.0.0/hidap/inst/hidap_agrofims/www/internal_files/crop_measurements_v3.rds")
+  dict <- readRDS("/home/obenites/HIDAP_SB_1.0.0/hidap/inst/hidap_agrofims/www/internal_files/crop_measurements_v4.rds")
   dict <- as.data.frame(dict, stringsAsFactors=FALSE)
 
   observe({
@@ -8948,6 +8948,62 @@ out
     return(a)
   }
 
+  # soil_design<- reactive({
+  #
+  #   ### #1 Factor
+  #   napp1<- NULL
+  #   if(input$sel1_3 =="Fertilizer product application rate"){
+  #     # Levels
+  #     for(i in 1:input$numLevels_tabSoil_1){
+  #       # # of applications
+  #       napp1[i] <-  input[[paste0("numApps_tabSoil_factor_1_box_",i)]]
+  #     }
+  #   }
+  #
+  #   ### #2 Factor
+  #   napp2<- NULL
+  #   if(input$sel2_3 =="Fertilizer product application rate"){
+  #     # Levels
+  #     for(i in 1:input$numLevels_tabSoil_2){
+  #       # # of applications
+  #       napp2[i] <-  input[[paste0("numApps_tabSoil_factor_1_box_",i)]]
+  #     }
+  #   }
+  #
+  #   napp3<- NULL
+  #   if(input$sel3_3 =="Fertilizer product application rate"){
+  #     # Levels
+  #     for(i in 1:input$numLevels_tabSoil_3){
+  #       # # of applications
+  #       napp3[i] <-  input[[paste0("numApps_tabSoil_factor_1_box_",i)]]
+  #     }
+  #   }
+  #
+  #
+  #   napp4<- NULL
+  #   if(input$sel4_3 =="Fertilizer product application rate"){
+  #     # Levels
+  #     for(i in 1:input$numLevels_tabSoil_4){
+  #       # # of applications
+  #       napp4[i] <-  input[[paste0("numApps_tabSoil_factor_1_box_",i)]]
+  #     }
+  #   }
+  #
+  #   napp5<- NULL
+  #   if(input$sel5_3 =="Fertilizer product application rate"){
+  #     # Levels
+  #     for(i in 1:input$numLevels_tabSoil_5){
+  #       # # of applications
+  #       napp5[i] <-  input[[paste0("numApps_tabSoil_factor_1_box_",i)]]
+  #     }
+  #   }
+  #
+  #   print(napp1)
+  #   print(napp2)
+  #   print(napp3)
+  #   print(napp4)
+  #   print(napp5)
+  # })
 
 
   ### Book preview #############################################################

R/ui_design_hdagrofims.R

@@ -275,31 +275,31 @@ ui_fieldbook_agrofims <- function(type="tab",title="Design Fieldbook",name="phen
   shinydashboard::tabItem(
     tabName = name,
 
-    fluidRow(
-      #column(6, h1("Experiment description")),
-      column(12, align = "right", style = "margin-top: 26px;",
-             actionButton("load_exampleM", "Monocrop"),
-             actionButton("load_exampleI", "Intercrop")
-      )
-    ),
-
-    fluidRow(
-      column(2, style = "margin-top: 0px; color: blue;", align = "left", h2(textOutput("idsession"))),
-      column(2, align = "left", style = "margin-top: 20px;", actionButton('save_inputs', 'Save session', icon("save"))),
-      column(4),
-      column(2, align = "right", textInput("loadidsession", "", placeholder = "Experiment ID")),
-      column(2, align = "right", style = "margin-top: 20px;", actionButton('load_inputs', 'Load session', icon("download")))
-    ),
-    fluidRow(
-      column(12, verbatimTextOutput("text"))
-    ),
-
-    fluidRow(
-      box(
-        title = tagList(shiny::icon("list"), "List session"), status = "primary", solidHeader = TRUE, collapsible = TRUE, width = 12,
-        "aaa"
-      )
-    ),
+    # fluidRow(
+    #   #column(6, h1("Experiment description")),
+    #   column(12, align = "right", style = "margin-top: 26px;",
+    #          actionButton("load_exampleM", "Monocrop"),
+    #          actionButton("load_exampleI", "Intercrop")
+    #   )
+    # ),
+    #
+    # fluidRow(
+    #   column(2, style = "margin-top: 0px; color: blue;", align = "left", h2(textOutput("idsession"))),
+    #   column(2, align = "left", style = "margin-top: 20px;", actionButton('save_inputs', 'Save session', icon("save"))),
+    #   column(4),
+    #   column(2, align = "right", textInput("loadidsession", "", placeholder = "Experiment ID")),
+    #   column(2, align = "right", style = "margin-top: 20px;", actionButton('load_inputs', 'Load session', icon("download")))
+    # ),
+    # fluidRow(
+    #   column(12, verbatimTextOutput("text"))
+    # ),
+    #
+    # fluidRow(
+    #   box(
+    #     title = tagList(shiny::icon("list"), "List session"), status = "primary", solidHeader = TRUE, collapsible = TRUE, width = 12,
+    #     "aaa"
+    #   )
+    # ),
 
     h1("Experiment description"),