Running 'testthat.R' [12s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(blaise)
  > 
  > test_check("blaise")
  == Failed tests ================================================================
  -- Error (test_write_fwf_blaise.R:127:3): Automatic name to datamodel ----------
  Error: invalid value 0 for 'digits' argument
  Backtrace:
       x
    1. +-testthat::expect_silent(write_fwf_blaise(df, datafile, blafile)) test_write_fwf_blaise.R:127:2
    2. | \-testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. |   +-testthat:::.capture(...)
    4. |   | +-withr::with_output_sink(...)
    5. |   | | \-base::force(code)
    6. |   | +-base::withCallingHandlers(...)
    7. |   | \-base::withVisible(code)
    8. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. \-blaise::write_fwf_blaise(df, datafile, blafile)
   10.   \-blaise:::write_data(...)
   11.     \-blaise:::create_fixed_width_column(df, model, decimal.mark, justify)
   12.       +-base::as.data.frame(mapply(per_col, df, variables(model), SIMPLIFY = FALSE))
   13.       \-base::mapply(per_col, df, variables(model), SIMPLIFY = FALSE)
   14.         \-(function (col, var) ...
   15.           +-base::format(...)
   16.           \-base::format.default(...)
   17.             \-base::prettyNum(...)
  -- Error (test_write_fwf_blaise.R:148:3): custom name to datamodel -------------
  Error: invalid value 0 for 'digits' argument
  Backtrace:
       x
    1. +-testthat::expect_silent(...) test_write_fwf_blaise.R:148:2
    2. | \-testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. |   +-testthat:::.capture(...)
    4. |   | +-withr::with_output_sink(...)
    5. |   | | \-base::force(code)
    6. |   | +-base::withCallingHandlers(...)
    7. |   | \-base::withVisible(code)
    8. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. \-blaise::write_fwf_blaise(df, datafile, blafile, model_name = "test")
   10.   \-blaise:::write_data(...)
   11.     \-blaise:::create_fixed_width_column(df, model, decimal.mark, justify)
   12.       +-base::as.data.frame(mapply(per_col, df, variables(model), SIMPLIFY = FALSE))
   13.       \-base::mapply(per_col, df, variables(model), SIMPLIFY = FALSE)
   14.         \-(function (col, var) ...
   15.           +-base::format(...)
   16.           \-base::format.default(...)
   17.             \-base::prettyNum(...)
  -- Error (test_write_fwf_blaise.R:171:3): dataframe can be written with only one row --
  Error: invalid value 0 for 'digits' argument
  Backtrace:
       x
    1. +-testthat::expect_silent(...) test_write_fwf_blaise.R:171:2
    2. | \-testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. |   +-testthat:::.capture(...)
    4. |   | +-withr::with_output_sink(...)
    5. |   | | \-base::force(code)
    6. |   | +-base::withCallingHandlers(...)
    7. |   | \-base::withVisible(code)
    8. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. \-blaise::write_fwf_blaise(df, datafile, blafile, model_name = "test")
   10.   \-blaise:::write_data(...)
   11.     \-blaise:::create_fixed_width_column(df, model, decimal.mark, justify)
   12.       +-base::as.data.frame(mapply(per_col, df, variables(model), SIMPLIFY = FALSE))
   13.       \-base::mapply(per_col, df, variables(model), SIMPLIFY = FALSE)
   14.         \-(function (col, var) ...
   15.           +-base::format(...)
   16.           \-base::format.default(...)
   17.             \-base::prettyNum(...)
  -- Error (test_write_fwf_blaise_with_model.R:46:3): input_model passes an identical dataframe with common types --
  Error: invalid value 0 for 'digits' argument
  Backtrace:
       x
    1. +-testthat::expect_silent(...) test_write_fwf_blaise_with_model.R:46:2
    2. | \-testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. |   +-testthat:::.capture(...)
    4. |   | +-withr::with_output_sink(...)
    5. |   | | \-base::force(code)
    6. |   | +-base::withCallingHandlers(...)
    7. |   | \-base::withVisible(code)
    8. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. \-blaise::write_fwf_blaise_with_model(df, datafile, blafile)
   10.   \-blaise:::write_data(...)
   11.     \-blaise:::create_fixed_width_column(df, model, decimal.mark, justify)
   12.       +-base::as.data.frame(mapply(per_col, df, variables(model), SIMPLIFY = FALSE))
   13.       \-base::mapply(per_col, df, variables(model), SIMPLIFY = FALSE)
   14.         \-(function (col, var) ...
   15.           +-base::format(...)
   16.           \-base::format.default(...)
   17.             \-base::prettyNum(...)
  -- Error (test_write_fwf_blaise_with_model.R:221:3): order in dataframe doesn't matter --
  Error: invalid value 0 for 'digits' argument
  Backtrace:
       x
    1. +-testthat::expect_silent(...) test_write_fwf_blaise_with_model.R:221:2
    2. | \-testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. |   +-testthat:::.capture(...)
    4. |   | +-withr::with_output_sink(...)
    5. |   | | \-base::force(code)
    6. |   | +-base::withCallingHandlers(...)
    7. |   | \-base::withVisible(code)
    8. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. \-blaise::write_fwf_blaise_with_model(df, datafile, input_model = blafile)
   10.   \-blaise:::write_data(...)
   11.     \-blaise:::create_fixed_width_column(df, model, decimal.mark, justify)
   12.       +-base::as.data.frame(mapply(per_col, df, variables(model), SIMPLIFY = FALSE))
   13.       \-base::mapply(per_col, df, variables(model), SIMPLIFY = FALSE)
   14.         \-(function (col, var) ...
   15.           +-base::format(...)
   16.           \-base::format.default(...)
   17.             \-base::prettyNum(...)
  -- Error (test_write_fwf_blaise_with_model.R:286:3): types are converted properly and can be converted back without loss --
  Error: invalid value 0 for 'digits' argument
  Backtrace:
       x
    1. +-testthat::expect_silent(...) test_write_fwf_blaise_with_model.R:286:2
    2. | \-testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. |   +-testthat:::.capture(...)
    4. |   | +-withr::with_output_sink(...)
    5. |   | | \-base::force(code)
    6. |   | +-base::withCallingHandlers(...)
    7. |   | \-base::withVisible(code)
    8. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. \-blaise::write_fwf_blaise_with_model(df, datafile, input_model = blafile)
   10.   \-blaise:::write_data(...)
   11.     \-blaise:::create_fixed_width_column(df, model, decimal.mark, justify)
   12.       +-base::as.data.frame(mapply(per_col, df, variables(model), SIMPLIFY = FALSE))
   13.       \-base::mapply(per_col, df, variables(model), SIMPLIFY = FALSE)
   14.         \-(function (col, var) ...
   15.           +-base::format(...)
   16.           \-base::format.default(...)
   17.             \-base::prettyNum(...)
  -- Error (test_write_fwf_blaise_with_model.R:316:3): bool to INTEGER works -----
  Error: invalid value 0 for 'digits' argument
  Backtrace:
       x
    1. +-testthat::expect_silent(...) test_write_fwf_blaise_with_model.R:316:2
    2. | \-testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. |   +-testthat:::.capture(...)
    4. |   | +-withr::with_output_sink(...)
    5. |   | | \-base::force(code)
    6. |   | +-base::withCallingHandlers(...)
    7. |   | \-base::withVisible(code)
    8. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. \-blaise::write_fwf_blaise_with_model(df, datafile, input_model = blafile)
   10.   \-blaise:::write_data(...)
   11.     \-blaise:::create_fixed_width_column(df, model, decimal.mark, justify)
   12.       +-base::as.data.frame(mapply(per_col, df, variables(model), SIMPLIFY = FALSE))
   13.       \-base::mapply(per_col, df, variables(model), SIMPLIFY = FALSE)
   14.         \-(function (col, var) ...
   15.           +-base::format(...)
   16.           \-base::format.default(...)
   17.             \-base::prettyNum(...)
  -- Error (test_write_fwf_blaise_with_model.R:383:3): input_model works with lower case or mixed case types --
  Error: invalid value 0 for 'digits' argument
  Backtrace:
       x
    1. +-testthat::expect_silent(...) test_write_fwf_blaise_with_model.R:383:2
    2. | \-testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. |   +-testthat:::.capture(...)
    4. |   | +-withr::with_output_sink(...)
    5. |   | | \-base::force(code)
    6. |   | +-base::withCallingHandlers(...)
    7. |   | \-base::withVisible(code)
    8. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. \-blaise::write_fwf_blaise_with_model(df, datafile, blafile)
   10.   \-blaise:::write_data(...)
   11.     \-blaise:::create_fixed_width_column(df, model, decimal.mark, justify)
   12.       +-base::as.data.frame(mapply(per_col, df, variables(model), SIMPLIFY = FALSE))
   13.       \-base::mapply(per_col, df, variables(model), SIMPLIFY = FALSE)
   14.         \-(function (col, var) ...
   15.           +-base::format(...)
   16.           \-base::format.default(...)
   17.             \-base::prettyNum(...)
  -- Error (test_write_fwf_blaise_with_model.R:407:3): input_model works with different case variable names --
  Error: invalid value 0 for 'digits' argument
  Backtrace:
       x
    1. +-testthat::expect_silent(...) test_write_fwf_blaise_with_model.R:407:2
    2. | \-testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. |   +-testthat:::.capture(...)
    4. |   | +-withr::with_output_sink(...)
    5. |   | | \-base::force(code)
    6. |   | +-base::withCallingHandlers(...)
    7. |   | \-base::withVisible(code)
    8. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. \-blaise::write_fwf_blaise_with_model(df, datafile, blafile)
   10.   \-blaise:::write_data(...)
   11.     \-blaise:::create_fixed_width_column(df, model, decimal.mark, justify)
   12.       +-base::as.data.frame(mapply(per_col, df, variables(model), SIMPLIFY = FALSE))
   13.       \-base::mapply(per_col, df, variables(model), SIMPLIFY = FALSE)
   14.         \-(function (col, var) ...
   15.           +-base::format(...)
   16.           \-base::format.default(...)
   17.             \-base::prettyNum(...)
  -- Error (test_write_fwf_blaise_with_model.R:433:3): DUMMY variables are written out as expected --
  Error: invalid value 0 for 'digits' argument
  Backtrace:
       x
    1. +-testthat::expect_silent(...) test_write_fwf_blaise_with_model.R:433:2
    2. | \-testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. |   +-testthat:::.capture(...)
    4. |   | +-withr::with_output_sink(...)
    5. |   | | \-base::force(code)
    6. |   | +-base::withCallingHandlers(...)
    7. |   | \-base::withVisible(code)
    8. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. \-blaise::write_fwf_blaise_with_model(df, datafile, blafile)
   10.   \-blaise:::write_data(...)
   11.     \-blaise:::create_fixed_width_column(df, model, decimal.mark, justify)
   12.       +-base::as.data.frame(mapply(per_col, df, variables(model), SIMPLIFY = FALSE))
   13.       \-base::mapply(per_col, df, variables(model), SIMPLIFY = FALSE)
   14.         \-(function (col, var) ...
   15.           +-base::format(...)
   16.           \-base::format.default(...)
   17.             \-base::prettyNum(...)
  -- Error (test_write_fwf_blaise_with_model.R:464:3): ENUMS are written out as expected --
  Error: invalid value 0 for 'digits' argument
  Backtrace:
       x
    1. +-testthat::expect_silent(...) test_write_fwf_blaise_with_model.R:464:2
    2. | \-testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. |   +-testthat:::.capture(...)
    4. |   | +-withr::with_output_sink(...)
    5. |   | | \-base::force(code)
    6. |   | +-base::withCallingHandlers(...)
    7. |   | \-base::withVisible(code)
    8. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. \-blaise::write_fwf_blaise_with_model(df, datafile, blafile)
   10.   \-blaise:::write_data(...)
   11.     \-blaise:::create_fixed_width_column(df, model, decimal.mark, justify)
   12.       +-base::as.data.frame(mapply(per_col, df, variables(model), SIMPLIFY = FALSE))
   13.       \-base::mapply(per_col, df, variables(model), SIMPLIFY = FALSE)
   14.         \-(function (col, var) ...
   15.           +-base::format(...)
   16.           \-base::format.default(...)
   17.             \-base::prettyNum(...)
  
  [ FAIL 11 | WARN 0 | SKIP 0 | PASS 341 ]
  Error: Test failures
  Execution halted