Minor bug fix

MansMeg · MansMeg · commit 65d611cccc1e · 2022-01-29T21:19:35.000+01:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -40,7 +40,8 @@ Suggests:
     knitr,
     remotes,
     rmarkdown,
-    testthat (>= 0.11)
+    testthat (>= 0.11),
+    xml2
 VignetteBuilder: 
     knitr
 Encoding: UTF-8
diff --git a/R/pxweb_test_api_endpoint.R b/R/pxweb_test_api_endpoint.R
@@ -85,7 +85,7 @@ pxweb_test_api <- function(url, test_type="first", n = 1, verbose = TRUE, time_l
     
     api_tree_df$checked[i] <- TRUE
     
-    if(test_type == "touch"){
+    if(test_type == "touch" & !inherits(tmp_df, "try-error")){
       # Jump to next level
       i <- nrow(api_tree_df)
     }

Original file line number	Diff line number	Diff line change
`@@ -85,7 +85,7 @@ pxweb_test_api <- function(url, test_type="first", n = 1, verbose = TRUE, time_l`
`85`	`85`
`86`	`86`	`api_tree_df$checked[i] <- TRUE`
`87`	`87`
`88`		`- if(test_type == "touch"){`
	`88`	`+ if(test_type == "touch" & !inherits(tmp_df, "try-error")){`
`89`	`89`	`# Jump to next level`
`90`	`90`	`i <- nrow(api_tree_df)`
`91`	`91`	`}`