Running 'testthat.R' [38s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(kiwisR)
  > 
  > test_check("kiwisR")
  -- 1. Error: ki_station_list should return a tibble (@test_ki_station_list.R#15)
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_station_list(hub = example_hub) at testthat/test_ki_station_list.R:15
  2: suppressWarnings(dplyr::mutate_at(content_dat, dplyr::vars(dplyr::one_of(c("station_latitude", 
         "station_longitude"))), as.double))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: dplyr::mutate_at
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 2. Error: ki_station_list accepts search_term filters (@test_ki_station_list.
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_station_list(hub = example_hub, search_term = "A*") at testthat/test_ki_station_list.R:23
  2: suppressWarnings(dplyr::mutate_at(content_dat, dplyr::vars(dplyr::one_of(c("station_latitude", 
         "station_longitude"))), as.double))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: dplyr::mutate_at
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 3. Error: ki_station_list accepts bbox filter (vector or character) (@test_ki
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_station_list(hub = example_hub, bounding_box = stn_bbox_str) at testthat/test_ki_station_list.R:40
  2: suppressWarnings(dplyr::mutate_at(content_dat, dplyr::vars(dplyr::one_of(c("station_latitude", 
         "station_longitude"))), as.double))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: dplyr::mutate_at
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 4. Error: ki_station_list accepts group_id filter (@test_ki_station_list.R#53
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_station_list(hub = example_hub, group_id = test_group_id) at testthat/test_ki_station_list.R:53
  2: suppressWarnings(dplyr::mutate_at(content_dat, dplyr::vars(dplyr::one_of(c("station_latitude", 
         "station_longitude"))), as.double))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: dplyr::mutate_at
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 5. Error: ki_station_list accepts custom return fields (vector or string) (@t
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_station_list(hub = example_hub, return_fields = cust_ret_str) at testthat/test_ki_station_list.R:66
  2: suppressWarnings(dplyr::mutate_at(content_dat, dplyr::vars(dplyr::one_of(c("station_latitude", 
         "station_longitude"))), as.double))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: dplyr::mutate_at
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 6. Error: ki_timeseries_list accepts station_id for retrieving metadata (@tes
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_timeseries_list(hub = example_hub, station_id = test_stn_id) at testthat/test_ki_timeseries_list.R:28
  2: suppressWarnings(dplyr::mutate_at(content_dat, dplyr::vars(dplyr::one_of(c("station_latitude", 
         "station_longitude"))), as.double))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: dplyr::mutate_at
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 7. Error: ki_timeseries_list accepts ts_name for retrieving metadata (@test_k
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_timeseries_list(hub = example_hub, ts_name = "Vel*") at testthat/test_ki_timeseries_list.R:37
  2: suppressWarnings(dplyr::mutate_at(content_dat, dplyr::vars(dplyr::one_of(c("station_latitude", 
         "station_longitude"))), as.double))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: dplyr::mutate_at
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 8. Error: ki_timeseries_list accepts group_id for retrieving metadata (@test_
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_timeseries_list(hub = example_hub, group_id = test_ts_group_id) at testthat/test_ki_timeseries_list.R:46
  2: suppressWarnings(dplyr::mutate_at(content_dat, dplyr::vars(dplyr::one_of(c("station_latitude", 
         "station_longitude"))), as.double))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: dplyr::mutate_at
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 9. Error: ki_timeseries_list returns coverage columns by default (@test_ki_ti
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_timeseries_list(hub = example_hub, ts_name = "A*") at testthat/test_ki_timeseries_list.R:55
  2: suppressWarnings(dplyr::mutate_at(content_dat, dplyr::vars(dplyr::one_of(c("station_latitude", 
         "station_longitude"))), as.double))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: dplyr::mutate_at
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 10. Error: ki_timeseries_list allows for turning coverage off increase query 
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_timeseries_list(hub = example_hub, ts_name = "A*", coverage = FALSE) at testthat/test_ki_timeseries_list.R:66
  2: suppressWarnings(dplyr::mutate_at(content_dat, dplyr::vars(dplyr::one_of(c("station_latitude", 
         "station_longitude"))), as.double))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: dplyr::mutate_at
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 11. Error: ki_timeseries_list allows for custom return fields (vector or stri
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_timeseries_list(hub = example_hub, ts_name = "A*", return_fields = cust_ret_str) at testthat/test_ki_timeseries_list.R:82
  2: suppressWarnings(dplyr::mutate_at(content_dat, dplyr::vars(dplyr::one_of(c("station_latitude", 
         "station_longitude"))), as.double))
  3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  4: dplyr::mutate_at
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 12. Error: ki_timeseries_values returns table with data (@test_ki_timeseries_
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_timeseries_values(hub = example_hub, ts_id = test_ts_ids[[1]], start_date = "2015-12-01", 
         end_date = "2018-01-01") at testthat/test_ki_timeseries_values.R:45
  2: lapply(1:length(json_content$data), function(x) {
         current_dat <- tibble::as_tibble(json_content$data[[x]], .name_repair = "minimal")
         if (nrow(current_dat) >= 1) {
             colnames(current_dat) <- c("Timestamp", "Value")
             current_dat <- dplyr::mutate(current_dat, Timestamp = lubridate::ymd_hms(current_dat$Timestamp), 
                 Value = as.numeric(current_dat$Value), ts_name = json_content$ts_name[[x]], 
                 Units = json_content$ts_unitsymbol[[x]], station_name = json_content$station_name[[x]])
         }
         current_dat
     })
  3: FUN(X[[i]], ...)
  4: dplyr::mutate
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 13. Error: ki_timeseries_values can take a vector of ts_ids and return list o
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_timeseries_values(hub = example_hub, ts_id = test_ts_ids, start_date = "2015-12-01", 
         end_date = "2018-01-01") at testthat/test_ki_timeseries_values.R:58
  2: lapply(1:length(json_content$data), function(x) {
         current_dat <- tibble::as_tibble(json_content$data[[x]], .name_repair = "minimal")
         if (nrow(current_dat) >= 1) {
             colnames(current_dat) <- c("Timestamp", "Value")
             current_dat <- dplyr::mutate(current_dat, Timestamp = lubridate::ymd_hms(current_dat$Timestamp), 
                 Value = as.numeric(current_dat$Value), ts_name = json_content$ts_name[[x]], 
                 Units = json_content$ts_unitsymbol[[x]], station_name = json_content$station_name[[x]])
         }
         current_dat
     })
  3: FUN(X[[i]], ...)
  4: dplyr::mutate
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  -- 14. Error: ki_timeseries_values returns three columns (two static) by default
  DLL 'glue' not found: maybe not installed for this architecture?
  1: ki_timeseries_values(hub = example_hub, ts_id = test_ts_ids[[1]], start_date = "2015-12-01", 
         end_date = "2018-01-01") at testthat/test_ki_timeseries_values.R:76
  2: lapply(1:length(json_content$data), function(x) {
         current_dat <- tibble::as_tibble(json_content$data[[x]], .name_repair = "minimal")
         if (nrow(current_dat) >= 1) {
             colnames(current_dat) <- c("Timestamp", "Value")
             current_dat <- dplyr::mutate(current_dat, Timestamp = lubridate::ymd_hms(current_dat$Timestamp), 
                 Value = as.numeric(current_dat$Value), ts_name = json_content$ts_name[[x]], 
                 Units = json_content$ts_unitsymbol[[x]], station_name = json_content$station_name[[x]])
         }
         current_dat
     })
  3: FUN(X[[i]], ...)
  4: dplyr::mutate
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: loadNamespace(name)
  9: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  10: asNamespace(ns)
  11: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  12: library.dynam(lib, package, package.lib)
  13: stop(gettextf("DLL %s not found: maybe not installed for this architecture?", sQuote(chname)), 
         domain = NA)
  
  == testthat results  ===========================================================
  OK: 26 SKIPPED: 0 WARNINGS: 0 FAILED: 14
  1. Error: ki_station_list should return a tibble (@test_ki_station_list.R#15) 
  2. Error: ki_station_list accepts search_term filters (@test_ki_station_list.R#23) 
  3. Error: ki_station_list accepts bbox filter (vector or character) (@test_ki_station_list.R#40) 
  4. Error: ki_station_list accepts group_id filter (@test_ki_station_list.R#53) 
  5. Error: ki_station_list accepts custom return fields (vector or string) (@test_ki_station_list.R#66) 
  6. Error: ki_timeseries_list accepts station_id for retrieving metadata (@test_ki_timeseries_list.R#28) 
  7. Error: ki_timeseries_list accepts ts_name for retrieving metadata (@test_ki_timeseries_list.R#37) 
  8. Error: ki_timeseries_list accepts group_id for retrieving metadata (@test_ki_timeseries_list.R#46) 
  9. Error: ki_timeseries_list returns coverage columns by default (@test_ki_timeseries_list.R#55) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted