Move github_files tests to other unit test to avoid gh-queries happening at the same time

Author: bschilder

tests/testthat/test-github_files.R

@@ -1,9 +1,9 @@
 test_that("github_files works", { 
 
-    files <- github_files(owner = "RajLabMSSM",
-                          repo = "Fine_Mapping_Shiny",
-                          query = ".md$", 
-                          download = TRUE)
-    testthat::expect_true(methods::is(files, "data.table"))    
-    testthat::expect_true(nrow(files)>=1)    
+    # files <- github_files(owner = "RajLabMSSM",
+    #                       repo = "Fine_Mapping_Shiny",
+    #                       query = ".md$", 
+    #                       download = TRUE)
+    # testthat::expect_true(methods::is(files, "data.table"))    
+    # testthat::expect_true(nrow(files)>=1)    
 })

tests/testthat/test-github_find_pages.R

@@ -1,13 +1,21 @@
 test_that("github_pages_files works", {
 
+    files <- github_files(owner = "RajLabMSSM",
+                          repo = "Fine_Mapping_Shiny",
+                          query = ".md$", 
+                          download = TRUE)
+    testthat::expect_true(methods::is(files, "data.table"))    
+    testthat::expect_true(nrow(files)>=1)    
+    
     #### Test echolocatoR #####
     dt <-  github_pages_files(owner = "RajLabMSSM",
-                              repo = "echolocatoR") 
-    testthat::expect_gte(nrow(dt), 20)
+                              repo = "echolocatoR",
+                              query = "\\.html$") 
+    testthat::expect_gte(nrow(dt), 30)
 
     #### Test Fine_Mapping repo #### 
     links_df <- github_pages_files(owner = "RajLabMSSM",
                                    repo = "Fine_Mapping",
                                    branch = "master")
-    testthat::expect_gte(nrow(links_df), 220)
+    testthat::expect_gte(nrow(links_df), 4000)
 })

tests/testthat/test-r_repos_downloads.R

@@ -16,8 +16,7 @@ test_that("r_repos_downloads works", {
     p <- "echolocatoR"
     dt <- echogithub::description_extract(ref = p,
                                           fields = NULL,
-                                          as_datatable = TRUE) |>
-        data.table::setnames("Package","package")
+                                          as_datatable = TRUE) 
     pkgs3 <- r_repos_downloads(pkgs = dt)
     run_tests(pkgs=dt,
               pkgs_out = pkgs3)