refine error handling when statcan is down

mountainMath · mountainMath · commit 7ef661d82704 · 2026-01-11T11:20:44.000-08:00
diff --git a/R/cansim_tables_list.R b/R/cansim_tables_list.R
@@ -93,7 +93,7 @@ list_cansim_cubes <- function(lite=FALSE,refresh=FALSE,quiet=FALSE){
       warning("Could not retrieve cube list from StatCan servers.")
       return(NULL)
     }
-    if (r$status_code==200) {
+    if (!is.null(r$status_code) && r$status_code==200) {
       content <- httr::content(r)
 
       header <- content[[1]] %>%

Original file line number	Diff line number	Diff line change
`@@ -93,7 +93,7 @@ list_cansim_cubes <- function(lite=FALSE,refresh=FALSE,quiet=FALSE){`
`93`	`93`	`warning("Could not retrieve cube list from StatCan servers.")`
`94`	`94`	`return(NULL)`
`95`	`95`	`}`
`96`		`- if (r$status_code==200) {`
	`96`	`+ if (!is.null(r$status_code) && r$status_code==200) {`
`97`	`97`	`content <- httr::content(r)`
`98`	`98`
`99`	`99`	`header <- content[[1]] %>%`