test/test_package.r

In sooyongl/ESS:

rm(list = ls())
library(shiny)
library(shinythemes)
library(shinyWidgets)
library(tidyverse)
library(glue)
library(foreach)
library(stringi)
library(DT)
library(knitr)
library(kableExtra)
library(readxl)
library(officer)
library(flextable)
library(shinycssloaders)
library(waiter)

root <- rprojroot::find_rstudio_root_file()

source_files <- fs::dir_ls(file.path(root, "R"))
data_path <- file.path(root, "test/data")

library(ESS)

for(i in 1:length(source_files)) { source(source_files[i])}

filePath <- fs::dir_ls(data_path)[2]

# Test run ------------------------------------------------
imprt_data <- read_data(filePath)
data_list <- data_ready(imprt_data)

res <- runESS(
  data_list,
  grade = c("M3"),
  ald = "ALD",
  location = "Loc_RP67",
  WESS = F,
  modal = F,
  threshold = F
  )

res <- updateESS(
  ess_class = res,
  manual_cp = list(c(2,7,10))
)

# Individually -----------------------------------------------
imprt_data <- read_data(filePath)
data_list <- data_ready(imprt_data)
####################################################
information <-
  get_data_info(
    data_list,
    grade = c("M3"),
    ald = "ALD",
    location = "Loc_RP67",
    WESS = F,
    modal = F,
    threshold = F
  )

####################################################
# tab0 <- list()
tab0 <- gen_tab0(information)

####################################################
# tab1 <- list()
tab1 <- gen_tab1(tab0, information)

#############################################################
for_report <- list()
for_report$indi <-
  dt_table_out_indi(tab1$indi_table, table_options_new_1)
for_report$med <-
  dt_table_out_med(tab1$median_table, table_options_new_2)
for_report$mode <-
  dt_table_out_mode(tab1$modal_table, table_options_new_2)
#############################################################
# Tab 2 - Generate TAB & output panels inside generated Tabs
tab2 <- gen_tab2(tab1, information)

# need to be fixed for update ------------------------------------------
manual_cp <- list(c(2,7,10))
tab1 <- update_tab1(tab0, tab1, information, manual_cp)
tab2 <- update_tab2(tab1, information)


for_tab2_out <- tab2$for_tab2_out

dataUse_1 <- for_tab2_out[[1]][[1]][["t_out"]]
tab2_table(dataUse_1, information$base_data$WESS)

eff_data <- for_tab2_out[[1]][[1]][["eff_data"]]
tab2_table_effpage(eff_data)

crosstabs <- for_tab2_out[[1]][[1]][["crosst"]]
tab2_table_crosst(crosstabs)

p1 <- for_tab2_out[[1]][[1]][["p1"]]

#############################################################
# Tab 3 - Summary of Cut Scores and impact data
tab3 <- gen_tab3(tab1, information)

tab3_table_pagetb(tab3)
tab3_plots(tab3)
#############################################################
# Tab 4 - Item Review Ready
tab4 <- gen_tab4(tab1, tab2, tab3, information)
tab4_table_review(tab4)