How do I reshape wide nested data to long format in R?

Question

I have a dataset that looks something like this, where I have a different teams (A, B) for each classroom (ID), 3 scores for each team (e.g., team1_1 team1_2 team1_3) and a