Fixed bogus warning about comparing class to character.

OHDSI · May 20, 2022 · 572580e · 572580e
1 parent 748941a
commit 572580e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/clusteringLC.R b/R/clusteringLC.R
@@ -2090,7 +2090,7 @@ function (envir, dframe, trtm, pscr, yvar, faclev = 3, df = 5, spar = NULL, cv =
       stop("Second argument to SPSlogit must be the name of a Data Frame in the working environment.")
     if (missing(trtm))
       stop("Third argument to SPSlogit must name the Treatment factor.")
-    if (missing(form) || class(form) != "formula")
+    if (missing(form) || (as.character(class(form)) != "formula"))
         stop("Second argument to SPSlogit must be a valid formula.")
     trtm <- deparse(form[[2]])
     dfname = deparse(substitute(dframe))

diff --git a/R/localControl.R b/R/localControl.R
@@ -559,7 +559,7 @@ plot.LocalControlCS = function(x, ..., nnConfidence, ylim,
 #' @export
 LocalControlCompetingRisksConfidence <- function(LCCompRisk, confLevel = "95%", confTransform = "asin"){
 
-  if(class(LCCompRisk) != "LocalControlCR"){
+  if(as.character(class(LCCompRisk)) != "LocalControlCR"){
     stop("LCCompRisk param must be type 'LocalControlCR' returned from the function 'LocalControl()' where outcomeType = 'survival'")
   }