crop measurement timming

CIP-RIU · Sep 4, 2018 · 4c515ff · 4c515ff
1 parent f1de0d4
commit 4c515ff
Show file tree

Hide file tree

Showing 2 changed files with 82 additions and 26 deletions.
diff --git a/R/server_desing_hdagrofim.R b/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 #############################################################

diff --git a/R/ui_design_hdagrofims.R b/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"),