inst/hidap_agrofims/tests/agrtest.R

In AGROFIMS/hagrofims: Shiny App main application for the Agronomy Field Information Management System (AgroFIMS)

app <- ShinyDriver$new("../")
app$snapshotInit("agrtest")

app$setInputs(closeModal = "click")
app$setInputs(btLoginModal = "click")
app$setInputs(closeModal = "click")
# Input 'jscookie_user' was set, but doesn't have an input binding.
# Input 'jscookie_pass' was set, but doesn't have an input binding.
app$setInputs(projEntity_1 = character(0))
app$setInputs(contCenter_1 = character(0))
app$setInputs(contCRP_1 = character(0))
app$setInputs(projEntity_1_other = "")
app$setInputs(projLeadEnt_1 = character(0))
app$setInputs(tLeadCenter_1 = character(0))
app$setInputs(lead_org_type_1_1 = character(0))
app$setInputs(lead_org_type_1_1_other = "")
app$setInputs(leadNameOther_1 = "")
app$setInputs(expLead_1 = "")
app$setInputs(nfactors_hdafims_y = "1")
app$setInputs(designFieldbook_agrofims_r_y = "2")
app$setInputs(weeding_technique_1 = character(0))
app$setInputs(weeding_type_1 = character(0))
app$setInputs(weeding_traction_1 = character(0))
app$setInputs(weeding_start_date_1 = "2018-08-30")
app$setInputs(weeding_end_date_1 = "2018-08-30")
app$setInputs(weeding_type_1_other = "")
app$setInputs(weeding_traction_1_other = "")
app$setInputs(irrigation_technique_1 = character(0))
app$setInputs(surface_irrigation_technique_1 = character(0))
app$setInputs(localized_irrigation_technique1 = character(0))
app$setInputs(irrigation_using_sprinkler_systems_1 = character(0))
app$setInputs(irrigation_source_1 = character(0))
app$setInputs(irrigation_source_distance_1unit = character(0))
app$setInputs(irrigation_amount_1unit = character(0))
app$setInputs(irrigationevent_start_date_1 = character(0))
app$setInputs(irrigationevent_end_date_1 = character(0))
app$setInputs(irrigation_source_distance_1 = character(0))
app$setInputs(irrigation_amount_1 = character(0))
app$setInputs(irrigation_notes_1 = "")
app$setInputs(irrigation_technique_1_other = "")
app$setInputs(surface_irrigation_technique_1_other = "")
app$setInputs(localized_irrigation_technique1_other = "")
app$setInputs(irrigation_using_sprinkler_systems_1_other = "")
app$setInputs(irrigation_source_1_other = "")
app$setInputs(irrigation_technique_2 = character(0))
app$setInputs(surface_irrigation_technique_2 = character(0))
app$setInputs(localized_irrigation_technique2 = character(0))
app$setInputs(irrigation_using_sprinkler_systems_2 = character(0))
app$setInputs(irrigation_source_2 = character(0))
app$setInputs(irrigation_source_distance_2unit = character(0))
app$setInputs(irrigation_amount_2unit = character(0))
app$setInputs(irrigationevent_start_date_2 = character(0))
app$setInputs(irrigationevent_end_date_2 = character(0))
app$setInputs(irrigation_source_distance_2 = character(0))
app$setInputs(irrigation_amount_2 = character(0))
app$setInputs(irrigation_notes_2 = "")
app$setInputs(irrigation_technique_2_other = "")
app$setInputs(surface_irrigation_technique_2_other = "")
app$setInputs(localized_irrigation_technique2_other = "")
app$setInputs(irrigation_using_sprinkler_systems_2_other = "")
app$setInputs(irrigation_source_2_other = "")
app$setInputs(irrigation_technique_3 = character(0))
app$setInputs(surface_irrigation_technique_3 = character(0))
app$setInputs(localized_irrigation_technique3 = character(0))
app$setInputs(irrigation_using_sprinkler_systems_3 = character(0))
app$setInputs(irrigation_source_3 = character(0))
app$setInputs(irrigation_source_distance_3unit = character(0))
app$setInputs(irrigation_amount_3unit = character(0))
app$setInputs(irrigationevent_start_date_3 = character(0))
app$setInputs(irrigationevent_end_date_3 = character(0))
app$setInputs(irrigation_source_distance_3 = character(0))
app$setInputs(irrigation_amount_3 = character(0))
app$setInputs(irrigation_notes_3 = "")
app$setInputs(irrigation_technique_3_other = "")
app$setInputs(surface_irrigation_technique_3_other = "")
app$setInputs(localized_irrigation_technique3_other = "")
app$setInputs(irrigation_using_sprinkler_systems_3_other = "")
app$setInputs(irrigation_source_3_other = "")
app$setInputs(select_fertilizerType_soil_table_row_1 = character(0))
app$setInputs(select_product_soil_table_row_1 = character(0))
app$setInputs(select_element_soil_table_row_1 = character(0))
app$setInputs(select_implement_soil_table_row_1 = character(0))
app$setInputs(select_traction_soil_table_row_1 = character(0))
app$setInputs(select_techinque_soil_table_row_1 = character(0))
app$setInputs(textArea_soil_table_row_1 = "")
app$setInputs(select_product_soil_table_row_1_other = "")
app$setInputs(input_productRate_soil_table_row1 = "")
app$setInputs(select_element_soil_table_row_1_other = "")
app$setInputs(input_elementRate_soil_table_row_1 = "")
app$setInputs(select_implement_soil_table_row_1_other = "")
app$setInputs(select_traction_soil_table_row_1_other = "")
app$setInputs(select_techinque_soil_table_row_1_other = "")
app$setInputs(select_fertilizerType_soil_table_row_2 = character(0))
app$setInputs(select_product_soil_table_row_2 = character(0))
app$setInputs(select_element_soil_table_row_2 = character(0))
app$setInputs(select_implement_soil_table_row_2 = character(0))
app$setInputs(select_traction_soil_table_row_2 = character(0))
app$setInputs(select_techinque_soil_table_row_2 = character(0))
app$setInputs(textArea_soil_table_row_2 = "")
app$setInputs(select_product_soil_table_row_2_other = "")
app$setInputs(input_productRate_soil_table_row2 = "")
app$setInputs(select_element_soil_table_row_2_other = "")
app$setInputs(input_elementRate_soil_table_row_2 = "")
app$setInputs(select_implement_soil_table_row_2_other = "")
app$setInputs(select_traction_soil_table_row_2_other = "")
app$setInputs(select_techinque_soil_table_row_2_other = "")
app$setInputs(select_fertilizerType_soil_table_row_3 = character(0))
app$setInputs(select_product_soil_table_row_3 = character(0))
app$setInputs(select_element_soil_table_row_3 = character(0))
app$setInputs(select_implement_soil_table_row_3 = character(0))
app$setInputs(select_traction_soil_table_row_3 = character(0))
app$setInputs(select_techinque_soil_table_row_3 = character(0))
app$setInputs(textArea_soil_table_row_3 = "")
app$setInputs(select_product_soil_table_row_3_other = "")
app$setInputs(input_productRate_soil_table_row3 = "")
app$setInputs(select_element_soil_table_row_3_other = "")
app$setInputs(input_elementRate_soil_table_row_3 = "")
app$setInputs(select_implement_soil_table_row_3_other = "")
app$setInputs(select_traction_soil_table_row_3_other = "")
app$setInputs(select_techinque_soil_table_row_3_other = "")
app$setInputs(sel1_1 = character(0))
app$setInputs(sel1_2 = character(0))
app$setInputs(sel1_3 = character(0))
app$setInputs(numLevels_1 = 2)
app$setInputs(sidebarItemExpanded = "Fieldbook")
app$setInputs(tabs = "newFieldbookAgrofims")
app$setInputs(experimentName = "Experiment name")
app$setInputs(experimentProjectName = "Experiment project name")
app$setInputs(designFieldbook_typeExperiment = "Controlled treatment trial")
app$setInputs(experimentObj = "Experiment objective")
app$setInputs(designFieldbook_fundAgencyType = "Academic institution")
app$setInputs(fundName_1 = "")
app$setInputs(designFieldbook_fundAgencyType = c("Academic institution", "Farmer organization"))
app$setInputs(fundName_2 = "")
app$setInputs(fundName_1 = "Academic institution name")
app$setInputs(fundName_2 = "Farmer organization name")
app$setInputs(numProjEntity = 2)
app$setInputs(projEntity_2 = character(0))
app$setInputs(contCenter_2 = character(0))
app$setInputs(contCRP_2 = character(0))
app$setInputs(projEntity_2_other = "")
app$setInputs(projEntity_1 = "CGIAR center")
app$setInputs(contCenter_1 = "Africa Rice Center")
app$setInputs(contCRP_1 = "CGIAR Research Program on Agriculture for Nutrition and Health")
app$setInputs(projEntity_2 = "CGIAR center")
app$setInputs(contCenter_2 = "Center for International Forestry Research (CIFOR)")
app$setInputs(contCRP_2 = "CGIAR Research Program on Livestock")
app$setInputs(numLeads = 2)
app$setInputs(projLeadEnt_2 = character(0))
app$setInputs(tLeadCenter_2 = character(0))
app$setInputs(lead_org_type_1_2 = character(0))
app$setInputs(lead_org_type_1_2_other = "")
app$setInputs(leadNameOther_2 = "")
app$setInputs(expLead_2 = "")
app$setInputs(numLeads = 3)
app$setInputs(projLeadEnt_3 = character(0))
app$setInputs(tLeadCenter_3 = character(0))
app$setInputs(lead_org_type_1_3 = character(0))
app$setInputs(lead_org_type_1_3_other = "")
app$setInputs(leadNameOther_3 = "")
app$setInputs(expLead_3 = "")
app$setInputs(projLeadEnt_1 = "CGIAR center")
app$setInputs(tLeadCenter_1 = "Africa Rice Center")
app$setInputs(projLeadEnt_2 = "CGIAR center")
app$setInputs(tLeadCenter_2 = "Africa Rice Center")
app$setInputs(projLeadEnt_3 = "CGIAR center")
app$setInputs(tLeadCenter_3 = "International Rice Research Institute (IRRI)")
app$setInputs(expLead_3 = "Experiment lead person / Primary Investigator")
app$setInputs(expLead_2 = "Experiment lead person / Primary Investigator")
app$setInputs(expLead_1 = "Experiment lead person / Primary Investigator")
app$setInputs(fbDesignNav = "tabCrop")
app$setInputs(cropCommonNameMono = "Cassava")
app$setInputs(fbDesignNav = "tabDesign")
app$setInputs(nfactors_hdafims_y = "2")
app$setInputs(sel2_1 = character(0))
app$setInputs(sel2_2 = character(0))
app$setInputs(sel2_3 = character(0))
app$setInputs(numLevels_2 = 2)
app$setInputs(sel1_1 = "Harvest")
app$setInputs(sel1_2 = "Harvest method")
app$setInputs(sel1_3 = "Number of rows harvested")
app$setInputs(levels_1 = character(0))
app$setInputs(levels_1 = "12")
app$setInputs(levels_1 = c("12", "23"))
app$setInputs(sel2_1 = "Harvest")
app$setInputs(sel2_2 = "Harvest implement")
app$setInputs(sel2_3 = "Traction")
app$setInputs(levels_2 = character(0))
app$setInputs(levels_2 = "Animal")
app$setInputs(levels_2 = c("Animal", "Manual"))
app$setInputs(designFieldbook_agrofims_r_y = "12")
app$setInputs(fbDesignNav = "tabAgroFeat")
app$setInputs(selectAgroFeature = "Harvest")
app$setInputs(fbDesignNav = "tabTraits")
# Input 'Main_table_rows_current' was set, but doesn't have an input binding.
# Input 'Main_table_rows_all' was set, but doesn't have an input binding.
# Input 'Main_table_cell_clicked' was set, but doesn't have an input binding.
# Input 'selectRowClickId' was set, but doesn't have an input binding.
# Input 'selectRowClickChecked' was set, but doesn't have an input binding.
# Input 'selectRowClick' was set, but doesn't have an input binding.
# Input 'Main_table_rows_current' was set, but doesn't have an input binding.
# Input 'Main_table_rows_all' was set, but doesn't have an input binding.
app$snapshotDownload("downloadData")