chore: move getTableSignature to separate files

R/create_table.R

@@ -70,50 +70,3 @@ create_table <- function(.data, conn = NULL, db_table_id, ...) {
 
   return(invisible(dplyr::tbl(conn, db_table_id, check_from = FALSE)))
 }
-
-
-
-#' @importFrom methods setGeneric
-methods::setGeneric("getTableSignature",
-                    function(.data, conn = NULL) standardGeneric("getTableSignature"),
-                    signature = "conn")
-
-methods::setMethod("getTableSignature", "DBIConnection", function(.data, conn) {
-  # Define the column types to be updated based on backend class
-  col_types <- DBI::dbDataType(conn, .data)
-
-  backend_coltypes <- list(
-    "PqConnection" = c(
-      checksum = "TEXT",
-      from_ts  = "TIMESTAMP",
-      until_ts = "TIMESTAMP"
-    ),
-    "SQLiteConnection" = c(
-      checksum = "TEXT",
-      from_ts  = "TEXT",
-      until_ts = "TEXT"
-    ),
-    "Microsoft SQL Server" = c(
-      checksum = "varchar(32)",
-      from_ts  = "DATETIME2",
-      until_ts = "DATETIME2"
-    )
-  )
-
-  checkmate::assert_choice(class(conn), names(backend_coltypes))
-
-  # Update columns with indices instead of names to avoid conflicts
-  special_cols <- backend_coltypes[[class(conn)]]
-  special_indices <- (1 + length(.data) - length(special_cols)):length(.data)
-
-  return(replace(col_types, special_indices, special_cols))
-})
-
-methods::setMethod("getTableSignature", "NULL", function(.data, conn) {
-  # Emulate product of DBI::dbDataType
-  signature <- dplyr::summarise(.data, dplyr::across(tidyselect::everything(), ~ class(.)[1]))
-
-  stats::setNames(as.character(signature), names(signature))
-
-  return(signature)
-})

R/getTableSignature.R

@@ -0,0 +1,44 @@
+#' @importFrom methods setGeneric
+methods::setGeneric("getTableSignature",
+                    function(.data, conn = NULL) standardGeneric("getTableSignature"),
+                    signature = "conn")
+
+methods::setMethod("getTableSignature", "DBIConnection", function(.data, conn) {
+  # Define the column types to be updated based on backend class
+  col_types <- DBI::dbDataType(conn, .data)
+
+  backend_coltypes <- list(
+    "PqConnection" = c(
+      checksum = "TEXT",
+      from_ts  = "TIMESTAMP",
+      until_ts = "TIMESTAMP"
+    ),
+    "SQLiteConnection" = c(
+      checksum = "TEXT",
+      from_ts  = "TEXT",
+      until_ts = "TEXT"
+    ),
+    "Microsoft SQL Server" = c(
+      checksum = "varchar(32)",
+      from_ts  = "DATETIME2",
+      until_ts = "DATETIME2"
+    )
+  )
+
+  checkmate::assert_choice(class(conn), names(backend_coltypes))
+
+  # Update columns with indices instead of names to avoid conflicts
+  special_cols <- backend_coltypes[[class(conn)]]
+  special_indices <- (1 + length(.data) - length(special_cols)):length(.data)
+
+  return(replace(col_types, special_indices, special_cols))
+})
+
+methods::setMethod("getTableSignature", "NULL", function(.data, conn) {
+  # Emulate product of DBI::dbDataType
+  signature <- dplyr::summarise(.data, dplyr::across(tidyselect::everything(), ~ class(.)[1]))
+
+  stats::setNames(as.character(signature), names(signature))
+
+  return(signature)
+})

tests/testthat/test-create_table.R

@@ -85,11 +85,3 @@ test_that("create_table() does not overwrite tables", {
     DBI::dbDisconnect(conn)
   }
 })
-
-
-test_that("getTableSignature() generates a signature for NULL connections", {
-  expect_identical(
-    lapply(cars, class),
-    as.list(getTableSignature(cars, conn = NULL))
-  )
-})

tests/testthat/test-getTableSignature.R

@@ -0,0 +1,6 @@
+test_that("getTableSignature() generates a signature for NULL connections", {
+  expect_identical(
+    lapply(cars, class),
+    as.list(getTableSignature(cars, conn = NULL))
+  )
+})