tests/testthat/test-plot_f_tmh_ncbi_per_spanner.R

In richelbilderbeek/ncbi_results: Creates Results

test_that("use", {
  folder_name <- "~/GitHubs/ncbi_peregrine/scripts"
  if (!dir.exists(folder_name)) return()
  p <- plot_f_tmh_ncbi_per_spanner(folder_name = folder_name)
  p
  p ; ggplot2::ggsave(
    file.path(folder_name, "fig_f_tmh_ncbi_per_spanner.png"),
    width = 180, units = "mm",
    height = 180
  )
  p ; ggplot2::ggsave(
    file.path(folder_name, "fig_f_tmh_ncbi_per_spanner.tiff"),
    width = 180, units = "mm",
    height = 180
  )
  p ; ggplot2::ggsave(
    file.path(folder_name, "fig_f_tmh_ncbi_per_spanner.eps"),
    width = 180, units = "mm",
    height = 180
  )
  p ; ggplot2::ggsave(
    file.path("~/fig_f_tmh_ncbi_per_spanner.png"),
    width = 180, units = "mm",
    height = 180
  )
  p ; ggplot2::ggsave(
    file.path("~/fig_f_tmh_ncbi_per_spanner.tiff"),
    width = 180, units = "mm",
    height = 180
  )
  p ; ggplot2::ggsave(
    file.path("~/fig_f_tmh_ncbi_per_spanner.eps"),
    width = 180, units = "mm",
    height = 180
  )
})