working with summarise error

[jamespyon]

This works:

dioxin_data |>
  group_by(SampleID) |>
  summarise(contaminant = calculate_teq(Concentration, cen, CASRN, warnings = F)$contaminant,
            obs = calculate_teq(Concentration, cen, CASRN, warnings = F)$teq,
            teq_cen = calculate_teq(Concentration, cen, CASRN, warnings = F)$teq_cen,
            rpd = calculate_teq(Concentration, cen, CASRN, warnings = F)$rpd) |>
  ungroup()

But not this:

dioxin_data |>
  group_by(SampleID) |>
  summarise(contaminant = calculate_teq(Concentration, cen, CASRN, warnings = F)$contaminant,
            obs = calculate_teq(Concentration, cen, CASRN, warnings = F)$teq,
            cen = calculate_teq(Concentration, cen, CASRN, warnings = F)$teq_cen,
            rpd = calculate_teq(Concentration, cen, CASRN, warnings = F)$rpd) |>
  ungroup()

Only change here is that teq_cen is named cen inside summarise()