Running 'testthat.R' [236s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(fingertipsR)
  > 
  > test_check("fingertipsR")
  -- 1. Error: the area_types function works correctly (@test-area_types.R#7)  ---
  Timeout was reached: Operation timed out after 10015 milliseconds with 0 out of 0 bytes received
  1: expect_is(area_types(), "data.frame") at testthat/test-area_types.R:7
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: area_types()
  5: paste0(path, "area_types/parent_area_types") %>% GET(use_proxy(ie_get_proxy_for_url(.), 
         username = "", password = "", auth = "ntlm")) %>% content("text") %>% fromJSON
  6: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: `_fseq`(`_lhs`)
  10: freduce(value, `_function_list`)
  11: function_list[[i]](value)
  12: GET(., use_proxy(ie_get_proxy_for_url(.), username = "", password = "", auth = "ntlm"))
  13: request_perform(req, hu$handle$handle)
  14: request_fetch(req$output, req$url, handle)
  15: request_fetch.write_memory(req$output, req$url, handle)
  16: curl::curl_fetch_memory(url, handle = handle)
  
  -- 2. Error: the indicator_areatypes function is working correctly (@test-area_t
  Timeout was reached: Operation timed out after 10015 milliseconds with 0 out of 0 bytes received
  1: expect_equal(ncol(indicator_areatypes()), 2) at testthat/test-area_types.R:17
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: ncol(indicator_areatypes())
  5: indicator_areatypes()
  6: path %>% GET(use_proxy(ie_get_proxy_for_url(.), username = "", password = "", auth = "ntlm")) %>% 
         content("text") %>% fromJSON %>% as_tibble
  7: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: `_fseq`(`_lhs`)
  11: freduce(value, `_function_list`)
  12: function_list[[i]](value)
  13: GET(., use_proxy(ie_get_proxy_for_url(.), username = "", password = "", auth = "ntlm"))
  14: request_perform(req, hu$handle$handle)
  15: request_fetch(req$output, req$url, handle)
  16: request_fetch.write_memory(req$output, req$url, handle)
  17: curl::curl_fetch_memory(url, handle = handle)
  
  -- 3. Error: category_types returns as expected (@test-area_types.R#26)  -------
  Timeout was reached: Operation timed out after 10000 milliseconds with 0 out of 0 bytes received
  1: expect_is(category_types(), "data.frame") at testthat/test-area_types.R:26
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: category_types()
  5: paste0(path, "category_types") %>% GET(use_proxy(ie_get_proxy_for_url(.), username = "", 
         password = "", auth = "ntlm")) %>% content("text") %>% fromJSON %>% pull(Categories) %>% 
         bind_rows %>% as_tibble
  6: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: `_fseq`(`_lhs`)
  10: freduce(value, `_function_list`)
  11: function_list[[i]](value)
  12: GET(., use_proxy(ie_get_proxy_for_url(.), username = "", password = "", auth = "ntlm"))
  13: request_perform(req, hu$handle$handle)
  14: request_fetch(req$output, req$url, handle)
  15: request_fetch.write_memory(req$output, req$url, handle)
  16: curl::curl_fetch_memory(url, handle = handle)
  
  -- 4. Error: nearest_neighbours returns as expected (@test-area_types.R#32)  ---
  Timeout was reached: Operation timed out after 10000 milliseconds with 0 out of 0 bytes received
  1: expect_is(nearest_neighbours(AreaCode = "E06000007", AreaTypeID = 101), "character") at testthat/test-area_types.R:32
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: nearest_neighbours(AreaCode = "E06000007", AreaTypeID = 101)
  5: paste0(path, sprintf("parent_to_child_areas?parent_area_type_id=%s", AreaTypeID)) %>% 
         GET(use_proxy(ie_get_proxy_for_url(.), username = "", password = "", auth = "ntlm")) %>% 
         content("text") %>% fromJSON %>% names
  6: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: `_fseq`(`_lhs`)
  10: freduce(value, `_function_list`)
  11: function_list[[i]](value)
  12: GET(., use_proxy(ie_get_proxy_for_url(.), username = "", password = "", auth = "ntlm"))
  13: request_perform(req, hu$handle$handle)
  14: request_fetch(req$output, req$url, handle)
  15: request_fetch.write_memory(req$output, req$url, handle)
  16: curl::curl_fetch_memory(url, handle = handle)
  
  This may take a few moments... On 30/05/2018 Fingertips consisted of 67 profiles, made up of 4720 indicators and 1700 distinct indicators.== testthat results  ===========================================================
  OK: 55 SKIPPED: 0 FAILED: 4
  1. Error: the area_types function works correctly (@test-area_types.R#7) 
  2. Error: the indicator_areatypes function is working correctly (@test-area_types.R#17) 
  3. Error: category_types returns as expected (@test-area_types.R#26) 
  4. Error: nearest_neighbours returns as expected (@test-area_types.R#32) 
  
  Error: testthat unit tests failed
  Execution halted