inst/hidap_agrofims/tests/mytest.R

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

app <- ShinyDriver$new("../", shinyOptions = list(port = 8000))
app$snapshotInit("mytest")

app$setInputs(closeModal = "click")
app$setInputs(btLoginModal = "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(closeBox_PE_DTQEDWVV = "click")
app$setInputs(projEntity_DTQEDWVV = character(0))
app$setInputs(contCenter_DTQEDWVV = character(0))
app$setInputs(contCRP_DTQEDWVV = character(0))
app$setInputs(projEntity_DTQEDWVV_other = "")
app$setInputs(closeBox_EL_JZTNDFFT = "click")
app$setInputs(projLeadEnt_JZTNDFFT = character(0))
app$setInputs(tLeadCenter_JZTNDFFT = character(0))
app$setInputs(lead_org_type_1_JZTNDFFT = character(0))
app$setInputs(lead_org_type_1_JZTNDFFT_other = "")
app$setInputs(leadNameOther_JZTNDFFT = "")
app$setInputs(expLead_JZTNDFFT = "")
app$setInputs(closeBox_PERS_KGZITIMV = "click")
app$setInputs(personnel_type_KGZITIMV = character(0))
app$setInputs(person_affiliation_KGZITIMV = character(0))
app$setInputs(person_center_KGZITIMV = character(0))
app$setInputs(personnel_type_KGZITIMV_other = "")
app$setInputs(person_firstName_KGZITIMV = "")
app$setInputs(person_lastName_KGZITIMV = "")
app$setInputs(person_email_KGZITIMV = "")
app$setInputs(person_email_KGZITIMV_other = "")
app$setInputs(person_orcid_KGZITIMV = "")
app$setInputs(closeBox_IC_RNMWYWKJ = "click")
app$setInputs(cropCommonNameInter_RNMWYWKJ = character(0))
app$setInputs(cropVarietyName_RNMWYWKJ = character(0))
app$setInputs(cropCommonNameInter_RNMWYWKJ_other = "")
app$setInputs(intercropValue_row_crop_RNMWYWKJ = "")
app$setInputs(closeBox_IC_XUJHMBBL = "click")
app$setInputs(cropCommonNameInter_XUJHMBBL = character(0))
app$setInputs(cropVarietyName_XUJHMBBL = character(0))
app$setInputs(cropCommonNameInter_XUJHMBBL_other = "")
app$setInputs(intercropValue_row_crop_XUJHMBBL = "")
app$setInputs(btAddFullFactorial = "click")
app$setInputs(designFieldbook_agrofims_r_y = "2")
app$setInputs(closeBox_FF_DWUTRVVT = "click")
app$setInputs(btDuplicate_FF_DWUTRVVT = "click")
app$setInputs(sel_factor_DWUTRVVT_1 = character(0))
app$setInputs(sel_factor_DWUTRVVT_2 = character(0))
app$setInputs(sel_factor_DWUTRVVT_3 = character(0))
app$setInputs(numLevels_DWUTRVVT = 2)
app$setInputs(closeBox_FF_QPRQEQPD = "click")
app$setInputs(btDuplicate_FF_QPRQEQPD = "click")
app$setInputs(sel_factor_QPRQEQPD_1 = character(0))
app$setInputs(sel_factor_QPRQEQPD_2 = character(0))
app$setInputs(sel_factor_QPRQEQPD_3 = character(0))
app$setInputs(numLevels_QPRQEQPD = 2)
app$setInputs(weeding_start_date_1 = character(0))
app$setInputs(weeding_end_date_1 = character(0))
app$setInputs(weeding_start_date_1_button = "click")
app$setInputs(weeding_end_date_1_button = "click")
app$setInputs(weeding_technique_1 = character(0))
app$setInputs(weeding_type_1 = character(0))
app$setInputs(weeding_traction_1 = character(0))
app$setInputs(weeding_type_1_other = "")
app$setInputs(weeding_traction_1_other = "")
app$setInputs(irrigationevent_start_date_1 = character(0))
app$setInputs(irrigationevent_end_date_1 = character(0))
app$setInputs(irrigationevent_start_date_1_button = "click")
app$setInputs(irrigationevent_end_date_1_button = "click")
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(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(irrigationevent_start_date_2 = character(0))
app$setInputs(irrigationevent_end_date_2 = character(0))
app$setInputs(irrigationevent_start_date_2_button = "click")
app$setInputs(irrigationevent_end_date_2_button = "click")
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(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(irrigationevent_start_date_3 = character(0))
app$setInputs(irrigationevent_end_date_3 = character(0))
app$setInputs(irrigationevent_start_date_3_button = "click")
app$setInputs(irrigationevent_end_date_3_button = "click")
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(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(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_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_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_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_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_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_techinque_soil_table_row_3_other = "")
app$setInputs(harvest_start_date_1 = character(0))
app$setInputs(harvest_end_date_1 = character(0))
app$setInputs(desc_harvest_titleId_1 = "click")
app$setInputs(harvest_start_date_1_button = "click")
app$setInputs(harvest_end_date_1_button = "click")
app$setInputs(harvest_cut_height_unit_1 = character(0))
app$setInputs(harvest_method_1 = character(0))
app$setInputs(crop_component_harvested_1 = character(0))
app$setInputs(space_rows_harvested_unit_1 = character(0))
app$setInputs(area_harvested_unit_1 = character(0))
app$setInputs(harvest_technique_1 = character(0))
app$setInputs(harvest_implement_1 = character(0))
app$setInputs(harvest_traction_1 = character(0))
app$setInputs(amount_harvested_unit_1 = character(0))
app$setInputs(harvest_cut_height_1 = character(0))
app$setInputs(harvest_method_value_1 = 1)
app$setInputs(space_rows_harvested_1 = character(0))
app$setInputs(area_harvested_1 = character(0))
app$setInputs(amount_harvested_1 = character(0))
app$setInputs(harvest_notes_1 = "")
app$setInputs(`harvest_method_value_1 _other` = "")
app$setInputs(harvest_method_1_other = "")
app$setInputs(crop_component_harvested_1_other = "")
app$setInputs(num_plants_area_harvested_1 = "")
app$setInputs(harvest_implement_1_other = "")
app$setInputs(harvest_traction_1_other = "")
app$setInputs(planting_start_date_1 = character(0))
app$setInputs(planting_end_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(planting_end_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 = TRUE)
app$setInputs(transplanting_checkbox_1 = TRUE)
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_technique_1_other = "")
app$setInputs(seed_treatment_1 = "")
app$setInputs(seeding_implement_type_1_other = "")
app$setInputs(seeding_traction_1_other = "")
app$setInputs(transplanting_environment_1_other = "")
app$setInputs(transplanting_technique_1_other = "")
app$setInputs(transplanting_treatment_1 = "")
app$setInputs(trans_traction_1_other = "")
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")
app$setInputs(sidebarItemExpanded = "Fieldbook")
app$setInputs(tabs = "newFieldbookAgrofims")
app$setInputs(addFundingAgency = "click")
app$setInputs(closeBox_FA_YVOLGQPG = "click")
app$setInputs(designFieldbook_fundAgencyType_YVOLGQPG = character(0))
app$setInputs(designFieldbook_fundAgencyType_YVOLGQPG_other = "")
app$setInputs(designFieldbook_fundAgencyType_name_YVOLGQPG = "")
app$setInputs(addManagEntity = "click")
app$setInputs(closeBox_PE_NYRVCWWE = "click")
app$setInputs(projEntity_NYRVCWWE = character(0))
app$setInputs(contCenter_NYRVCWWE = character(0))
app$setInputs(contCRP_NYRVCWWE = character(0))
app$setInputs(projEntity_NYRVCWWE_other = "")
app$setInputs(addExperimentLeads = "click")
app$setInputs(closeBox_EL_WPXWIBJK = "click")
app$setInputs(projLeadEnt_WPXWIBJK = character(0))
app$setInputs(tLeadCenter_WPXWIBJK = character(0))
app$setInputs(lead_org_type_1_WPXWIBJK = character(0))
app$setInputs(lead_org_type_1_WPXWIBJK_other = "")
app$setInputs(leadNameOther_WPXWIBJK = "")
app$setInputs(expLead_WPXWIBJK = "")
app$snapshot()