ms1 <- remove_row_annotation(student_results, class, teacher)
# this doesn't work because "class" is used for grouping
ms2 <- tryCatch(remove_row_annotation(row_group_by(student_results, class), class),
error = function(e) e)
is(ms2, "error") #TRUE
ms2$message
Run the code above in your browser using DataLab