TSLA function not working

[amyerspigg]

TEMPEST-1-porewater/scripts/analysis_scripts/1_manuscript_analysis_porewaterDOC.Rmd

Line 279 in 53f892c

sum_fticrms <- calc_dist_metrics(pw_ft, flood_event_datetime,

error:

Error in mutate():
ℹ In argument: max_effect_Mid = case_when(...).
Caused by error in case_when():
! Failed to evaluate the left-hand side of formula 1.
Caused by error:
! object 'avg_Mid' not found
Backtrace:

1. global calc_dist_metrics(pw_ft, flood_event_datetime, c("relabund"))
2. dplyr::case_when(...)
3. dplyr:::case_formula_evaluate(...)
4. rlang::eval_tidy(pair$lhs, env = default_env)
   Error in mutate(., max_effect_Mid = case_when(avg_Mid > avg_Pre ~ max_Mid, :

Caused by error in case_when():
! Failed to evaluate the left-hand side of formula 1.
Caused by error:
! object 'avg_Mid' not found

I checked and there should be data for the mid-point (at least one timepoint) so not sure what's going on

[amyerspigg]

@stephpenn1

[stephpenn1]

This error is happening because your data frame pw_ft doesn't have any during-event ("Mid") data points. So it cannot execute the line

mutate(max_effect_Mid = case_when(
      avg_Mid > avg_Pre ~ max_Mid,
      avg_Mid < avg_Pre ~ min_Mid,
      avg_Mid == avg_Pre ~ avg_Mid
    ))