From eef28dbbc97ec5dd86d2cea91edfec622d5fee0a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kirill=20M=C3=BCller?= Date: Tue, 22 Dec 2020 18:37:03 +0100 Subject: [PATCH] Add DBI base class to inherited classes --- R/Connection.R | 2 +- R/Driver.R | 2 +- R/Result.R | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/Connection.R b/R/Connection.R index 1e00ad6..4478c19 100644 --- a/R/Connection.R +++ b/R/Connection.R @@ -12,7 +12,7 @@ make_connection_class <- function(base_class) { template_name <- "dblogConnection" class_name <- paste0(template_name, "-", base_class) - all_base_classes <- c(template_name, base_class) + all_base_classes <- c(template_name, base_class, "DBIConnection") if (isClass(class_name)) { return(class_name) diff --git a/R/Driver.R b/R/Driver.R index b43f1eb..4897c23 100644 --- a/R/Driver.R +++ b/R/Driver.R @@ -28,7 +28,7 @@ make_driver_class <- function(base_class) { template_name <- "dblogDriver" class_name <- paste0(template_name, "-", base_class) - all_base_classes <- c(template_name, base_class) + all_base_classes <- c(template_name, base_class, "DBIDriver") if (isClass(class_name)) { return(class_name) diff --git a/R/Result.R b/R/Result.R index 11d4a6d..1be57bf 100644 --- a/R/Result.R +++ b/R/Result.R @@ -7,7 +7,7 @@ make_result_class <- function(base_class) { template_name <- "dblogResult" class_name <- paste0(template_name, "-", base_class) - all_base_classes <- c(template_name, base_class) + all_base_classes <- c(template_name, base_class, "DBIResult") if (isClass(class_name)) { return(class_name)