Running ‘testthat.R’ [7s/467s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(kiwisR)
  > 
  > test_check("kiwisR")
  [ FAIL 12 | WARN 0 | SKIP 8 | PASS 19 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • Example KiWIS server offline. (8)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_ki_group_list.R:7:3): ki_group_list returns a tibble with three columns ──
  Error in `2:nrow(json_content)`: argument of length 0
  Backtrace:
      ▆
   1. └─kiwisR::ki_group_list(hub = example_hub) at test_ki_group_list.R:7:2
   2.   └─tibble::as_tibble(json_content[2:nrow(json_content), ], .name_repair = "minimal")
  ── Error (test_ki_station_list.R:15:3): ki_station_list should return a tibble ──
  Error in `json_content[1, ]`: incorrect number of dimensions
  Backtrace:
      ▆
   1. └─kiwisR::ki_station_list(hub = example_hub) at test_ki_station_list.R:15:2
  ── Error (test_ki_station_list.R:23:3): ki_station_list accepts search_term filters ──
  Error in `json_content[1, ]`: incorrect number of dimensions
  Backtrace:
      ▆
   1. └─kiwisR::ki_station_list(hub = example_hub, search_term = "A*") at test_ki_station_list.R:23:2
  ── Error (test_ki_station_list.R:40:3): ki_station_list accepts bbox filter (vector or character) ──
  Error in `json_content[1, ]`: incorrect number of dimensions
  Backtrace:
      ▆
   1. └─kiwisR::ki_station_list(hub = example_hub, bounding_box = stn_bbox_str) at test_ki_station_list.R:40:2
  ── Error (test_ki_station_list.R:53:3): ki_station_list accepts group_id filter ──
  Error in `json_content[1, ]`: incorrect number of dimensions
  Backtrace:
      ▆
   1. └─kiwisR::ki_station_list(hub = example_hub, group_id = test_group_id) at test_ki_station_list.R:53:2
  ── Error (test_ki_station_list.R:66:3): ki_station_list accepts custom return fields (vector or string) ──
  Error in `json_content[1, ]`: incorrect number of dimensions
  Backtrace:
      ▆
   1. └─kiwisR::ki_station_list(hub = example_hub, return_fields = cust_ret_str) at test_ki_station_list.R:66:2
  ── Error (test_ki_timeseries_list.R:31:3): ki_timeseries_list accepts station_id for retrieving metadata ──
  Error in `if (nrow(json_content) == 2) {
      content_dat <- tibble::as_tibble(json_content, .name_repair = "minimal")[-1, 
          ]
  } else {
      content_dat <- tibble::as_tibble(json_content[-1, ], .name_repair = "minimal")
  }`: argument is of length zero
  Backtrace:
      ▆
   1. └─kiwisR::ki_timeseries_list(hub = example_hub, station_id = test_stn_id) at test_ki_timeseries_list.R:31:2
  ── Error (test_ki_timeseries_list.R:40:3): ki_timeseries_list accepts ts_name for retrieving metadata ──
  Error in `if (nrow(json_content) == 2) {
      content_dat <- tibble::as_tibble(json_content, .name_repair = "minimal")[-1, 
          ]
  } else {
      content_dat <- tibble::as_tibble(json_content[-1, ], .name_repair = "minimal")
  }`: argument is of length zero
  Backtrace:
      ▆
   1. └─kiwisR::ki_timeseries_list(hub = example_hub, ts_name = "Vel*") at test_ki_timeseries_list.R:40:2
  ── Error (test_ki_timeseries_list.R:49:3): ki_timeseries_list accepts group_id for retrieving metadata ──
  Error in `if (nrow(json_content) == 2) {
      content_dat <- tibble::as_tibble(json_content, .name_repair = "minimal")[-1, 
          ]
  } else {
      content_dat <- tibble::as_tibble(json_content[-1, ], .name_repair = "minimal")
  }`: argument is of length zero
  Backtrace:
      ▆
   1. └─kiwisR::ki_timeseries_list(hub = example_hub, group_id = test_ts_group_id) at test_ki_timeseries_list.R:49:2
  ── Error (test_ki_timeseries_list.R:58:3): ki_timeseries_list returns coverage columns by default ──
  Error in `if (nrow(json_content) == 2) {
      content_dat <- tibble::as_tibble(json_content, .name_repair = "minimal")[-1, 
          ]
  } else {
      content_dat <- tibble::as_tibble(json_content[-1, ], .name_repair = "minimal")
  }`: argument is of length zero
  Backtrace:
      ▆
   1. └─kiwisR::ki_timeseries_list(hub = example_hub, station_id = test_stn_id) at test_ki_timeseries_list.R:58:2
  ── Error (test_ki_timeseries_list.R:69:3): ki_timeseries_list allows for turning coverage off increase query speed ──
  Error in `if (nrow(json_content) == 2) {
      content_dat <- tibble::as_tibble(json_content, .name_repair = "minimal")[-1, 
          ]
  } else {
      content_dat <- tibble::as_tibble(json_content[-1, ], .name_repair = "minimal")
  }`: argument is of length zero
  Backtrace:
      ▆
   1. └─kiwisR::ki_timeseries_list(...) at test_ki_timeseries_list.R:69:2
  ── Error (test_ki_timeseries_list.R:85:3): ki_timeseries_list allows for custom return fields (vector or string) ──
  Error in `if (nrow(json_content) == 2) {
      content_dat <- tibble::as_tibble(json_content, .name_repair = "minimal")[-1, 
          ]
  } else {
      content_dat <- tibble::as_tibble(json_content[-1, ], .name_repair = "minimal")
  }`: argument is of length zero
  Backtrace:
      ▆
   1. └─kiwisR::ki_timeseries_list(...) at test_ki_timeseries_list.R:85:2
  
  [ FAIL 12 | WARN 0 | SKIP 8 | PASS 19 ]
  Error: Test failures
  Execution halted