small fix

TsaiLintung · TsaiLintung · commit 4590ac25b6bf · 2024-08-02T16:03:19.000-07:00
diff --git a/R/validate.R b/R/validate.R
@@ -62,7 +62,7 @@ validate_dt <- function(dt, p){
     if(p$balanced_event_time > dt[, max(time-G)]){stop("balanced_event_time is larger than the max event time in the data")}
   }
   
-  if(!is.na(p$exper$filtervar) && !is.logical(dt[[p$exper$filtervar]])){
+  if(!is.null(p$exper$filtervar) && !is.logical(dt[[p$exper$filtervar]])){
     stop("filter var needs to be a logical column")
   }
   

Original file line number	Diff line number	Diff line change
`@@ -62,7 +62,7 @@ validate_dt <- function(dt, p){`
`62`	`62`	`if(p$balanced_event_time > dt[, max(time-G)]){stop("balanced_event_time is larger than the max event time in the data")}`
`63`	`63`	`}`
`64`	`64`
`65`		`- if(!is.na(p$exper$filtervar) && !is.logical(dt[[p$exper$filtervar]])){`
	`65`	`+ if(!is.null(p$exper$filtervar) && !is.logical(dt[[p$exper$filtervar]])){`
`66`	`66`	`stop("filter var needs to be a logical column")`
`67`	`67`	`}`
`68`	`68`