Как приостановить исполняемый файл, если обнаружена ошибка?

Вот решение tidyverse с использованием nest:

library(tidyverse)
df %>%
  nest(-(1:2),.key="Max") %>%
  mutate_at("Max",map_dbl, max)
#   ID Group Max
# 1 a1   abc  11
# 2 a1   def   5
# 3 a2   def  11

В базе R:

res <- aggregate(. ~ ID + Group,df,max)
res <- cbind(res[1:2], Max = do.call(pmax,res[-(1:2)]))
res
#   ID Group Max
# 1 a1   abc  11
# 2 a1   def   5
# 3 a2   def  11