inst/examples/GAppInfo.R

In RGtk2: R Bindings for Gtk 2.8.0 and Above

file <- gFileNewForCommandlineArg(uri_from_commandline)

uri <- file$getUri()
identical(uri, uri_from_commandline) # FALSE

if (file$hasUriScheme("cdda"))
  {
    ## do something special with uri
  }