Remove .R extension

wch · wch · commit ce89ac070de0 · 2017-11-29T14:22:06.000-06:00
diff --git a/R/test-app.R b/R/test-app.R
@@ -58,6 +58,7 @@ testApp <- function(appDir = ".", testnames = NULL, quiet = FALSE,
 
     # Keep only specified files
     found_testnames <- found_testnames[idx]
+    found_testnames_no_ext <- found_testnames_no_ext[idx]
   }
 
   if (length(found_testnames) == 0) {
@@ -93,7 +94,7 @@ testApp <- function(appDir = ".", testnames = NULL, quiet = FALSE,
 
   # Compare all results
   return(
-    snapshotCompare(appDir, testnames = testnames, quiet = quiet,
+    snapshotCompare(appDir, testnames = found_testnames_no_ext, quiet = quiet,
       images = compareImages, interactive = interactive)
   )
 }

Original file line number	Diff line number	Diff line change
`@@ -58,6 +58,7 @@ testApp <- function(appDir = ".", testnames = NULL, quiet = FALSE,`
`58`	`58`
`59`	`59`	`# Keep only specified files`
`60`	`60`	`found_testnames <- found_testnames[idx]`
	`61`	`+ found_testnames_no_ext <- found_testnames_no_ext[idx]`
`61`	`62`	`}`
`62`	`63`
`63`	`64`	`if (length(found_testnames) == 0) {`
`@@ -93,7 +94,7 @@ testApp <- function(appDir = ".", testnames = NULL, quiet = FALSE,`
`93`	`94`
`94`	`95`	`# Compare all results`
`95`	`96`	`return(`
`96`		`- snapshotCompare(appDir, testnames = testnames, quiet = quiet,`
	`97`	`+ snapshotCompare(appDir, testnames = found_testnames_no_ext, quiet = quiet,`
`97`	`98`	`images = compareImages, interactive = interactive)`
`98`	`99`	`)`
`99`	`100`	`}`