R/get_tablename.R

In SimonGreenhill/rcldf: rcldf - Read Linguistic Data In The Cross Linguistic Data Format (CLDF)

#' Convert a CLDF URL tablename to a short tablename
#'
#' @param conformsto the dc:conforms to statement
#' @param url the url statement
#' @return A string
#' @export
#' @examples
#' get_tablename("http://cldf.clld.org/v1.0/terms.rdf#ValueTable")
get_tablename <- function(conformsto, url=NA) {
    # default to basename of url name if no conformsto statement (=filename)
    if (is.na(conformsto) || is.null(conformsto)) {
        return(basename(url))
    } else if (!grepl("#", conformsto, fixed=TRUE)) {
        stop(paste("Invalid table name: ", conformsto))
    } else {
        return(strsplit(conformsto, '#')[[1]][[2]])
    }
}