tests/testthat/test-ggmugs.R

In ggmugs: Visualization of Multiple Genome-Wide Association Study Summary Statistics

test_that("ggmugs works", {
  plt = ggmugs(
    study_name = c("study1", "study2"),
    summary_stat = c("https://raw.githubusercontent.com/Broccolito/ggmugs_data/main/sumstat1.txt",
                     "https://raw.githubusercontent.com/Broccolito/ggmugs_data/main/sumstat2.txt"),
    p1 = 1e-4,
    p2 = 1e-6,
    p3 = 1e-8,
    color1 = "#FFFFE0",
    color2 = "#FFC300",
    color3 = "#FF5733"
  )
})