Running ‘testthat.R’ [15s/24s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(ChinAPIs)
  > 
  > test_check("ChinAPIs")
  Saving _problems/test-get_china_hospital_beds-47.R
  Error: status 400
  Saving _problems/test-get_china_unemployment-16.R
  Saving _problems/test-get_china_unemployment-17.R
  Saving _problems/test-get_china_unemployment-22.R
  Saving _problems/test-get_china_unemployment-27.R
  Saving _problems/test-get_china_unemployment-35.R
  Saving _problems/test-get_china_unemployment-40.R
  Saving _problems/test-get_china_unemployment-41.R
  Saving _problems/test-get_china_unemployment-42.R
  Saving _problems/test-get_china_unemployment-43.R
  Saving _problems/test-get_china_unemployment-60.R
  Saving _problems/test-get_china_unemployment-65.R
  Saving _problems/test-get_china_unemployment-94.R
  Saving _problems/test-get_china_unemployment-95.R
  Saving _problems/test-get_china_unemployment-105.R
  Datasets available in the 'ChinAPIs' package:
  Datasets available in the 'ChinAPIs' package:
  [ FAIL 15 | WARN 1 | SKIP 18 | PASS 4037 ]
  
  ══ Skipped tests (18) ══════════════════════════════════════════════════════════
  • On CRAN (18): 'test-get_china_child_mortality.R:13:3',
    'test-get_china_child_mortality.R:33:3',
    'test-get_china_child_mortality.R:40:3',
    'test-get_china_child_mortality.R:47:3', 'test-get_china_energy_use.R:13:3',
    'test-get_china_energy_use.R:33:3', 'test-get_china_energy_use.R:40:3',
    'test-get_china_energy_use.R:47:3', 'test-get_china_gdp.R:13:3',
    'test-get_china_gdp.R:34:3', 'test-get_china_gdp.R:41:3',
    'test-get_china_gdp.R:48:3', 'test-get_china_gdp.R:56:3',
    'test-get_china_holidays.R:12:3', 'test-get_china_holidays.R:33:3',
    'test-get_country_info_cn.R:13:3', 'test-get_country_info_cn.R:42:3',
    'test-get_country_info_cn.R:56:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-get_china_hospital_beds.R:47:3'): get_china_hospital_beds allows for missing values (e.g., NA) ──
  Expected `any(is.na(result$value))` to be TRUE.
  Differences:
  `actual`:   FALSE
  `expected`: TRUE 
  
  ── Failure ('test-get_china_unemployment.R:16:3'): get_china_unemployment returns a tibble/data frame ──
  Expected `china_unemployment_data` to be an S3 object.
  Actual OO type: none.
  ── Failure ('test-get_china_unemployment.R:17:3'): get_china_unemployment returns a tibble/data frame ──
  Expected `china_unemployment_data` to be an S3 object.
  Actual OO type: none.
  ── Failure ('test-get_china_unemployment.R:22:3'): get_china_unemployment returns data with exactly 4 columns ──
  Expected `ncol(china_unemployment_data)` to equal 4.
  Differences:
  `actual` is NULL
  `expected` is a double vector (4)
  
  ── Failure ('test-get_china_unemployment.R:27:3'): get_china_unemployment returns data with exactly 13 rows ──
  Expected `nrow(china_unemployment_data)` to equal 13.
  Differences:
  `actual` is NULL
  `expected` is a double vector (13)
  
  ── Failure ('test-get_china_unemployment.R:32:3'): get_china_unemployment returns data with correct column names ──
  Expected `names(china_unemployment_data)` to equal `c("indicator", "country", "year", "value")`.
  Differences:
  `actual` is NULL
  `expected` is a character vector ('indicator', 'country', 'year', 'value')
  
  ── Failure ('test-get_china_unemployment.R:40:3'): get_china_unemployment returns data with correct column types ──
  Expected `china_unemployment_data$indicator` to have type "character".
  Actual type: "NULL"
  ── Failure ('test-get_china_unemployment.R:41:3'): get_china_unemployment returns data with correct column types ──
  Expected `china_unemployment_data$country` to have type "character".
  Actual type: "NULL"
  ── Failure ('test-get_china_unemployment.R:42:3'): get_china_unemployment returns data with correct column types ──
  Expected `china_unemployment_data$year` to have type "integer".
  Actual type: "NULL"
  ── Failure ('test-get_china_unemployment.R:43:3'): get_china_unemployment returns data with correct column types ──
  Expected `china_unemployment_data$value` to have type "double".
  Actual type: "NULL"
  ── Failure ('test-get_china_unemployment.R:60:3'): get_china_unemployment year column covers 2010-2022 completely ──
  Expected `actual_years` to equal `expected_years`.
  Differences:
  `actual` is NULL
  `expected` is an integer vector (2010, 2011, 2012, 2013, 2014, ...)
  
  ── Failure ('test-get_china_unemployment.R:65:3'): get_china_unemployment year column has no duplicate years ──
  Expected `length(unique(china_unemployment_data$year))` to equal 13.
  Differences:
    `actual`:  0.0
  `expected`: 13.0
  
  ── Failure ('test-get_china_unemployment.R:94:3'): get_china_unemployment shows expected COVID-19 impact in 2020 ──
  Expected `year_of_max` to equal 2020.
  Differences:
  `actual` is NULL
  `expected` is a double vector (2020)
  
  ── Failure ('test-get_china_unemployment.R:95:3'): get_china_unemployment shows expected COVID-19 impact in 2020 ──
  Expected `max_unemployment` to equal 5.
  Differences:
    `actual`: -Inf
  `expected`:  5.0
  
  ── Error ('test-get_china_unemployment.R:105:3'): get_china_unemployment values show typical stability for China ──
  Error in `var(china_unemployment_data$value)`: 'x' is NULL
  Backtrace:
      ▆
   1. └─stats::var(china_unemployment_data$value) at test-get_china_unemployment.R:105:3
  
  [ FAIL 15 | WARN 1 | SKIP 18 | PASS 4037 ]
  Error:
  ! Test failures.
  Execution halted