This function processes concert data to extract unique shows,
Examples
concert_data <- data.frame(
showID = c(1, 1, 2),
venue = c("Venue A", "Venue A", "Venue B"),
city = c("City X", "City X", "City Y"),
country = c("Country A", "Country A", "Country B"),
date = as.Date(c("2023-01-01", "2023-01-01", "2023-01-02")),
tour = c("Tour 1", "Tour 1", "Tour 1"),
song_title = c("Song A", "Song B", "Song C")
)
unique_shows <- extract_unique_shows(concert_data)