Nothing
#Tests for BIEN package
#Normal testing
schema <- "public"
#List tests
test_that("List functions return a dataframe",{
skip_if_offline()
expect_that(BIEN_list_all(schema = schema),
is_a("data.frame"))
expect_that(BIEN_list_country("Bahamas",
schema = schema),
is_a("data.frame"))
expect_that(BIEN_list_county(country = "United States",
state = "Michigan",
county = "Kent",
cultivated = TRUE,
new.world = FALSE,
schema=schema),
is_a("data.frame"))
expect_that(BIEN_list_state(country = "United States",
state = "Rhode Island",
schema = schema),
is_a("data.frame"))
})
#Metadata tests
test_that("Metadata functions return a dataframe",{
skip_if_offline()
expect_that(BIEN_metadata_database_version(schema = schema),
is_a("data.frame"))
})
test_that("Metadata_citation function returns a list",{
skip_if_offline()
expect_that(BIEN_metadata_citation(),
is_a("list"))
})
#Occurrence tests
# test_that("postGIS Occurrence functions return a dataframe",{
#
# skip_if_offline()
#
# skip_on_cran()
#
# expect_that(BIEN_occurrence_box(min.lat = 32.9,
# max.lat = 33,
# min.long = -114,
# max.long = -113.9,
# cultivated = TRUE,
# new.world = FALSE,
# all.taxonomy = T,
# native.status = T,
# natives.only = T,
# observation.type = T,
# political.boundaries = T,
# schema=schema),
# is_a("data.frame"))
#
#
# })
#Occurrence tests
test_that("Occurrence functions return a dataframe",{
skip_if_offline()
skip_on_cran()
expect_that(BIEN_occurrence_country("Bahamas",
schema = schema,
collection.info = T,
limit = 1),
is_a("data.frame"))
expect_that(BIEN_occurrence_county(country = "United States",
state = "Arizona",
county = "Pima",
limit = 1,
schema = schema),
is_a("data.frame"))
expect_that(BIEN_occurrence_family(family = "Cactaceae",
limit = 1,
schema = schema),
is_a("data.frame"))
expect_that(BIEN_occurrence_genus(genus = "Xanthium",
schema = schema,
limit = 10),
is_a("data.frame"))
expect_that(BIEN_occurrence_species(species = "Xanthium strumarium",
cultivated = T,
new.world = F,
all.taxonomy = T,
native.status = T,
observation.type = T,
political.boundaries = T,
limit = 1,
schema = schema),
is_a("data.frame"))
expect_that(BIEN_occurrence_state(country = "United States",
state = "Rhode Island",
schema = schema,
limit = 10),
is_a("data.frame"))
expect_that(BIEN_occurrence_sf( BIEN_ranges_load_species(species = "Aa argyrolepis"),
limit = 10),
is_a("data.frame"))
# expect_that(BIEN_occurrence_records_per_species(),
# is_a("data.frame"))
})
#Phylogeny
test_that("Phylogeny functions return a phylogeny",{
skip_if_offline()
expect_that(BIEN_phylogeny_complete(n_phylogenies = 2,
schema = schema),
is_a("multiPhylo"))
expect_that(BIEN_phylogeny_conservative(schema = schema),
is_a("phylo"))
})
#Plot
test_that("Plot functions return a dataframe",{
skip_if_offline()
skip_on_cran()
expect_that(BIEN_plot_country("Puerto Rico",
cultivated = T,
new.world = F,
all.taxonomy = T,
native.status = T,
political.boundaries = T,
all.metadata = T,
schema = schema,
limit = 1),
is_a("data.frame"))
expect_that(BIEN_plot_dataset(dataset = "SALVIAS",
schema = schema,
limit = 1),
is_a("data.frame"))
expect_that(BIEN_plot_datasource("test",
schema = schema),
is_a("data.frame"))
expect_that(BIEN_plot_list_datasource(schema = schema),
is_a("data.frame"))
expect_that(BIEN_plot_list_sampling_protocols(schema = schema),
is_a("data.frame"))
expect_that(BIEN_plot_metadata(schema = schema),
is_a("data.frame"))
expect_that(BIEN_plot_name("test",
schema = schema,
collection.info = T),
is_a("data.frame"))
expect_that(BIEN_plot_sampling_protocol(sampling_protocol = "test",
natives.only = T,
schema = schema),
is_a("data.frame"))
expect_that(BIEN_plot_state(country = "United States",
state = "Michigan",
limit = 1,
schema = schema),
is_a("data.frame"))
})
#Ranges
test_that("Ranges functions return an sf",{
skip_if_offline()
expect_that(BIEN_ranges_load_species(species = "Abies amabilis",
schema = schema),
is_a("sf"))
})
#Stem
test_that("Stem functions return a dataframe",{
skip_if_offline()
skip_on_cran()
expect_that(BIEN_stem_species(species = "Abies amabilis",
natives.only = T,
native.status = T,
collection.info = T,
schema = schema),
is_a("data.frame"))
expect_that(BIEN_stem_genus(genus = "Abies",
natives.only = T,
native.status = T,
schema = schema,
limit = 1),
is_a("data.frame"))
expect_that(BIEN_stem_family(family = "Selaginellaceae",
natives.only = T,
native.status = T,
schema = schema),
is_a("data.frame"))
})
#Taxonomy
test_that("Taxonomy functions return a dataframe",{
skip_if_offline()
expect_that(BIEN_taxonomy_family("Cactaceae",
schema = schema),
is_a("data.frame"))
expect_that(BIEN_taxonomy_genus("Xanthium",
schema = schema),
is_a("data.frame"))
expect_that(BIEN_taxonomy_species("Xanthium strumarium",
schema = schema),
is_a("data.frame"))
})
#trait
test_that("Trait functions return a dataframe",{
skip_if_offline()
expect_that(BIEN_trait_family("Cactaceae",
schema = schema),
is_a("data.frame"))
expect_that(BIEN_trait_genus("Xanthium",
schema = schema),
is_a("data.frame"))
expect_that(BIEN_trait_list(schema = schema),
is_a("data.frame"))
expect_that(BIEN_trait_mean(species = "Xanthium strumarium",
trait = "leaf dry mass per leaf fresh mass",
schema = schema),
is_a("data.frame"))
expect_that(BIEN_trait_species("Xanthium strumrium",
all.taxonomy = TRUE,
political.boundaries = TRUE,
schema = schema),
is_a("data.frame"))
expect_that(BIEN_trait_trait("leaf dry mass per leaf fresh mass",
schema = schema,
limit = 1),
is_a("data.frame"))
expect_that(BIEN_trait_traitbyfamily(trait = "leaf dry mass per leaf fresh mass",
family = "Asteraceae",
schema = schema,
limit = 1),
is_a("data.frame"))
expect_that(BIEN_trait_traitbygenus(trait = "leaf dry mass per leaf fresh mass",
genus = "Xanthium",
schema = schema,
limit = 1),
is_a("data.frame"))
expect_that(BIEN_trait_traitbyspecies(trait = "leaf dry mass per leaf fresh mass",
species = "Xanthium strumarium",
schema = schema,
limit = 1),
is_a("data.frame"))
#expect_that(BIEN_trait_traits_per_species(schema=schema) ,is_a("data.frame"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.