context("solong")
test_that("fishbase stuff works", {
skip_if_not_installed("rfishbase")
skip_on_ci()
skip_on_cran()
eq <- sol_fb_length_weight("Electrona antarctica", input_properties = "standard length")
expect_equal(nrow(eq), 1)
x <- tibble(SL = 10) %>% mutate(SL = sol_set_property(SL, "standard length", with_units = "cm"))
xa <- sol_allometry(x, eq)
expect_true(as.numeric(xa$allometric_value) > 10) ## > 10g
eq <- sol_fb_length_weight("Pleuragramma antarctica")
expect_is(eq$reference[[1]], "bibentry")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.