inst/hidap_agrofims/tests/expconditions.R

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

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

app$setInputs(closeModal = "click")
app$setInputs(btLoginModal = "click")
app$setInputs(closeModal = "click")
app$setInputs(closeModal = "click")
app$setInputs(closeModal = "click")
app$setInputs(closeModal = "click")
app$setInputs(closeModal = "click")
app$setInputs(closeModal = "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(btnNextEnv = "click")
app$setInputs(dt_sel = FALSE)
app$setInputs(closeBox_IC_CGESWMWL = "click")
app$setInputs(cropCommonNameInter_CGESWMWL = character(0))
app$setInputs(cropVarietyName_CGESWMWL = character(0))
app$setInputs(`cropCommonNameInter_CGESWMWL-selectized` = "")
app$setInputs(cropCommonNameInter_CGESWMWL_other = "")
app$setInputs(`cropVarietyName_CGESWMWL-selectized` = "")
app$setInputs(intercropValue_row_crop_CGESWMWL = "")
app$setInputs(closeBox_IC_CUYGUATC = "click")
app$setInputs(cropCommonNameInter_CUYGUATC = character(0))
app$setInputs(cropVarietyName_CUYGUATC = character(0))
app$setInputs(`cropCommonNameInter_CUYGUATC-selectized` = "")
app$setInputs(cropCommonNameInter_CUYGUATC_other = "")
app$setInputs(`cropVarietyName_CUYGUATC-selectized` = "")
app$setInputs(intercropValue_row_crop_CUYGUATC = "")
app$setInputs(btAddFullFactorial = "click")
app$setInputs(designFieldbook_agrofims_r_y = "2")
app$setInputs(`designFieldbook_agrofims_r_y-selectized` = "")
app$setInputs(closeBox_FF_AWNVOKDQ = "click")
app$setInputs(btDuplicate_FF_AWNVOKDQ = "click")
app$setInputs(sel_factor_AWNVOKDQ_1 = character(0))
app$setInputs(sel_factor_AWNVOKDQ_2 = character(0))
app$setInputs(sel_factor_AWNVOKDQ_3 = character(0))
app$setInputs(numLevels_AWNVOKDQ = 2)
app$setInputs(`sel_factor_AWNVOKDQ_1-selectized` = "")
app$setInputs(`sel_factor_AWNVOKDQ_2-selectized` = "")
app$setInputs(`sel_factor_AWNVOKDQ_3-selectized` = "")
app$setInputs(closeBox_FF_ABBTFEXZ = "click")
app$setInputs(btDuplicate_FF_ABBTFEXZ = "click")
app$setInputs(sel_factor_ABBTFEXZ_1 = character(0))
app$setInputs(sel_factor_ABBTFEXZ_2 = character(0))
app$setInputs(sel_factor_ABBTFEXZ_3 = character(0))
app$setInputs(numLevels_ABBTFEXZ = 2)
app$setInputs(`sel_factor_ABBTFEXZ_1-selectized` = "")
app$setInputs(`sel_factor_ABBTFEXZ_2-selectized` = "")
app$setInputs(`sel_factor_ABBTFEXZ_3-selectized` = "")
app$setInputs(irrigationevent_start_date_VYOCHGAH = character(0))
app$setInputs(irrigationevent_end_date_VYOCHGAH = character(0))
app$setInputs(closeBox_ECIR_VYOCHGAH = "click")
app$setInputs(irrigationevent_start_date_VYOCHGAH_button = "click")
app$setInputs(irrigationevent_end_date_VYOCHGAH_button = "click")
app$setInputs(irrigation_technique_VYOCHGAH = character(0))
app$setInputs(surface_irrigation_technique_VYOCHGAH = character(0))
app$setInputs(localized_irrigation_techniqueVYOCHGAH = character(0))
app$setInputs(irrigation_using_sprinkler_systems_VYOCHGAH = character(0))
app$setInputs(irrigation_source_VYOCHGAH = character(0))
app$setInputs(irrigation_source_distance_VYOCHGAHunit = character(0))
app$setInputs(irrigation_amount_VYOCHGAHunit = character(0))
app$setInputs(irrigation_source_distance_VYOCHGAH = character(0))
app$setInputs(irrigation_amount_VYOCHGAH = character(0))
app$setInputs(irrigation_notes_VYOCHGAH = "")
app$setInputs(`irrigation_technique_VYOCHGAH-selectized` = "")
app$setInputs(irrigation_technique_VYOCHGAH_other = "")
app$setInputs(`surface_irrigation_technique_VYOCHGAH-selectized` = "")
app$setInputs(surface_irrigation_technique_VYOCHGAH_other = "")
app$setInputs(`localized_irrigation_techniqueVYOCHGAH-selectized` = "")
app$setInputs(localized_irrigation_techniqueVYOCHGAH_other = "")
app$setInputs(`irrigation_using_sprinkler_systems_VYOCHGAH-selectized` = "")
app$setInputs(irrigation_using_sprinkler_systems_VYOCHGAH_other = "")
app$setInputs(`irrigation_source_VYOCHGAH-selectized` = "")
app$setInputs(irrigation_source_VYOCHGAH_other = "")
app$setInputs(`irrigation_source_distance_VYOCHGAHunit-selectized` = "")
app$setInputs(`irrigation_amount_VYOCHGAHunit-selectized` = "")
app$setInputs(weeding_start_date_HYTBURES = character(0))
app$setInputs(closeBox_ECWE_HYTBURES = "click")
app$setInputs(weeding_start_date_HYTBURES_button = "click")
app$setInputs(weeding_technique_HYTBURES = character(0))
app$setInputs(weeding_type_HYTBURES = character(0))
app$setInputs(weeding_traction_HYTBURES = character(0))
app$setInputs(weeding_notes_HYTBURES = "")
app$setInputs(`weeding_technique_HYTBURES-selectized` = "")
app$setInputs(`weeding_type_HYTBURES-selectized` = "")
app$setInputs(weeding_type_HYTBURES_other = "")
app$setInputs(`weeding_traction_HYTBURES-selectized` = "")
app$setInputs(weeding_traction_HYTBURES_other = "")
app$setInputs(input_startdate_soil_table_row_1 = character(0))
app$setInputs(input_enddate_soil_table_row_1 = character(0))
app$setInputs(input_startdate_soil_table_row_1_button = "click")
app$setInputs(input_enddate_soil_table_row_1_button = "click")
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_techinque_soil_table_row_1 = character(0))
app$setInputs(textArea_soil_table_row_1 = "")
app$setInputs(`select_fertilizerType_soil_table_row_1-selectized` = "")
app$setInputs(`select_product_soil_table_row_1-selectized` = "")
app$setInputs(select_product_soil_table_row_1_other = "")
app$setInputs(input_productRate_soil_table_row1 = "")
app$setInputs(`select_element_soil_table_row_1-selectized` = "")
app$setInputs(select_element_soil_table_row_1_other = "")
app$setInputs(input_elementRate_soil_table_row_1 = "")
app$setInputs(`select_techinque_soil_table_row_1-selectized` = "")
app$setInputs(select_techinque_soil_table_row_1_other = "")
app$setInputs(input_startdate_soil_table_row_2 = character(0))
app$setInputs(input_enddate_soil_table_row_2 = character(0))
app$setInputs(input_startdate_soil_table_row_2_button = "click")
app$setInputs(input_enddate_soil_table_row_2_button = "click")
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_techinque_soil_table_row_2 = character(0))
app$setInputs(textArea_soil_table_row_2 = "")
app$setInputs(`select_fertilizerType_soil_table_row_2-selectized` = "")
app$setInputs(`select_product_soil_table_row_2-selectized` = "")
app$setInputs(select_product_soil_table_row_2_other = "")
app$setInputs(input_productRate_soil_table_row2 = "")
app$setInputs(`select_element_soil_table_row_2-selectized` = "")
app$setInputs(select_element_soil_table_row_2_other = "")
app$setInputs(input_elementRate_soil_table_row_2 = "")
app$setInputs(`select_techinque_soil_table_row_2-selectized` = "")
app$setInputs(select_techinque_soil_table_row_2_other = "")
app$setInputs(input_startdate_soil_table_row_3 = character(0))
app$setInputs(input_enddate_soil_table_row_3 = character(0))
app$setInputs(input_startdate_soil_table_row_3_button = "click")
app$setInputs(input_enddate_soil_table_row_3_button = "click")
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_techinque_soil_table_row_3 = character(0))
app$setInputs(textArea_soil_table_row_3 = "")
app$setInputs(`select_fertilizerType_soil_table_row_3-selectized` = "")
app$setInputs(`select_product_soil_table_row_3-selectized` = "")
app$setInputs(select_product_soil_table_row_3_other = "")
app$setInputs(input_productRate_soil_table_row3 = "")
app$setInputs(`select_element_soil_table_row_3-selectized` = "")
app$setInputs(select_element_soil_table_row_3_other = "")
app$setInputs(input_elementRate_soil_table_row_3 = "")
app$setInputs(`select_techinque_soil_table_row_3-selectized` = "")
app$setInputs(select_techinque_soil_table_row_3_other = "")
app$setInputs(harvest_start_date_FGGBCQSL = character(0))
app$setInputs(harvest_end_date_FGGBCQSL = character(0))
app$setInputs(desc_harvest_titleId_FGGBCQSL = "click")
app$setInputs(harvest_start_date_FGGBCQSL_button = "click")
app$setInputs(harvest_end_date_FGGBCQSL_button = "click")
app$setInputs(closeBox_HARV_FGGBCQSL = "click")
app$setInputs(harvest_method_FGGBCQSL = character(0))
app$setInputs(crop_component_harvested_FGGBCQSL = character(0))
app$setInputs(crop_harvestable_area_FGGBCQSL = character(0))
app$setInputs(crop_component_harvested_lenunit_FGGBCQSL = character(0))
app$setInputs(crop_component_harvested_widthunit_FGGBCQSL = character(0))
app$setInputs(crop_component_harvested_spaceunit_FGGBCQSL = character(0))
app$setInputs(crop_component_harvested_entireunit_FGGBCQSL = character(0))
app$setInputs(amount_harvested_unit_FGGBCQSL = character(0))
app$setInputs(harvest_cut_height_unit_FGGBCQSL = character(0))
app$setInputs(harvest_implement_FGGBCQSL = character(0))
app$setInputs(harvest_traction_FGGBCQSL = character(0))
app$setInputs(space_rows_harvested_FGGBCQSL = character(0))
app$setInputs(amount_harvested_FGGBCQSL = character(0))
app$setInputs(harvest_cut_height_FGGBCQSL = character(0))
app$setInputs(harvest_notes_FGGBCQSL = "")
app$setInputs(`harvest_method_FGGBCQSL-selectized` = "")
app$setInputs(harvest_method_FGGBCQSL_other = "")
app$setInputs(`crop_component_harvested_FGGBCQSL-selectized` = "")
app$setInputs(crop_component_harvested_FGGBCQSL_other = "")
app$setInputs(`crop_harvestable_area_FGGBCQSL-selectized` = "")
app$setInputs(crop_component_harvested_m2_FGGBCQSL = "")
app$setInputs(crop_component_harvested_ip_FGGBCQSL = "")
app$setInputs(crop_component_harvested_num_FGGBCQSL = "")
app$setInputs(crop_component_harvested_len_FGGBCQSL = "")
app$setInputs(`crop_component_harvested_lenunit_FGGBCQSL-selectized` = "")
app$setInputs(crop_component_harvested_width_FGGBCQSL = "")
app$setInputs(`crop_component_harvested_widthunit_FGGBCQSL-selectized` = "")
app$setInputs(`crop_component_harvested_spaceunit_FGGBCQSL-selectized` = "")
app$setInputs(crop_component_harvested_entire_FGGBCQSL = "")
app$setInputs(`crop_component_harvested_entireunit_FGGBCQSL-selectized` = "")
app$setInputs(crop_harvestable_area_FGGBCQSL_other = "")
app$setInputs(`amount_harvested_unit_FGGBCQSL-selectized` = "")
app$setInputs(`harvest_cut_height_unit_FGGBCQSL-selectized` = "")
app$setInputs(`harvest_implement_FGGBCQSL-selectized` = "")
app$setInputs(harvest_implement_FGGBCQSL_other = "")
app$setInputs(`harvest_traction_FGGBCQSL-selectized` = "")
app$setInputs(harvest_traction_FGGBCQSL_other = "")
app$setInputs(planting_start_date_1 = character(0))
app$setInputs(transplanting_start_date_1 = character(0))
app$setInputs(transplanting_end_date_1 = character(0))
app$setInputs(plantingTransplanting_titleId_1 = "click")
app$setInputs(direct_seeding_titleId_1 = "click")
app$setInputs(planting_start_date_1_button = "click")
app$setInputs(transplanting_titleId_1 = "click")
app$setInputs(transplanting_start_date_1_button = "click")
app$setInputs(transplanting_end_date_1_button = "click")
app$setInputs(seeding_environment_1 = character(0))
app$setInputs(seeding_technique_1 = character(0))
app$setInputs(seeding_implement_type_1 = character(0))
app$setInputs(seeding_traction_1 = character(0))
app$setInputs(distance_rows_unit_1 = character(0))
app$setInputs(seeding_rate_unit_1 = character(0))
app$setInputs(distance_plants_unit_1 = character(0))
app$setInputs(seeding_plant_density_unit_1 = character(0))
app$setInputs(transplanting_environment_1 = character(0))
app$setInputs(transplanting_technique_1 = character(0))
app$setInputs(trans_traction_1 = character(0))
app$setInputs(trans_distance_rows_unit_1 = character(0))
app$setInputs(trans_seeding_density_unit_1 = character(0))
app$setInputs(trans_distance_plants_unit_1 = "m")
app$setInputs(directSeeding_checkbox_1 = FALSE)
app$setInputs(transplanting_checkbox_1 = FALSE)
app$setInputs(distance_rows_1 = character(0))
app$setInputs(seeding_rate_1 = character(0))
app$setInputs(distance_plants_1 = character(0))
app$setInputs(seeding_density_number_rows_1 = character(0))
app$setInputs(seeding_plant_density_1 = character(0))
app$setInputs(age_seedling_1 = character(0))
app$setInputs(trans_distance_rows_1 = character(0))
app$setInputs(trans_seeding_density_1 = character(0))
app$setInputs(trans_num_rows_1 = character(0))
app$setInputs(trans_distance_plants_1 = character(0))
app$setInputs(direct_seeding_notes_1 = "")
app$setInputs(transplanting_density_notes_1 = "")
app$setInputs(`seeding_environment_1-selectized` = "")
app$setInputs(seeding_environment_1_other = "")
app$setInputs(`seeding_technique_1-selectized` = "")
app$setInputs(seeding_technique_1_other = "")
app$setInputs(seed_treatment_1 = "")
app$setInputs(`seeding_implement_type_1-selectized` = "")
app$setInputs(seeding_implement_type_1_other = "")
app$setInputs(`seeding_traction_1-selectized` = "")
app$setInputs(seeding_traction_1_other = "")
app$setInputs(`distance_rows_unit_1-selectized` = "")
app$setInputs(`seeding_rate_unit_1-selectized` = "")
app$setInputs(`distance_plants_unit_1-selectized` = "")
app$setInputs(`seeding_plant_density_unit_1-selectized` = "")
app$setInputs(`transplanting_environment_1-selectized` = "")
app$setInputs(transplanting_environment_1_other = "")
app$setInputs(`transplanting_technique_1-selectized` = "")
app$setInputs(transplanting_technique_1_other = "")
app$setInputs(transplanting_treatment_1 = "")
app$setInputs(`trans_traction_1-selectized` = "")
app$setInputs(trans_traction_1_other = "")
app$setInputs(`trans_distance_rows_unit_1-selectized` = "")
app$setInputs(`trans_seeding_density_unit_1-selectized` = "")
app$setInputs(`trans_distance_plants_unit_1-selectized` = "")
app$setInputs(sidebarItemExpanded = "Fieldbook")
app$setInputs(tabs = "newFieldbookAgrofims")
app$setInputs(fbDesignNav = "tabAgroFeat")
app$setInputs(selectAgroFeature = "Residue management")
app$setInputs(selectAgroFeature = c("Residue management", "Planting and transplanting"))
app$setInputs(nutrienTabPanels = "tabPlanting")
app$setInputs(seeding_environment_1 = "Flat seed bed")
app$setInputs(transplanting_environment_1 = "Flat seed bed")
app$setInputs(selectAgroFeature = c("Residue management", "Planting and transplanting", "Mulch management"))
app$setInputs(nutrienTabPanels = "tabMulching")
app$setInputs(mulch_type = "Compost")
app$setInputs(mulch_thickness_unit = "cm")
app$setInputs(selectAgroFeature = c("Residue management", "Planting and transplanting", "Mulch management", "Irrigation"))
app$setInputs(nutrienTabPanels = "tabIrrigation")
app$setInputs(irrigation_technique_VYOCHGAH = "Localized")
app$setInputs(localized_irrigation_techniqueVYOCHGAH = "Bubbler irrigation")
app$setInputs(irrigation_source_VYOCHGAH = "Lake")
app$setInputs(selectAgroFeature = c("Residue management", "Planting and transplanting", "Mulch management", "Irrigation", "Weeding"))
app$setInputs(nutrienTabPanels = "tabWeeding")
app$setInputs(nutrienTabPanels = "tabIrrigation")
app$setInputs(nutrienTabPanels = "tabWeeding")
app$setInputs(weeding_traction_HYTBURES = "2 wheel tractor")
app$setInputs(weeding_type_HYTBURES = "Manual")
app$setInputs(weeding_technique_HYTBURES = "Chemical")
app$setInputs(selectAgroFeature = c("Residue management", "Planting and transplanting", "Mulch management", "Irrigation", "Weeding", "Harvest"))
app$setInputs(nutrienTabPanels = "tabWeeding")
app$setInputs(nutrienTabPanels = "tabHarvest")
app$setInputs(harvest_implement_FGGBCQSL = "Chopper")
app$setInputs(harvest_traction_FGGBCQSL = "Manual")
app$setInputs(nutrienTabPanels = "tabWeeding")
app$setInputs(nutrienTabPanels = "tabIrrigation")
app$snapshot()