tests/testthat/test-plot.R

In shinyCLT: Central Limit Theorem 'shiny' Application

library(testthat)
library(plotly)

global_path <- system.file("app", "global.R", package = "shinyCLT")
calc_func_path <- system.file("app", "calc_func.R", package = "shinyCLT")
plot_func_path <- system.file("app", "plot_func.R", package = "shinyCLT")

source(global_path)
source(calc_func_path)
source(plot_func_path)


test_that("generate_distribution_plot works correctly", {
    input <- list(distr = 1, mu = 0, sigma = 1)
    data <- data.frame(x = rnorm(100), y = rnorm(100))
    plot <- generate_distribution_plot(input, distribution, data)
    expect_s3_class(plot, "plotly")
})

test_that("generate_compare_distributions_plot works correctly", {
    input <- list(distr = 1, mu = 0, sigma = 1, group2.mu = 0, group2.sigma = 1)
    group1 <- list(y_r = list(rnorm(100), rnorm(100), rnorm(100), rnorm(100),
                    rnorm(100)))
    group2 <- list(y_r = list(rnorm(100), rnorm(100), rnorm(100), rnorm(100),
                    rnorm(100)))
    plot <- generate_compare_distributions_plot(input, distribution, group1,
                                                group2)
    expect_s3_class(plot, "plotly")
})

test_that("group1_5samples_plot works correctly", {
    input <- list(distr = 1, mu = 0, sigma = 1, group2.mu = 0, group2.sigma = 1)
    group1 <- list(y_r = list(rnorm(100), rnorm(100), rnorm(100), rnorm(100),
                    rnorm(100)))
    group2 <- list(y_r = list(rnorm(100), rnorm(100), rnorm(100), rnorm(100),
                    rnorm(100)))
    plot <- group1_5samples_plot(input, distribution, group1, group2)
    expect_s3_class(plot, "plotly")
})

test_that("generate_5samples_plot works correctly", {
  input <- list(distr = 1, mu = 0, sigma = 1, n = 10, R = 5)
  data <- list(y_r = list(rnorm(10), rnorm(10), rnorm(10), rnorm(10),
              rnorm(10)))
  plot <- generate_5samples_plot(input, distribution, data)
  expect_s3_class(plot, "plotly")
})

test_that("generate_uniform_plot works correctly", {
  input <- list(distr = 1, mu = 0, sigma = 1, n = 10, R = 5)
  data <- list(y_r = list(rnorm(10), rnorm(10), rnorm(10), rnorm(10),
              rnorm(10)))
  plot <- generate_uniform_plot(input, distribution, data)
  expect_s3_class(plot, "plotly")
})

test_that("generate_compare_uniform_plot works correctly", {
  input <- list(distr = 1, mu = 0, sigma = 1, group2.mu = 0, group2.sigma = 1,
              n = 10, R = 5)
  group1 <- list(y_r = list(rnorm(10), rnorm(10), rnorm(10), rnorm(10),
                rnorm(10)))
  group2 <- list(y_r = list(rnorm(10), rnorm(10), rnorm(10), rnorm(10),
                rnorm(10)))
  plot <- generate_compare_uniform_plot(input, distribution, group1, group2)
  expect_s3_class(plot, "plotly")
})

test_that("group2_5samples_plot works correctly", {
  input <- list(distr = 1, mu = 0, sigma = 1, group2.mu = 0, group2.sigma = 1,
                n = 10, R = 5)
  group1 <- list(y_r = list(rnorm(10), rnorm(10), rnorm(10), rnorm(10),
                rnorm(10)))
  group2 <- list(y_r = list(rnorm(10), rnorm(10), rnorm(10), rnorm(10),
                rnorm(10)))
  plot <- group2_5samples_plot(input, distribution, group1, group2)
  expect_s3_class(plot, "plotly")
})

test_that("plot_density_qq works correctly", {
  input <- list(distr = 1, mu = 0, sigma = 1, n = 10, R = 5)
  data <- list(mean_r = rnorm(100), y_r = list(rnorm(10), rnorm(10), rnorm(10),
              rnorm(10), rnorm(10)))

  pdf(NULL)
  plot_density_qq(data, input)
  dev.off()

  expect_true(TRUE)
})

test_that("plot_compare_density_qq works correctly", {
  input <- list(distr = 1, mu = 0, sigma = 1, group2.mu = 0, group2.sigma = 1,
                n = 10, R = 5)
  group1 <- list(mean_r = rnorm(100), y_r = list(rnorm(10), rnorm(10),
                rnorm(10), rnorm(10), rnorm(10)))
  group2 <- list(mean_r = rnorm(100), y_r = list(rnorm(10), rnorm(10),
                rnorm(10), rnorm(10), rnorm(10)))
  pdf(NULL)
  plot_compare_density_qq(group1, group2, input)
  dev.off()
  expect_true(TRUE)
})

test_that("plot_compare_means_qq works correctly", {
  input <- list(distr = 1, mu = 0, sigma = 1, group2.mu = 0, group2.sigma = 1,
                n = 10, R = 5)
  group1 <- list(mean_r = rnorm(100), y_r = list(rnorm(10), rnorm(10),
                  rnorm(10), rnorm(10), rnorm(10)))
  group2 <- list(mean_r = rnorm(100), y_r = list(rnorm(10), rnorm(10),
                  rnorm(10), rnorm(10), rnorm(10)))
  pdf(NULL)
  plot_compare_means_qq(group1, group2, input)
  dev.off()
  expect_true(TRUE)
})

test_that("plot_CI works correctly", {
  input <- list(distr = 1, mu = 0, sigma = 1, n = 10, R = 5)
  data <- list(ci_r = matrix(rnorm(200), ncol = 2), coverage_r = rnorm(100))

  pdf(NULL)
  plot <- plot_CI(data, input)
  dev.off()

  expect_s3_class(plot, "plotly")
})