Running ‘testthat.R’ [32s/72s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(fingertipscharts)
  > test_check("fingertipscharts")
  ── 1. Error: (unknown) (@test-examples.R#126)  ─────────────────────────────────
  Evaluation error: object 'Indicator Name' not found.
  1: fingertips_data(DomainID = 1938132762, rank = TRUE) %>% filter(((IndicatorID == 41001 & 
         Timeperiod == "2014 - 16" & Sex == "Persons") | (IndicatorID == 91393 & Timeperiod == 
         "2011 - 15" & Sex == "Female") | (IndicatorID == 92607 & Timeperiod == "2016" & 
         Sex == "Not applicable"))) at testthat/test-examples.R:126
  2: eval(lhs, parent, parent)
  3: eval(lhs, parent, parent)
  4: fingertips_data(DomainID = 1938132762, rank = TRUE)
  5: retrieve_domain(ChildAreaTypeIDs = ChildAreaTypeIDs, ParentAreaTypeIDs = ParentAreaTypeIDs, 
         DomainIDs = DomainIDs, path = path)
  6: by(fd, list(fd$DomainIDs, fd$ChildAreaTypeIDs, fd$ParentAreaTypeIDs), get_data)
  7: by.data.frame(fd, list(fd$DomainIDs, fd$ChildAreaTypeIDs, fd$ParentAreaTypeIDs), 
         get_data)
  8: structure(eval(substitute(tapply(seq_len(nd), IND, FUNx, simplify = simplify)), data), 
         call = match.call(), class = "by")
  9: eval(substitute(tapply(seq_len(nd), IND, FUNx, simplify = simplify)), data)
  10: eval(substitute(tapply(seq_len(nd), IND, FUNx, simplify = simplify)), data)
  ...
  21: freduce(value, `_function_list`)
  22: withVisible(function_list[[k]](value))
  23: function_list[[k]](value)
  24: mutate_at(., .vars = character_fields, as.character)
  25: mutate(.tbl, !!!funs)
  26: mutate.data.frame(.tbl, !!!funs)
  27: as.data.frame(mutate(tbl_df(.data), ...))
  28: mutate(tbl_df(.data), ...)
  29: mutate.tbl_df(tbl_df(.data), ...)
  30: mutate_impl(.data, dots)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 13 SKIPPED: 27 FAILED: 1
  1. Error: (unknown) (@test-examples.R#126) 
  
  Error: testthat unit tests failed
  Execution halted