Recepción de datos de Arduino en R

Compartir:

Para probar la recepción de datos de Arduino en R hemos utilizado los siguientes elementos:

  • Placa Arduino UNO
  • Sensor DHT11
  • Librería Arduinor de R

Adjuntamos el código de Arduino IDE:

include
include

int SENSOR = 1;
//int TEMPERATURA;
int HUMEDAD;

DHT dht(SENSOR, DHT11);

void setup() {
Serial.begin(9600);
dht.begin();
}

void loop() {
// TEMPERATURA = dht.readTemperature();
HUMEDAD = dht.readHumidity();
// Serial.print("Temperatura: ");
// Serial.println(TEMPERATURA);
// Serial.print(" Humedad: ");
Serial.println(HUMEDAD);
delay(1000);
}

Y añadimos el código de R:

##################
#### ARDUINOR ####
##################

rm(list=ls())

# Instalando arduinor

devtools::install_github("r-arduino/arduinor", force = TRUE, dependencies = TRUE)

library(arduinor)
library(twilio)

Establenciendo conexión con Arduino

con <- ar_init("/dev/cu.usbmodem1411", baud = 9600)

repeat{
humedad <- ar_read(con) print(humedad) if(humedad>79){
print("Ha superado el 80% de humedad")
Sys.setenv(TWILIO_SID = "AC2fa873e00247139afba692ef3bb6e481")
Sys.setenv(TWILIO_TOKEN = "709c591898fab7e75375896ec0acb8a5")
tw_send_message(to = "+34633398636", from = "+12562798821", body = "¡El nivel de humedad ambiental ha superado el 80%!")
break
}
}

ar_monitor(con) # Monitor on streaming

ar_plotter(con,"TEMPERATURA") # Plot los 2 valores, con los títulos específicados aquí.

ar_read(con) # Reads a single value

 

Contributors:

Compartir: