shorten sleep time in flush

Author: haozhu233

R/ar_stream.R

@@ -10,5 +10,7 @@
 #' 
 #' @export
 ar_stream <- function(fd, eolchar = "\n", buf_max = 256, timeout = 5000) {
+  ar_flush(fd)
+  ar_read(fd, eolchar, buf_max, timeout)
   repeat(cat(ar_read(fd, eolchar, buf_max, timeout)))
 }

README.md

@@ -3,7 +3,7 @@
 
 As one important piece of the fast growing ["IoT"](https://en.wikipedia.org/wiki/Internet_of_things) movement, arduino chips enable scientists and hobbyists to build customizable digital devices at will at a very inexpensive price. For the scientific community, it opens up a new way to collect various formats of data, such as accelerometer, gyroscope, thermometer and IR. Data collected by arduino can be sent to computers both wirelessly (through the WiFi kit on some recent devices such as ESP8266) or wirely through serial ports. This package handles reading arduino data from serial port into R.
 
-Current approaches in R, including the `serial` package or [this post](https://www.r-bloggers.com/connecting-the-real-world-to-r-with-an-arduino/), both have dependency requirements. This package binds the light-weight [arduino-serial](https://github.com/todbot/arduino-serial) C library to R and is both dependency-free and fast.
+Current approaches in R, including the `serial` package or [this post](https://www.r-bloggers.com/connecting-the-real-world-to-r-with-an-arduino/), both have dependency requirements. This package binds the light-weight [arduino-serial](https://github.com/todbot/arduino-serial) C library by Tod E. Kurt to R using Rcpp. It is both dependency-free and fast.
 
 # Installation
 ```r
@@ -15,7 +15,10 @@ devtools::install("hebrewseniorlife/arduino")
 library(arduino)
 
 # Use the baud rate you set in `Serial.begin();` in arduino
+# On Mac
 con <- ar_init("/dev/cu.SLAB_USBtoUART", baud = 57600)  
+# On Windows
+con <- ar_init("COM1", baud = 57600)  
 
 # Start to stream arduino data into console. Press STOP to stop.
 ar_stream(con)

src/arduino-serial-lib.cpp

@@ -253,6 +253,6 @@ Rcpp::String ar_read(int fd, char eolchar = '\n',
 // [[Rcpp::export]]
 int ar_flush(int fd)
 {
-  sleep(2); //required to make flush work, for some reason
+  usleep(10000); //required to make flush work, for some reason
   return tcflush(fd, TCIOFLUSH);
 }