Running ‘testthat.R’ [3s/11s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(flashr)
  > 
  > test_check("flashr")
  [ FAIL 6 | WARN 0 | SKIP 8 | PASS 15 ]
  
  ══ Skipped tests (8) ═══════════════════════════════════════════════════════════
  • On CRAN (8): 'test-flashcard.R:2:3', 'test-flashcard.R:65:3',
    'test-flashcard.R:80:3', 'test-list_decks.R:2:3', 'test-list_decks.R:17:3',
    'test-list_decks.R:33:3', 'test-list_decks.R:38:3', 'test-utils.R:2:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-extract_functions.R:43:3'): code is extracted ────────────────
  length(extract_code(file = rmd)) (`actual`) not equal to 16 (`expected`).
  
    `actual`: 17.0
  `expected`: 16.0
  ── Failure ('test-extract_functions.R:44:3'): code is extracted ────────────────
  length(extract_code(file = rmd, empty = FALSE)) (`actual`) not equal to 15 (`expected`).
  
    `actual`: 16.0
  `expected`: 15.0
  ── Failure ('test-extract_functions.R:48:3'): functions are extracted ──────────
  extract_functions(extract_code(rmd)) (`actual`) not equal to c(...) (`expected`).
  
  `actual[7:11]`:  "read.csv" "head" "flashcard" "print" "readCitationFile"
  `expected[7:9]`: "read.csv" "head" "flashcard"                           
  ── Failure ('test-extract_functions.R:55:3'): functions are extracted ──────────
  extract_functions(extract_code(rmd), duplicates = FALSE) (`actual`) not equal to c(...) (`expected`).
  
  `actual[5:9]`:   "flashcard" "read.csv" "head" "print" "readCitationFile"
  `expected[5:7]`: "flashcard" "read.csv" "head"                           
  ── Failure ('test-extract_functions.R:69:3'): function descriptions and packages are retrieved ──
  build_functions_df(file = rmd, title = "Test") (`actual`) not identical to `ex_function_df1b` (`expected`).
  
    `attr(actual, 'row.names')[2:5]`: 3 5 6 7
  `attr(expected, 'row.names')[2:4]`: 3 5 6  
  
  actual vs expected
                                term                                   description package title
    actual[1, ]   head()             return first rows of matrix, data frame, etc.   utils  Test
    actual[2, ]   install.packages() install R packages                              utils  Test
    actual[3, ]   library()          load R packages                                 base   Test
  - actual[4, ]   print()            prints argument                                 base   Test
    actual[5, ]   read.csv()         import CSV file (base R)                        utils  Test
  
      actual$term          | expected$term           
  [1] "head()"             | "head()"             [1]
  [2] "install.packages()" | "install.packages()" [2]
  [3] "library()"          | "library()"          [3]
  [4] "print()"            -                         
  [5] "read.csv()"         | "read.csv()"         [4]
  
  actual$description vs expected$description
    "return first rows of matrix, data frame, etc."
    "install R packages"
    "load R packages"
  - "prints argument"
    "import CSV file (base R)"
  
  `actual$package`:   "utils" "utils" "base" "base" "utils"
  `expected$package`: "utils" "utils" "base"        "utils"
  
  `actual$title[2:5]`:   "Test" "Test" "Test" "Test"
  `expected$title[2:4]`: "Test" "Test" "Test"       
  ── Failure ('test-extract_functions.R:73:3'): function descriptions and packages are retrieved ──
  build_functions_df(file = rmd, title = "Test", omit = FALSE) (`actual`) not identical to `ex_function_df1` (`expected`).
  
    `attr(actual, 'row.names')[5:9]`: 5 6 7 8 9
  `attr(expected, 'row.names')[5:7]`: 5 6 7    
  
  actual vs expected
                                term                                   description package title
    actual[3, ]   install.packages() install R packages                              utils  Test
    actual[4, ]   install_github()   NA                                              NA     Test
    actual[5, ]   library()          load R packages                                 base   Test
  - actual[6, ]   print()            prints argument                                 base   Test
    actual[7, ]   read.csv()         import CSV file (base R)                        utils  Test
  - actual[8, ]   readCitationFile() NA                                              NA     Test
    actual[9, ]   set()              NA                                              NA     Test
  
      actual$term          | expected$term           
  [3] "install.packages()" | "install.packages()" [3]
  [4] "install_github()"   | "install_github()"   [4]
  [5] "library()"          | "library()"          [5]
  [6] "print()"            -                         
  [7] "read.csv()"         | "read.csv()"         [6]
  [8] "readCitationFile()" -                         
  [9] "set()"              | "set()"              [7]
  
      actual$description         | expected$description          
  [3] "install R packages"       | "install R packages"       [3]
  [4] NA                         | NA                         [4]
  [5] "load R packages"          | "load R packages"          [5]
  [6] "prints argument"          - "import CSV file (base R)" [6]
  [7] "import CSV file (base R)" - NA                         [7]
  [8] NA                         -                               
  [9] NA                         -                               
  
  `actual$package[3:9]`:   "utils" NA "base" "base"  "utils" NA NA
  `expected$package[3:7]`: "utils" NA "base" "utils" NA           
  
  `actual$title[5:9]`:   "Test" "Test" "Test" "Test" "Test"
  `expected$title[5:7]`: "Test" "Test" "Test"              
  
  [ FAIL 6 | WARN 0 | SKIP 8 | PASS 15 ]
  Error: Test failures
  Execution halted