# This file was generated by Rcpp::compileAttributes# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393#' Initialize the Raspberry Pi for IO #' @param setup_type Which mode wiringPi should be initialized in. Either#' \code{wpi}, \code{gpio}, \code{phys}, or \code{sys}. See#' \url{http://wiringpi.com/reference/setup/} for definitions of each.#' @param spi_channel If using an external ADC, which SPI channel is it running#' on?#' @param pin_base The virtual GPIO pin number which we should use for the #' fake pins we'll use for measuring analog values.init<-function(setup_type ="wpi", spi_channel =0L, pin_base =100L){invisible(.Call('RpiR_init', PACKAGE ='RpiR', setup_type, spi_channel, pin_base))}#' Read an analog value fromt the Raspberry Pi#' @param chan An integer vector of channel(s) for which we should#' read the analog value.#' @return An integer vector describing the current analog value on the #' specified channel(s).read_analog<-function(chan){.Call('RpiR_read_analog', PACKAGE ='RpiR', chan)}#' Start a Poll#' #' Creates a background C++ thread which will poll the given channel at the#' specified interval, accumulating the values in a buffer until #' \code{\link{read_poll}} is called.#' @param chan The channel number on which to poll.#' @param ms The number of millisecons to wait in between each poll.#' @param buffer_size The size of the buffer into which we should accumulate#' values.start_poll<-function(chan, ms =1000, buffer_size =1024L){invisible(.Call('RpiR_start_poll', PACKAGE ='RpiR', chan, ms, buffer_size))}#' Stop a Current Poll#'#' Stops any active poll on the specified channel, or does nothing if there#' was no poll.stop_poll<-function(chan){invisible(.Call('RpiR_stop_poll', PACKAGE ='RpiR', chan))}#' Reads From a Poll#'#' Read any unread values from an active poll. #'#' If more values have accumulated than the buffer had room for, this function#' will throw a warning and you will receive the most recent data.#' @param chan The channel for which you want the unread values.read_poll<-function(chan){.Call('RpiR_read_poll', PACKAGE ='RpiR', chan)}#' Set the mode of a GPIO pinpin_mode<-function(pin,mode=as.character(c("in","out","pwm","clock"))){invisible(.Call('RpiR_pin_mode', PACKAGE ='RpiR', pin,mode))}#' Pull a Pin Up or Downpin_control<-function(pin,mode=as.character(c("off","down","up"))){invisible(.Call('RpiR_pin_control', PACKAGE ='RpiR', pin,mode))}#' Digital Write to a Pinwrite_digital<-function(pin, signal){invisible(.Call('RpiR_write_digital', PACKAGE ='RpiR', pin, signal))}#' Digital Read from a Pinread_digital<-function(pin){.Call('RpiR_read_digital', PACKAGE ='RpiR', pin)}#' Write PWM to a signalwrite_pwm<-function(pin, value){invisible(.Call('RpiR_write_pwm', PACKAGE ='RpiR', pin, value))}#' Write an Analog Signalwrite_analog<-function(pin, value){invisible(.Call('RpiR_write_analog', PACKAGE ='RpiR', pin, value))}