R/flux_cut.R

In fluxible: Ecosystem Gas Fluxes Calculations for Closed Loop Chamber Setup

#' filter cut data before calculating fluxes
#' @param slopes_df dataset containing slopes and cut column
#' @param cut_col column containing cutting information
#' @param keep_arg name in cut_col of data to keep

flux_cut <- function(slopes_df,
                     cut_col,
                     keep_arg) {
  if (is.na(keep_arg)) {
    stop("please provide the keep_filter argument to filter the data to keep")
  }

  slopes_df <- slopes_df |>
    filter({{cut_col}} == keep_arg)
}