diff --git a/R/wrf_get.R b/R/wrf_get.R index 0e5d838..e373a14 100644 --- a/R/wrf_get.R +++ b/R/wrf_get.R @@ -50,7 +50,8 @@ wrf_get <- function(file = file.choose(), name = NA, as_raster = FALSE, cat(paste0('reading Times from ', file,'\n')) # nocov TIME <- ncvar_get(wrfchem,'Times') # nocov TIME <- as.POSIXlt(TIME, tz = "UTC", format="%Y-%m-%d_%H:%M:%OS", optional=FALSE) # nocov - cat('returning Times in POSIXct\n') # nocov + if(verbose) # nocov + cat('returning Times in POSIXct\n') # nocov return(TIME) # nocov } } diff --git a/tests/testthat/test-get_edgar.R b/tests/testthat/test-get_edgar.R index 3746a52..a3de498 100644 --- a/tests/testthat/test-get_edgar.R +++ b/tests/testthat/test-get_edgar.R @@ -12,8 +12,7 @@ get_edgar(dataset = "v50_AP", sector = c("CHE"), pol = "CO", year = 2012:2013, - ask = F, - n = 2) + ask = F) test_that("get_edgar stops", {