simplify

privefl · Sep 7, 2024 · f17593a · f17593a
1 parent d63dc34
commit f17593a
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/src/FBM-replace.cpp b/src/FBM-replace.cpp
@@ -118,11 +118,7 @@ bool do_warn_downcast() {
   Function get_option = base["getOption"];
   SEXP warn = get_option("bigstatsr.downcast.warning");
 
-  if (TYPEOF(warn) == LGLSXP) {
-    return as<LogicalVector>(warn)[0];
-  } else {
-    return true;  // but this shoud not happen
-  }
+  return Rf_isNull(warn) ? true : Rf_asLogical(warn);
 }
 
 /******************************************************************************/