Running ‘testthat.R’ [45s/55s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(fluxible)
  > 
  > test_check("fluxible")
  Column flux of data frame fluxes has to be numeric
  Argument start_cut has to be numeric
  Argument start_cut has to be numeric
  Column flux of data frame fluxes has to be numeric
  Joining with `by = join_by(warming)`
  Argument par_er has to be numeric
  Column warming of data frame co2_fluxes_lrc has to be numeric
  Column datetime of data frame co2_df_short has to be POSIXct
  Column start of data frame record_short has to be POSIXct
  Argument measurement_length has to be numeric
  Argument time_diff has to be numeric
  Column turfID of data frame record_short has to be POSIXct
  [ FAIL 80 | WARN 0 | SKIP 34 | PASS 30 ]
  
  ══ Skipped tests (34) ══════════════════════════════════════════════════════════
  • On CRAN (34): 'test-flux_calc.R:190:3', 'test-flux_calc.R:207:3',
    'test-flux_diff.R:2:3', 'test-flux_diff.R:16:3', 'test-flux_diff.R:30:3',
    'test-flux_diff.R:68:3', 'test-flux_diff.R:108:3', 'test-flux_diff.R:164:3',
    'test-flux_diff.R:188:3', 'test-flux_diff.R:226:3', 'test-flux_diff.R:281:3',
    'test-flux_drygas.R:2:3', 'test-flux_drygas.R:8:3', 'test-flux_gep.R:2:3',
    'test-flux_gep.R:14:3', 'test-flux_gep.R:50:3', 'test-flux_gep.R:87:3',
    'test-flux_gep.R:104:3', 'test-flux_gep.R:126:3', 'test-flux_gep.R:162:3',
    'test-flux_gpp.R:2:3', 'test-flux_gpp.R:14:3', 'test-flux_gpp.R:50:3',
    'test-flux_gpp.R:87:3', 'test-flux_gpp.R:137:3', 'test-flux_gpp.R:159:3',
    'test-flux_gpp.R:195:3', 'test-flux_lrc.R:15:3', 'test-flux_lrc.R:31:3',
    'test-flux_match.R:2:3', 'test-flux_match.R:22:3', 'test-flux_match.R:46:3',
    'test-flux_match.R:60:3', 'test-flux_match.R:153:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-flux_calc.R:2:3'): flux calculation is correct ─────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:33:3'): averaging works ────────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:65:3'): keeping works ──────────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:92:3'): keeping and averaging work together ────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:122:3'): nesting works ─────────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:156:3'): nesting all works ─────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:228:3'): error on air temp units ───────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:269:3'): error that slope column is missing ────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:296:3'): error slope_col cannot be found in slopes_df ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:325:3'): error some cols_keep do not exist ─────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:358:3'): calculating fluxes on dataset with cuts ───
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:386:3'): volume can be a variable instead of a constant ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:424:3'): pressure can be a variable instead of a constant ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:469:3'): Fluxible workflow works from start to finish ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:506:3'): Stupeflux returns the same as step by step workflow ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:555:3'): Stupeflux works with slope_correction = FALSE ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_calc.R:555:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_calc.R:584:3'): Fluxible workflow works with kappamax ─────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:628:3'): Working with two gases ────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:712:3'): sum and median works ──────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_calc.R:745:3'): sum and average works on same variable ────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_fit_type.R:2:3'): extracts the fit correclty ──────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_fit_type.R:19:3'): fit transfer from flux_fitting ─────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_fitting.R:2:3'): works for exponential fitting ────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:2:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:15:3'): works for linear fitting ────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:15:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:28:3'): works for quadratic fitting ─────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:28:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:41:3'): works for exponential fitting with cut ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:41:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:55:3'): works for linear fitting with cut ───────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:55:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:77:3'): removing duplicated datetime ────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:77:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:97:3'): correct flux with duplicated datetime ───
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_fitting.R:114:3'): works for exp_tz fitting ───────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:114:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:128:3'): works for exp_zhao18 with missing data ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:128:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:143:3'): works for exp_zhao18 with mid missing data ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:143:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:158:3'): works for exp_tz with mid missing data ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:158:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:173:3'): works for quadratic with mid missing data ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:173:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:199:3'): exp_tz: optim produces non-finite values ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:199:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:224:3'): exp_zhao18: optim produces non-finite values ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:224:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:239:3'): works for exp_hm fitting ───────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:239:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:252:3'): fitting works with 0 second end cut ────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_fitting.R:263:3'): fitting works with 30 second end cut ───
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:263:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:273:3'): fitting works with 60 second end cut ───
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:273:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:286:3'): warnings when NAs are dropped in conc ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_fitting.R:303:3'): warnings when there is no data in conc ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_fitting.R:315:3'): warnings with cutting ──────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_fitting.R:370:3'): renaming works ─────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:370:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:383:3'): quadratic fit works ────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:383:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:399:3'): fitting works with 0 second end cut ────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:399:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:410:3'): fitting works with 30 second end cut ───
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:410:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:422:3'): fitting works with 60 second end cut ───
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:422:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:437:3'): warnings when NAs are dropped in conc ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_fitting.R:453:3'): warnings when there is no data in conc ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_fitting.R:464:3'): warnings with cutting ──────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_fitting.R:518:3'): renaming works ─────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:518:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:531:3'): cut direction from start ───────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:531:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_fitting.R:547:3'): cut direction from end ─────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_fitting.R:547:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_flag_count.R:2:3'): quality flags count works ─────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_flag_count.R:18:3'): quality flags count works after calculating fluxes ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_plot.R:2:3'): plot for exponential fit ────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_plot.R:29:3'): plot for linear fit ────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_plot.R:49:3'): plot for linear fit with jpg extension works ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_plot.R:75:3'): ggssave and print ──────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_plot.R:104:3'): plot can be exported as an object ─────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_plot.R:120:3'): plot for exp_tz fit ───────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_plot.R:120:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_plot.R:139:3'): plot for exp_tz fit with mid missing data ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_plot.R:139:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_plot.R:157:3'): plot for exp_zhao18 fit with mid missing data ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_plot.R:157:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_plot.R:175:3'): plot for quadratic fit with mid missing data ──
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_plot.R:175:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_plot.R:193:3'): plot for exp_hm fit ───────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_plot.R:193:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_plot.R:211:3'): plot for kappamax fit ─────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_plot.R:211:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_plot.R:234:3'): plot with custom facet id ─────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_plot.R:259:3'): error with custom facet id not unique ─────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_plot.R:282:3'): longpdf works ─────────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_plot.R:307:3'): longpdf and print ─────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_plot.R:335:3'): argument error ────────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_quality.R:2:3'): works for exponential fitting ────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_quality.R:20:3'): works for linear fitting ────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_quality.R:38:3'): works for quadratic fitting ─────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_quality.R:61:3'): kappamax with HM model ──────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_quality.R:83:3'): kappamax with zhao18 model ──────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_quality.R:107:3'): works in a pipeline ────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(...) at test-flux_quality.R:107:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-flux_units.R:38:3'): superseeded but still works (mmol) ────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  ── Error ('test-flux_units.R:69:3'): superseeded but still works (micromol) ────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(nest(group_by(conc_df_cut, {
      {
          f_fluxid
      }
  })), model = map(.x = data, function(.x) lm(.x[[name_conc]] ~ 
      f_time_cut, data = .x)), tidy = map(.data$model, tidy), glance = map(.data$model, 
      glance))`: i In argument: `glance = map(.data$model, glance)`.
  i In group 1: `f_fluxid = 1`.
  Caused by error in `map()`:
  i In index: 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  
  [ FAIL 80 | WARN 0 | SKIP 34 | PASS 30 ]
  Deleting unused snapshots:
  • flux_plot/ggssave-and-print.svg
  • flux_plot/longpdf-and-print.svg
  • flux_plot/plot-as-an-object.svg
  • flux_plot/plot-for-linear-fit.svg
  • flux_plot/plot-with-custom-facet-id.svg
  Error: Test failures
  Execution halted