Reorganisation of test for GHA

.Rbuildignore

@@ -4,7 +4,8 @@ Trial
 ^README\.Rmd$
 materials
 test_model
-tests/testthat/test_data
+tests/testthat/test_data/language_models
+test/testthat/test_data/tmp
 .git
 .gitignore
 _pkgdown.yml

.Rhistory

@@ -1,15 +1,3 @@
-example_data<-data.frame(
-id=quanteda::docvars(quanteda.textmodels::data_corpus_moviereviews)$id1,
-label=quanteda::docvars(quanteda.textmodels::data_corpus_moviereviews)$sentiment)
-example_data$text<-as.character(quanteda.textmodels::data_corpus_moviereviews)
-expect_no_error(
-create_roberta_model(
-model_dir=testthat::test_path("test_data/roberta"),
-vocab_raw_texts=example_data$text,
-vocab_size=30522,
-add_prefix_space=FALSE,
-max_position_embeddings=512,
-hidden_size=768,
 num_hidden_layer=12,
 num_attention_heads=12,
 intermediate_size=3072,
@@ -510,3 +498,15 @@ gc()
 devtools::build_site()
 devtools::document()
 devtools::build_site()
+usethis::use_github_action_check_standard()
+devtools::build_readme()
+devtools::document()
+devtools::check()
+devtools::check()
+devtools::check()
+devtools::test()
+devtools::check()
+devtools::test()
+devtools::document()
+devtools::check()
+reticulate::py_config()

.gitignore

@@ -9,3 +9,5 @@ udpipe_models
 language_models
 .Rhistory
 *.h5
+tests/testthat/test_data/language_models
+test/testthat/test_data/tmp

tests/testthat/test-basic_text_rep.R

@@ -1,5 +1,5 @@
 
-path="test_data/vocab_draft_movie_review.rda"
+path="test_data/gvc_lda/vocab_draft_movie_review.rda"
 testthat::skip_if_not(condition=file.exists(testthat::test_path(path)),
                       message  = "Necessary dataset not available")
 #------------------------------------------------------------------------------

tests/testthat/test-classifier_neural_net.R

@@ -1,7 +1,7 @@
 testthat::skip_if_not(condition=check_aif_py_modules(trace = FALSE),
                       message  = "Necessary python modules not available")
 
-path="test_data/bert_embeddings.rda"
+path="test_data/classifier/bert_embeddings.rda"
 testthat::skip_if_not(condition=file.exists(testthat::test_path(path)),
                       message  = "Necessary dataset not available")
 

tests/testthat/test-text_embedding_model_gvc_lda.R

@@ -1,4 +1,4 @@
-path="test_data/basic_text_rep_movie_reviews.rda"
+path="test_data/gvc_lda/basic_text_rep_movie_reviews.rda"
 testthat::skip_if_not(condition=file.exists(path),
                       message  = "Necessary dataset not available")
 

tests/testthat/test-train_bert_model.R

@@ -26,7 +26,7 @@ test_that("train_tune_bert_model", {
                           multi_process=FALSE,
                           trace=FALSE))
   expect_no_error(
-    train_tune_bert_model(output_dir=testthat::test_path("test_data/tmp"),
+    train_tune_bert_model(output_dir=testthat::test_path("test_data/bert"),
                           bert_model_dir_path=testthat::test_path("test_data/bert"),
                           raw_texts= example_data$text[1:5],
                           aug_vocab_by=100,
@@ -41,7 +41,7 @@ test_that("train_tune_bert_model", {
                           trace=FALSE))
 
   expect_no_error(
-    train_tune_bert_model(output_dir=testthat::test_path("test_data/tmp"),
+    train_tune_bert_model(output_dir=testthat::test_path("test_data/bert"),
                           bert_model_dir_path=testthat::test_path("test_data/bert"),
                           raw_texts= example_data$text[1:5],
                           aug_vocab_by=0,

tests/testthat/test-train_longformer_model.R

@@ -2,7 +2,7 @@ testthat::skip_on_cran()
 testthat::skip_if_not(condition=check_aif_py_modules(trace=FALSE),
                   message = "Necessary python modules not available")
 testthat::skip_if_not(condition = dir.exists(testthat::test_path("test_data/longformer")),
-                      message = "Necessary bert model not available")
+                      message = "Necessary longformer model not available")
 aifeducation::set_config_gpu_low_memory()
 
 test_that("train_tune_longformer_model", {

tests/testthat/test-train_roberta_model.R

@@ -2,7 +2,7 @@ testthat::skip_on_cran()
 testthat::skip_if_not(condition=check_aif_py_modules(trace=FALSE),
                   message = "Necessary python modules not available")
 testthat::skip_if_not(condition = dir.exists(testthat::test_path("test_data/roberta")),
-                      message = "Necessary bert model not available")
+                      message = "Necessary roberta model not available")
 aifeducation::set_config_gpu_low_memory()
 
 test_that("train_tune_roberta_model", {