test_that("We can get the column descriptions as desired", { skip_if_offline("data.nhm.ac.uk") # Basic checks for the case that we have a data.frame output columns <- GetColumnDescriptions() columns <- columns[order(columns$Column), ] expect_equal(nrow(columns), 69) expect_equal(ncol(columns), 8) expect_equal( names(columns), c("Column", "Applies_to", "Site_extract", "Diversity_extract", "Type", "Value_guaranteed_to_be_non_empty", "Notes", "Validation") ) names <- c( "Best_guess_binomial", "Biome", "Block", "COL_ID", "Class", "Coordinates_method", "Country", "Country_distance_metres", "Diversity_metric", "Diversity_metric_is_effort_sensitive", "Diversity_metric_is_suitable_for_Chao", "Diversity_metric_type", "Diversity_metric_unit", "Ecoregion", "Ecoregion_distance_metres", "Effort_corrected_measurement", "Family", "Genus", "Habitat_as_described", "Habitat_patch_area_square_metres", "Higher_taxa", "Higher_taxon", "Hotspot", "Indication", "Kingdom", "Km_to_nearest_edge_of_habitat", "Latitude", "Longitude", "Max_linear_extent_metres", "Measurement", "N_samples", "Name_status", "Order", "Parsed_name", "Phylum", "Predominant_land_use", "Rank", "Rank_of_study_common_taxon", "Realm", "Reference", "Rescaled_sampling_effort", "SS", "SSB", "SSBS", "SSS", "Sample_date_resolution", "Sample_end_latest", "Sample_midpoint", "Sample_start_earliest", "Sampling_effort", "Sampling_effort_unit", "Sampling_method", "Site_name", "Site_number", "Source_ID", "Source_for_predominant_land_use", "Species", "Study_common_taxon", "Study_name", "Study_number", "Taxon", "Taxon_name_entered", "Taxon_number", "Transect_details", "UN_region", "UN_subregion", "Use_intensity", "Wilderness_area", "Years_since_fragmentation_or_conversion" ) expect_equal(columns$Column, names) })