R/AVSDevR.DBClient
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: R:v1.0.0
Branches Tags
R:main
R:v1.0.0
...
compare: R:078cec0598e44fa31806a8e709678a2d2a4aa63f
Branches Tags
R:main
R:v1.0.0

3 Commits
v1.0.0 ... 078cec0598

Author SHA1 Message Date
Craig Williams
078cec0598 Fixed case of initilize method for DBClient 2026-01-27 14:52:26 +00:00
Craig Williams
0ca9a9c7bc Increment version number to 0.0.1 2026-01-27 14:48:58 +00:00
Craig Williams
4db4efabae Fixed a devtools check() issue 2026-01-27 14:48:48 +00:00
3 changed files with 6 additions and 6 deletions
Expand all files Collapse all files

2
DESCRIPTION
View File

@@ -1,6 +1,6 @@
Package: AVSDevR.DBClient Package: AVSDevR.DBClient
Title: AVSDev R Database Client Title: AVSDev R Database Client
Version: 0.0.0.9000 Version: 0.0.1
Authors@R: Authors@R:
person("Craig", "Williams", , "craig@avsdev.uk", role = c("aut", "cre")) person("Craig", "Williams", , "craig@avsdev.uk", role = c("aut", "cre"))
Description: AVSDevR.DBClient provides a collection of utility methods for Description: AVSDevR.DBClient provides a collection of utility methods for

2
R/DBClientClass/Initialize.R
View File

@@ -1,6 +1,6 @@
client <- NULL client <- NULL
Initialize <- function(client) { initialize <- function(client) {
if (is.null(client) || !is.R6(client) || inherits(client, "DBClient")) { if (is.null(client) || !is.R6(client) || inherits(client, "DBClient")) {
stop("DBClient instance required!") stop("DBClient instance required!")
} }

8
R/PrintDebug.R
View File

@@ -80,17 +80,17 @@ printDebug <- function(fn_name, table, key, tbl, rows, query_only = FALSE) {
return_keys <- NULL return_keys <- NULL
if (key %in% colnames(rows)) { if (key %in% colnames(rows)) {
return_keys <- rows %>% return_keys <- rows |>
dplyr::select(key) dplyr::select(key)
} else { } else {
return_keys <- rows %>% return_keys <- rows |>
dplyr::bind_rows(tibble::tibble(!!key := character(0))) %>% dplyr::bind_rows(tibble::tibble(!!key := character(0))) |>
dplyr::mutate( dplyr::mutate(
!!key := dplyr::coalesce( !!key := dplyr::coalesce(
!!!dplyr::sym(key), !!!dplyr::sym(key),
paste0("<<NEW_ID::", round(stats::runif(1, 1, 100000)), ">>") paste0("<<NEW_ID::", round(stats::runif(1, 1, 100000)), ">>")
) )
) %>% ) |>
dplyr::select(key) dplyr::select(key)
} }
return(invisible(return_keys)) return(invisible(return_keys))