dsfs

svmiller · Jan 26, 2024 · 7cc73c4 · 7cc73c4
1 parent ce88d5a
commit 7cc73c4
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 4 deletions.
diff --git a/cran-comments.md b/cran-comments.md
@@ -9,3 +9,7 @@ R CMD check done via `devtools::check()`, resulting in 0 errors, 0 warnings, 0 n
 ## Downstream dependencies
 
 This is a simple template package with no downstream dependencies to note.
+
+## Feedback to CRAN upon initial rejection
+
+That was me clumsily adding new templates while my tests were hard-connected to elements in a vector, by number. That's my bad.
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -2,7 +2,7 @@ pandoc: 3.1.1
 pkgdown: 2.0.7
 pkgdown_sha: ~
 articles: {}
-last_built: 2024-01-26T15:22Z
+last_built: 2024-01-26T15:48Z
 urls:
   reference: http://svmiller.com/reference
   article: http://svmiller.com/articles

diff --git a/tests/testthat/test-exists.R b/tests/testthat/test-exists.R
@@ -3,18 +3,18 @@ context("Does template exist")
 #templates_all <- list.files("inst/rmarkdown/templates")
 templates_all <- list.files(system.file("rmarkdown", "templates", package="stevetemplates"))
 
-for (i in templates_all[c(1:6,8:11)]) {
+for (i in templates_all[which(templates_all != "html_article" & templates_all != "word")]) {
 
   expect_true(file.exists(system.file("rmarkdown", "templates", i, "resources", "template.tex", package = "stevetemplates")))
 }
 
 
-for (i in templates_all[c(7)]) {
+for (i in templates_all[which(templates_all == "html_article")]) {
 
   expect_true(file.exists(system.file("rmarkdown", "templates", i, "resources", "template.html", package = "stevetemplates")))
 }
 
-for (i in templates_all[c(12)]) {
+for (i in templates_all[which(templates_all == "word")]) {
 
   expect_true(file.exists(system.file("rmarkdown", "templates", i, "resources", "template.docx", package = "stevetemplates")))
 }