allows use of TRUE and FALSE to turn on and off

mnr · Feb 21, 2024 · 6c55585 · 6c55585
1 parent 5784507
commit 6c55585
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/rpi_set.R b/R/rpi_set.R
@@ -21,6 +21,10 @@
 #' rpi_set(toggleThesePins, 0) # turns off all pins
 rpi_set <- function(pin_number, onOff) {
 
+  if( is.logical(onOff) ) {
+    onOff <- ifelse(onOff,1,0)
+  }
+
   bcm_line <- rpigpior::rpi_pinToBCM(pin_number)
 
   pinAndValue <- paste0(bcm_line,"=",onOff)