trying silent failure

Author: muschellij2

R/aaa_base.R

@@ -1,12 +1,18 @@
 stepcount_base = function() {
   sc = reticulate::import("stepcount")
-  stepcount = sc$stepcount
+  stepcount = try({sc$stepcount})
+  if (inherits(stepcount, "try-error")) {
+    stepcount = reticulate::import("stepcount.stepcount")
+  }
   stepcount
 }
 
 
 stepcount_base_noconvert = function() {
   sc = reticulate::import("stepcount", convert = FALSE)
-  stepcount = sc$stepcount
+  stepcount = try({sc$stepcount})
+  if (inherits(stepcount, "try-error")) {
+    stepcount = reticulate::import("stepcount.stepcount", convert = FALSE)
+  }
   stepcount
 }