Package maintenance for cran release

.Rbuildignore

@@ -3,6 +3,7 @@
 ^\.idea$
 ^renv$
 ^renv\.lock$
+sql
 extras
 man-roxygen
 license_header_stub.txt

DESCRIPTION

@@ -1,14 +1,14 @@
 Package: ResultModelManager
 Title: Result Model Manager
-Version: 0.5.8
+Version: 0.5.9
 Authors@R:
     person("Jamie", "Gilbert", , "gilbert@ohdsi.org", role = c("aut", "cre"))
 Description: Database data model management utilities for OHDSI packages.
 License: Apache License (== 2.0)
 Encoding: UTF-8
 VignetteBuilder: knitr
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 Depends:
   R (>= 4.1.0),
   R6,

NEWS.md

@@ -1,3 +1,9 @@
+# ResultModelManager 0.5.9
+
+Changes:
+
+1. Changes made to make package CRAN compliant
+
 # ResultModelManager 0.5.8
 
 Bug fixes:

R/DataModel.R

@@ -809,19 +809,20 @@ loadResultsDataModelSpecifications <- function(filePath) {
 #' Another assumption of this function is that we're only attempting to
 #' recast to a character data type and not try to handle different type
 #' conversions.
+#' @noRd
 formatChunk <- function(pkValuesInDb, chunk) {
   for (columnName in names(pkValuesInDb)) {
-    if (class(pkValuesInDb[[columnName]]) == "integer") {
+    if (inherits(pkValuesInDb[[columnName]], "integer")) {
       pkValuesInDb[[columnName]] <- as.numeric(pkValuesInDb[[columnName]])
     }
 
-    if (class(chunk[[columnName]]) == "integer") {
+    if (inherits(chunk[[columnName]], "integer")) {
       chunk[[columnName]] <- as.numeric(chunk[[columnName]])
     }
 
 
     if (class(pkValuesInDb[[columnName]]) != class(chunk[[columnName]])) {
-      if (class(pkValuesInDb[[columnName]]) == "character") {
+      if (inherits(pkValuesInDb[[columnName]], "character")) {
         chunk <- chunk |> dplyr::mutate_at(columnName, as.character)
       } else {
         errorMsg <- paste0(