Podziel rozdzielone przecinkami łańcuchy w kolumnie na osobne wiersze

Mam ramkę danych, taką jak ta:

data.frame(director = c("Aaron Blaise,Bob Walker", "Akira Kurosawa", 
                        "Alan J. Pakula", "Alan Parker", "Alejandro Amenabar", "Alejandro Gonzalez Inarritu", 
                        "Alejandro Gonzalez Inarritu,Benicio Del Toro", "Alejandro González Iñárritu", 
                        "Alex Proyas", "Alexander Hall", "Alfonso Cuaron", "Alfred Hitchcock", 
                        "Anatole Litvak", "Andrew Adamson,Marilyn Fox", "Andrew Dominik", 
                        "Andrew Stanton", "Andrew Stanton,Lee Unkrich", "Angelina Jolie,John Stevenson", 
                        "Anne Fontaine", "Anthony Harvey"), AB = c('A', 'B', 'A', 'A', 'B', 'B', 'B', 'A', 'B', 'A', 'B', 'A', 'A', 'B', 'B', 'B', 'B', 'B', 'B', 'A'))

Jak widać, niektóre wpisy wdirector kolumna to wiele nazw oddzielonych przecinkami. Chciałbym podzielić te wpisy na osobne wiersze, zachowując wartości drugiej kolumny. Jako przykład, pierwszy wiersz w ramce danych powyżej powinien być podzielony na dwa wiersze, z których każda zawiera jedną nazwędirector kolumna i „A” wAB kolumna.

questionAnswers(4)

yourAnswerToTheQuestion