Running 'testthat.R' [4s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(DBI)
  > library(RSQLite)
  > library(RSQL)
  > library(lgr)
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > 
  > log.levels <- lgr::get_log_levels()
  > 
  > lgr$set_threshold(log.levels["debug"])
  > 
  > 
  > 
  > test_check("RSQL")
  Finalizing object and disconnecting
  Finalizing object and disconnecting
  == Warnings ====================================================================
  -- Warning (test_sql_lib.R:86:5): sql_lib insert and delete test ---------------
  Closing open result set, pending rows
  Backtrace:
   1. rsql$execute_update(update_sql) test_sql_lib.R:86:4
   2. RSQL:::sql_execute_update(sql_update = sql_update, dbconn = self$conn)
   4. DBI::dbSendQuery(dbconn, sql_update)
   5. RSQLite:::.local(conn, statement, ...)
  -- Warning (test_sql_lib.R:89:5): sql_lib insert and delete test ---------------
  Closing open result set, pending rows
  Backtrace:
   1. rsql$execute_delete(delete.sql) test_sql_lib.R:89:4
   2. RSQL:::sql_execute_delete(sql_delete, dbconn = self$conn)
   4. DBI::dbExecute(dbconn, sql_delete)
   6. DBI::dbSendStatement(conn, statement, ...)
   8. RSQLite::dbSendQuery(conn, statement, ...)
   9. RSQLite:::.local(conn, statement, ...)
  -- Warning (test_sql_lib.R:107:5): sql_lib select, insert and delete with dataframe --
  Closing open result set, pending rows
  Backtrace:
   1. rsql$execute_update(update_sql) test_sql_lib.R:107:4
   2. RSQL:::sql_execute_update(sql_update = sql_update, dbconn = self$conn)
   4. DBI::dbSendQuery(dbconn, sql_update)
   5. RSQLite:::.local(conn, statement, ...)
  -- Warning (test_sql_lib.R:113:5): sql_lib select, insert and delete with dataframe --
  Closing open result set, pending rows
  Backtrace:
   1. rsql$execute_select(check_sql) test_sql_lib.R:113:4
   2. RSQL:::sql_execute_select(sql_select, dbconn = self$conn)
   4. DBI::dbGetQuery(dbconn, sql_select)
   5. DBI:::.local(conn, statement, ...)
   7. RSQLite::dbSendQuery(conn, statement, ...)
   8. RSQLite:::.local(conn, statement, ...)
  -- Warning (test_sql_lib.R:179:5): sql_lib select with where clause ------------
  Closing open result set, pending rows
  Backtrace:
   1. rsql$execute_select(query_sql) test_sql_lib.R:179:4
   2. RSQL:::sql_execute_select(sql_select, dbconn = self$conn)
   4. DBI::dbGetQuery(dbconn, sql_select)
   5. DBI:::.local(conn, statement, ...)
   7. RSQLite::dbSendQuery(conn, statement, ...)
   8. RSQLite:::.local(conn, statement, ...)
  -- Warning (test_sql_lib.R:199:5): retrieveInsert ------------------------------
  Closing open result set, pending rows
  Backtrace:
   1. rsql$retrieve_insert(...) test_sql_lib.R:199:4
   2. RSQL:::sql_retrieve_insert(...)
   3. RSQL:::sql_execute_select(select_statement, dbconn = dbconn)
   5. DBI::dbGetQuery(dbconn, sql_select)
   6. DBI:::.local(conn, statement, ...)
   8. RSQLite::dbSendQuery(conn, statement, ...)
   9. RSQLite:::.local(conn, statement, ...)
  -- Warning (test_sql_lib.R:221:5): retrieveInsert ------------------------------
  Closing open result set, pending rows
  Backtrace:
   1. rsql$retrieve_insert(...) test_sql_lib.R:221:4
   2. RSQL:::sql_retrieve_insert(...)
   3. RSQL:::sql_execute_select(select_statement, dbconn = dbconn)
   5. DBI::dbGetQuery(dbconn, sql_select)
   6. DBI:::.local(conn, statement, ...)
   8. RSQLite::dbSendQuery(conn, statement, ...)
   9. RSQLite:::.local(conn, statement, ...)
  
  == Failed tests ================================================================
  -- Error (test_sql_lib.R:138:5): sql_lib select, insert, update and delete with dataframe and stuffed apostrophe --
  Error: 'nchar()' requires a character vector
  Backtrace:
      x
   1. \-rsql$gen_update("mtcars", values = update_values, where_values = where_values_df) test_sql_lib.R:138:4
   2.   \-RSQL:::sql_gen_update(...)
   3.     \-RSQL::stuff_df_quoted(text.df = values.df)
   4.       \-base::sapply(text.df[i, ], FUN = rm_quotes)
   5.         \-base::lapply(X = X, FUN = FUN, ...)
   6.           \-RSQL:::FUN(X[[i]], ...)
   7.             \-base::substr(text, nchar(text), nchar(text))
  
  [ FAIL 1 | WARN 7 | SKIP 0 | PASS 20 ]
  Error: Test failures
  Execution halted