playlist_uri_is_radial <- function(uri) {
  pat <- '.*:user:([Rr][Aa][Dd][Ii][Aa][Ll]|114125244|[Oo]rchard|theorchardus|maykrofon|114125244|radiallatinoamerica|clubcorridos|theorchardscandinavia|1113004802|radialphilippines|radialturkey|radialitalia|radialdeutschland|radialmexico|radialbrasil|radialgreece|radialaustralia|radialcanada|radialindonesia|theorcharduk|radial.deutschland).*'
  grepl(pat, uri)
}

is_radial <- function(x) {
  pat <- '([Rr][Aa][Dd][Ii][Aa][Ll]|114125244|[Oo]rchard|theorchardus|maykrofon|114125244|radiallatinoamerica|clubcorridos|theorchardscandinavia|1113004802|radialphilippines|radialturkey|radialitalia|radialdeutschland|radialmexico|radialbrasil|radialgreece|radialaustralia|radialcanada|radialindonesia|theorcharduk|radial.deutschland).*'
  grepl(pat, x)
}