tests/testthat/test_app_master.R

In shambhu112/shinyspring: Build Fast Shiny Applications

source("test_init.R")

test_that("initiatialization tests" , {
  master <- app_master$new(params = params)
  expect_false(is.reactivevalues(master$rvals) )
})


test_that("preloadwith dataset" , {
  master <- app_master$new(params = params)
  master$preload_master_with_config()
  ds_names <- master$dataset_names()
  expect_true("mexico" %in% ds_names)

  newdata <- mtcars
  master$replace_dataset_by_name(dataset_name =  "mexico" , replace_with = newdata)
  df <- master$dataset_by_name("mexico")
  expect_true("mpg" %in% colnames(df))
})

test_that("dataset by naem with limit on size" , {
  master <- app_master$new(params = params)
  master$preload_master_with_config()
  ds_names <- master$dataset_names()
  m <- master$dataset_by_name(dataset_name = "mexico" , max_rows = 50)
  expect_true(50 ==  nrow(m))
  m <- master$dataset_by_name(dataset_name = "mexico" )
  expect_true(100 ==  nrow(m))

})


test_that("rename cols" , {
  master <- app_master$new(params = params)
  master$preload_master_with_config()
  ds_names <- master$dataset_names()

  cols <- master$ds_config$branch_dis$rename_cols
  expect_equal(length(cols) , 9)

  cnames <- colnames(master$dataset_by_name("branch_dis"))
  expect_true("km100" %in% cnames)
})


test_that("check built in datasets" , {
  master <- app_master$new(params = params)
  master$preload_master_with_config()
  ds_names <- master$dataset_names()
  a <- master$dataset_by_name("iris")
  expect_equal(150 , nrow(a))
})

test_that("remove dataset" , {
  master <- app_master$new(params = params)
  master$preload_master_with_config()
  ds_names <- master$dataset_names()
  expect_true("misssouri" %in% ds_names)
  o_row_count <- nrow(master$master_data)
  master$remove_dataset(index = 2)
  expect_equal(o_row_count - 1 , nrow(master$master_data))
})



test_that("replace dataset" , {
  master <- app_master$new(params = params)
  master$preload_master_with_config()
  ds_names <- master$dataset_names()
  expect_true("mexico" %in% ds_names)

  mexico <- master$dataset_by_name("mexico")
  expect_equal(100 , nrow(mexico))
  expect_true("Clean.Plaintiff" %in% colnames(mexico))

})


test_that(" Test file formats" , {
  master <- app_master$new(params = params)
  master$preload_master_with_config()
  # check RDS format
  lend <- master$dataset_by_name("lending_club")
  expect_true("annual_inc" %in% colnames(lend))

  # check feather format
  lend <- master$dataset_by_name("lending_club_2")
  expect_true("annual_inc" %in% colnames(lend))
})

test_that("pretty names" , {
  master <- app_master$new(params = params)
  master$preload_master_with_config()
  ds_names <- master$dataset_names()
  expect_true("mexico" %in% ds_names)

  cnames <- master$colnames_for_dataset("mexico")
  expect_true("Clean Plaintiff" %in% cnames)


  pnames <- master$prettynames_for_dataset("mexico")
  expect_true("y96" %in% pnames)

})




test_that(" Test str_detect condition for config object notation" , {
  t <- c("abc" , "abc_t" , "abc.t" , "abc." , ".abc" , "anc.t.y")
  r <- stringr::str_detect(t , "\\D[.]\\D")
  rcheck <- c(FALSE, FALSE ,  TRUE , FALSE ,  FALSE ,  TRUE)
  testthat::expect_equal(sum(rcheck == r) , 6)
})