R/dbUnquoteIdentifier_MariaDBConnection_SQL.R

In RMariaDB: Database Interface and MariaDB Driver

#' @rdname mariadb-quoting
#' @usage NULL
dbUnquoteIdentifier_MariaDBConnection_SQL <- function(conn, x, ...) {
  id_rx <- "(?:`((?:[^`]|``)+)`|([^`. ]+))"

  rx <- paste0(
    "^",
    "(?:|", id_rx, "[.])",
    "(?:|", id_rx, ")",
    "$"
  )

  bad <- grep(rx, x, invert = TRUE)
  if (length(bad) > 0) {
    stop("Can't unquote ", x[bad[[1]]], call. = FALSE)
  }
  schema <- gsub(rx, "\\1\\2", x)
  schema <- gsub("``", "`", schema)
  table <- gsub(rx, "\\3\\4", x)
  table <- gsub("``", "`", table)

  ret <- Map(schema, table, f = as_table)
  names(ret) <- names(x)
  ret
}

#' @rdname mariadb-quoting
#' @export
setMethod("dbUnquoteIdentifier", c("MariaDBConnection", "SQL"), dbUnquoteIdentifier_MariaDBConnection_SQL)