Nothing
# These all might occasionally fail because cts_translate() is currently
# somewhat unreliable.
etox_up <- ping_service("etox")
fn_up <- ping_service("fn")
up <- ping_service("cts")
test_that("with_cts() works when no translation needed", {
skip_on_cran()
skip_if_not(etox_up, "ETOX down!")
skip_if_not(up, "CTS service down")
CASs <- c("75-07-0", "64-17-5")
a <-
with_cts(
query = CASs,
from = "cas",
.f = "get_etoxid",
.verbose = getOption("verbose")
)
b <- get_etoxid(CASs, from = "cas")
expect_equal(a, b)
})
test_that("with_cts() translates", {
skip_on_cran()
skip_if_not(etox_up, "ETOX down!")
skip_if_not(up, "CTS service down")
x <-
with_cts(query = "XDDAORKBJWWYJS-UHFFFAOYSA-N", from = "inchikey", .f = "get_etoxid")
y <- get_etoxid(query = "1071-83-6", from = "cas")
expect_equal(x, y)
})
test_that("find_db() function works", {
skip_on_cran()
skip_if_not(fn_up)
skip_if_not(etox_up)
skip_if_not(up, "CTS service down")
out <- find_db(c("triclosan", NA, "balloon"),
from = "name",
sources = c("etox", "fn"))
df <- tibble(query = c("triclosan", NA, "balloon"),
etox = c(TRUE, FALSE, FALSE),
fn = c(FALSE, FALSE, FALSE))
expect_equal(out, df, ignore_attr = TRUE)
})
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.