R on a Raspberry Pi

def fib(n):
     a, b = 0, 1
     while a < n:
         print(a, end=' ')
         a, b = b, a+b
     print()
 fib(1000)

sudo apt-get update
sudo apt-get install r-base r-base-core

# install.packages("cowsay")

library(cowsay)

say("Hello world")

plot(x = 1:10, y = 10:1)

# assign buttons 
TRYME_btn <- 21 # BCM numbering scheme 

while (TRUE) { 
   getGPIOcmd <- paste("gpioget -l gpiochip0", TRYME_btn) 
   if (system(getGPIOcmd, intern = TRUE) == 0) print("Try Me!") 
} # control-Z stops the loop

# assign buttons (use BCM - not board)
getGPIOcmd <- "gpioget gpiochip0 21"

# assign control pin (use BCM)
setGPIOcmd_on <- "gpioset gpiochip0 9=1"
setGPIOcmd_off <- "gpioset gpiochip0 9=0"

while (TRUE) {
  if (system(getGPIOcmd, intern=TRUE) == 1) print ("Try Me!")
  
  system(setGPIOcmd_on)
  Sys.sleep(1)
  system(setGPIOcmd_off)
  Sys.sleep(3)
}