tests/testthat/test_query.r

In MRCIEU/mrever: Query the MR-EvE graph database

context("Connecting and querying mr-eve")
library(mrever)


test_that("can connect", {
	expect_equal(length(connect()$version), 1)
})

test_that("can get all traits", {
	expect_gt(nrow(get_traits()), 100)
})

test_that("can get one trait", {
	expect_equal(nrow(get_traits("2")), 1)
})

test_that("can get several trait", {
	expect_equal(nrow(get_traits(c("2", "7", "1001"))), 3)
})

test_that("can extract instruments", {
	a <- get_instruments(2)
	expect_equal(sum(a$pval < 5e-8), nrow(a))
})

test_that("can extract instruments, multiple", {
	a <- get_instruments(c(2, 7))
	expect_equal(length(unique(a$bgcidId)), 2)
})

test_that("can extract instruments, multiple", {
	a <- get_instruments(c(2, 7))
	expect_equal(length(unique(a$bgcidId)), 2)
})

test_that("mr looks sensible", {
	a <- get_mr(2, 7)
	expect_equal(all(names(a) %in% c("mr", "heterogeneity", "directional_pleiotropy")), TRUE)
})

test_that("mr-moe looks sensible", {
	a <- get_mrmoe(2, 7)
	expect_equal(nrow(a), 1)
})

test_that("mr-phewas looks sensible", {
	a <- phewas(2)
	expect_gt(nrow(a), 100)
})