Running ‘testthat.R’ [7s/33s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library("testthat")
  > library("rdefra")
  > 
  > test_check("rdefra")
  Error in read.table(file = file, header = header, sep = sep, quote = quote,  : 
    more columns than column names
  Error in make.names(col.names, unique = TRUE) : 
    invalid multibyte string at '<86><e9>E<b0>4<4b>'<b9><f4><ff><9d>Z<c9><c9>Dc<d3>w%j.c<c8>zG<fb><a4><f1><8f><ea>G<8e><ef><ea><fd>Sz<d2><f0><9b>S<c9>[<d9>O<ec>3<fc>-<f2>H<ae><f1>6<<c6>Gc<f0><d5>eb<e3><8a>1ѫ
  P9xҵPB4<80><b0><e8>%mJ1<9a>I<a1><c9>D`<86><b5>9R<c3><eb><db>e<fb>h<a7>m<be><ff>ܛ<e7><ed>{<ca><e6>i<df>k<e1>0W<b1>F<a4><8c>+Y<f2><98><83><d9>~L<89><94>|$<93><be><b5><b7>@V:16<e6><87><99><b9><81>dp<c7>A<a3><fc>ɴE~M<87><9a>L<ee>KW<85><82>Y<80><8a><ca><ce><fe><c9><e5><89>g9<ff><83><9d><b6>)m<a3><c0>m,<ed><dc><ea><8f><92><9e><bc>><93>Y<{<ea><8d>p<d9>P<86><a2><e0>=<d4><f9><b5>W`<9a>Z<82>0<c4>~BR<b9>ڨV<f8>Se<dd><c7>x<8a>.<93><e8>a<bf>Q<b4><80><d6>iB'
  Error in type.convert.default(data[[i]], as.is = as.is[i], dec = dec,  : 
    invalid multibyte string at '<9d><97>a<a7><b8><55><90>-'8t<df><e7><fd><da>N<e3>M<c8><e0><e0><fc><ad><8a><d7><c9>TP<cc>;<ca><80><84><d0>QVÎV<89>3/<e6><85>'
  Error in type.convert.default(data[[i]], as.is = as.is[i], dec = dec,  : 
    invalid multibyte string at '<89>bh<f1><8f><03><f5><3a><02><f2><6a><cc><1f>'
  ── 1. Error: Metadata should be in the right format (@test-data.R#39)  ─────────
  input string is too long
  1: ukair_get_hourly_data(site_id, years) at testthat/test-data.R:39
  2: ukair_get_hourly_data_internal(site_id, myYear)
  3: cbind(datetime = lubridate::dmy_hm(paste(df$Date, df$time, tz = "Europe/London")), 
         SiteID = site_id, df[, 3:dim(df)[2]])
  4: lubridate::dmy_hm(paste(df$Date, df$time, tz = "Europe/London"))
  5: .parse_xxx_hms(..., orders = "dmyR", quiet = quiet, tz = tz, locale = locale, truncated = truncated)
  6: parse_date_time(dates, orders, tz = tz, quiet = quiet, locale = locale)
  7: .local_parse(x[to_parse], TRUE)
  8: .best_formats(train, orders, locale = locale, select_formats, drop = drop)
  9: .train_formats(x, fmts, locale = locale)
  10: lapply(formats, function(fmt) .strptime(x, fmt, locale = locale))
  11: FUN(X[[i]], ...)
  12: .strptime(x, fmt, locale = locale)
  13: strptime(.enclose(x), .enclose(fmt), tz)
  
  ── 2. Error: Data should be in the right format (@test-data.R#53)  ─────────────
  input string is too long
  1: ukair_get_hourly_data(site_id, years) at testthat/test-data.R:53
  2: ukair_get_hourly_data_internal(site_id, myYear)
  3: cbind(datetime = lubridate::dmy_hm(paste(df$Date, df$time, tz = "Europe/London")), 
         SiteID = site_id, df[, 3:dim(df)[2]])
  4: lubridate::dmy_hm(paste(df$Date, df$time, tz = "Europe/London"))
  5: .parse_xxx_hms(..., orders = "dmyR", quiet = quiet, tz = tz, locale = locale, truncated = truncated)
  6: parse_date_time(dates, orders, tz = tz, quiet = quiet, locale = locale)
  7: .local_parse(x[to_parse], TRUE)
  8: .local_parse(x)
  9: .best_formats(train, orders, locale = locale, select_formats, drop = drop)
  10: .train_formats(x, fmts, locale = locale)
  11: lapply(formats, function(fmt) .strptime(x, fmt, locale = locale))
  12: FUN(X[[i]], ...)
  13: .strptime(x, fmt, locale = locale)
  14: strptime(.enclose(x), .enclose(fmt), tz)
  
  ── 3. Failure: Up-to-date metadata catalogue should have at least 6569 stations.
  `x` not equal to `expected`.
  1 element mismatch
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 17 SKIPPED: 1 WARNINGS: 26 FAILED: 3
  1. Error: Metadata should be in the right format (@test-data.R#39) 
  2. Error: Data should be in the right format (@test-data.R#53) 
  3. Failure: Up-to-date metadata catalogue should have at least 6569 stations. (@test-metadata.R#39) 
  
  Error: testthat unit tests failed
  Execution halted