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

Fixed a devtools check() issue

Browse Source
This commit is contained in:
Craig Williams
2026-01-27 14:48:48 +00:00
parent b03c2691cd
commit 4db4efabae
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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))