Running ‘testthat.R’ [5s/51s]
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/tests.html
  > # * https://testthat.r-lib.org/reference/test_package.html#special-files
  > 
  > library(testthat)
  > library(cryptotrackr)
  > 
  > test_check("cryptotrackr")
  [ FAIL 10 | WARN 0 | SKIP 0 | PASS 75 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-blockchain_dot_com.R:2:3'): the "blockchain_dot_com_symbols" function returns a list ──
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE html> <!--[if lt IE 7
                       (right here) ------^
  
  Backtrace:
      ▆
   1. ├─testthat::expect_type(blockchain_dot_com_symbols(), "list") at test-blockchain_dot_com.R:2:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─cryptotrackr::blockchain_dot_com_symbols()
   5.   └─jsonlite::fromJSON(rawToChar(res$content))
   6.     └─jsonlite:::parse_and_simplify(...)
   7.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   8.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error ('test-blockchain_dot_com.R:7:3'): the "blockchain_dot_com_symbol" function returns a list when blank or
            with different casing ──
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE html> <!--[if lt IE 7
                       (right here) ------^
  
  Backtrace:
      ▆
   1. ├─testthat::expect_type(blockchain_dot_com_symbol("BTC-USD"), "list") at test-blockchain_dot_com.R:7:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─cryptotrackr::blockchain_dot_com_symbol("BTC-USD")
   5.   └─jsonlite::fromJSON(rawToChar(res$content))
   6.     └─jsonlite:::parse_and_simplify(...)
   7.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   8.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error ('test-blockchain_dot_com.R:15:3'): the "blockchain_dot_com_ticker_symbol" function returns a list no
            matter the casing ──
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE html> <!--[if lt IE 7
                       (right here) ------^
  
  Backtrace:
      ▆
   1. ├─testthat::expect_type(...) at test-blockchain_dot_com.R:15:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─cryptotrackr::blockchain_dot_com_ticker_symbol("BTC-USD")
   5.   └─jsonlite::fromJSON(rawToChar(res$content))
   6.     └─jsonlite:::parse_and_simplify(...)
   7.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   8.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error ('test-blockchain_dot_com.R:22:3'): the "blockchain_dot_com_ticker_symbol" function returns a data.frame
            when no symbol is provided ──
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE html> <!--[if lt IE 7
                       (right here) ------^
  
  Backtrace:
      ▆
   1. ├─testthat::expect_s3_class(...) at test-blockchain_dot_com.R:22:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─cryptotrackr::blockchain_dot_com_ticker_symbol("")
   5.   └─jsonlite::fromJSON(rawToChar(res$content))
   6.     └─jsonlite:::parse_and_simplify(...)
   7.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   8.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error ('test-blockchain_dot_com.R:26:3'): the "blockchain_dot_com_tickers" function returns a data.frame ──
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE html> <!--[if lt IE 7
                       (right here) ------^
  
  Backtrace:
      ▆
   1. ├─testthat::expect_s3_class(blockchain_dot_com_tickers(), "data.frame") at test-blockchain_dot_com.R:26:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─cryptotrackr::blockchain_dot_com_tickers()
   5.   └─jsonlite::fromJSON(rawToChar(res$content))
   6.     └─jsonlite:::parse_and_simplify(...)
   7.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   8.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error ('test-blockchain_dot_com.R:32:3'): the "blockchain_dot_com_l2_order_book" function returns a list
            containing a bids and an asks data.frame ──
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE html> <!--[if lt IE 7
                       (right here) ------^
  
  Backtrace:
      ▆
   1. └─cryptotrackr::blockchain_dot_com_l2_order_book(symbol) at test-blockchain_dot_com.R:32:3
   2.   └─jsonlite::fromJSON(rawToChar(res$content))
   3.     └─jsonlite:::parse_and_simplify(...)
   4.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   5.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error ('test-blockchain_dot_com.R:40:3'): the "blockchain_dot_com_l2_order_book" function returns a list
            containing a bids and an asks data.frame regardless of casing ──
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE html> <!--[if lt IE 7
                       (right here) ------^
  
  Backtrace:
      ▆
   1. └─cryptotrackr::blockchain_dot_com_l2_order_book(symbol) at test-blockchain_dot_com.R:40:3
   2.   └─jsonlite::fromJSON(rawToChar(res$content))
   3.     └─jsonlite:::parse_and_simplify(...)
   4.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   5.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error ('test-blockchain_dot_com.R:48:13'): the "blockchain_dot_com_l3_order_book" function returns a list
            containing a bids and an asks data.frame ──
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE html> <!--[if lt IE 7
                       (right here) ------^
  
  Backtrace:
      ▆
   1. └─cryptotrackr::blockchain_dot_com_l3_order_book(symbol) at test-blockchain_dot_com.R:48:13
   2.   └─jsonlite::fromJSON(rawToChar(res$content))
   3.     └─jsonlite:::parse_and_simplify(...)
   4.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   5.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Failure ('test-blockchain_dot_com.R:57:3'): the "blockchain_dot_com_l3_order_book" function returns a list
            containing a bids and an asks data.frame regardless of casing ──
  l3_order_book$bids is not an S3 object
  ── Failure ('test-blockchain_dot_com.R:58:3'): the "blockchain_dot_com_l3_order_book" function returns a list
            containing a bids and an asks data.frame regardless of casing ──
  l3_order_book$asks is not an S3 object
  
  [ FAIL 10 | WARN 0 | SKIP 0 | PASS 75 ]
  Error: Test failures
  Execution halted