Bug fix

Author: MansMeg

R/pxweb_as_data_frame.R

@@ -100,9 +100,7 @@ pxweb_as_data_frame.pxweb_levels <- function(x, optional = FALSE, ..., stringsAs
   df <- list()
   for(i in seq_along(x)){
     df[[i]] <- as.data.frame(x[[i]], optional = optional, stringsAsFactors = FALSE)
-    if(x[[i]]$type %in% c("l", "h")) {
-      df[[i]]$updated <- NA
-    }
+    if(is.null(df[[i]]$updated)) df[[i]]$updated <- NA
   }
   df <- do.call(rbind, df)
 

tests_bash/pxweb.R

@@ -101,7 +101,7 @@ if(length(new_api_idx) > 0){
 
   for(i in seq_along(new_api_paths)){
     # cat(new_api_paths[i], "\n")
-    first_results[[i]] <- try(pxweb_test_api(url = new_api_paths[i], test_type = "first", verbose = TRUE, time_limit = 10*60), silent = TRUE)
+    first_results[[i]] <- try(pxweb_test_api(url = new_api_paths[i], test_type = "first", verbose = TRUE, time_limit = 15*60), silent = TRUE)
     if(inherits(first_results[[i]], "try-error")){
       new_api_errored[i] <- TRUE
     }