ic

Author: haozhu233

Diff for: .DS_Store

@@ -0,0 +1,2 @@
+^.*\.Rproj$
+^\.Rproj\.user$

Diff for: .Rbuildignore

@@ -0,0 +1,7 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
+src/*.o
+src/*.so
+src/*.dll

Diff for: .gitignore

@@ -0,0 +1,12 @@
+Package: arduinor
+Type: Package
+Title: What the Package Does in One 'Title Case' Line
+Version: 1.0
+Date: 2018-02-11
+Author: Your Name
+Maintainer: Your Name <[email protected]>
+Description: One paragraph description of what the package does as one or
+        more full sentences.
+License: GPL (>= 2)
+Imports: Rcpp (>= 0.12.15)
+LinkingTo: Rcpp

Diff for: DESCRIPTION

@@ -0,0 +1,3 @@
+useDynLib(arduinor, .registration=TRUE)
+exportPattern("^[[:alpha:]]+")
+importFrom(Rcpp, evalCpp)

Diff for: NAMESPACE

@@ -0,0 +1,7 @@
+# Generated by using Rcpp::compileAttributes() -> do not edit by hand
+# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
+
+rcpp_hello_world <- function() {
+    .Call(`_arduinor_rcpp_hello_world`)
+}
+

Diff for: R/RcppExports.R

@@ -0,0 +1,9 @@
+* Edit the help file skeletons in 'man', possibly combining help files for
+  multiple functions.
+* Edit the exports in 'NAMESPACE', and add necessary imports.
+* Put any C/C++/Fortran code in 'src'.
+* If you have compiled code, add a useDynLib() directive to 'NAMESPACE'.
+* Run R CMD build to build the package tarball.
+* Run R CMD check to check the package tarball.
+
+Read "Writing R Extensions" for more information.

Diff for: Read-and-delete-me

@@ -0,0 +1,17 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source

Diff for: arduinor.Rproj

@@ -0,0 +1,34 @@
+\name{arduinor-package}
+\alias{arduinor-package}
+\alias{arduinor}
+\docType{package}
+\title{
+  A short title line describing what the package does
+}
+\description{
+  A more detailed description of what the package does. A length
+  of about one to five lines is recommended.
+}
+\details{
+  This section should provide a more detailed overview of how to use the
+  package, including the most important functions.
+}
+\author{
+Your Name, email optional.
+
+Maintainer: Your Name <your@email.com>
+}
+\references{
+  This optional section can contain literature or other references for
+  background information.
+}
+\keyword{ package }
+\seealso{
+  Optional links to other man pages
+}
+\examples{
+  \dontrun{
+     ## Optional simple examples of the most important functions
+     ## These can be in \dontrun{} and \donttest{} blocks.   
+  }
+}

Diff for: man/arduinor-package.Rd

@@ -0,0 +1,17 @@
+\name{rcpp_hello_world}
+\alias{rcpp_hello_world}
+\docType{package}
+\title{
+Simple function using Rcpp
+}
+\description{
+Simple function using Rcpp
+}
+\usage{
+rcpp_hello_world()	
+}
+\examples{
+\dontrun{
+rcpp_hello_world()
+}
+}

Diff for: man/rcpp_hello_world.Rd

@@ -0,0 +1,27 @@
+// Generated by using Rcpp::compileAttributes() -> do not edit by hand
+// Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
+
+#include <Rcpp.h>
+
+using namespace Rcpp;
+
+// rcpp_hello_world
+List rcpp_hello_world();
+RcppExport SEXP _arduinor_rcpp_hello_world() {
+BEGIN_RCPP
+    Rcpp::RObject rcpp_result_gen;
+    Rcpp::RNGScope rcpp_rngScope_gen;
+    rcpp_result_gen = Rcpp::wrap(rcpp_hello_world());
+    return rcpp_result_gen;
+END_RCPP
+}
+
+static const R_CallMethodDef CallEntries[] = {
+    {"_arduinor_rcpp_hello_world", (DL_FUNC) &_arduinor_rcpp_hello_world, 0},
+    {NULL, NULL, 0}
+};
+
+RcppExport void R_init_arduinor(DllInfo *dll) {
+    R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
+    R_useDynamicSymbols(dll, FALSE);
+}

Diff for: src/.DS_Store

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2014 Tod E. Kurt
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

Diff for: src/RcppExports.cpp

@@ -0,0 +1,183 @@
+//
+// arduino-serial-lib -- simple library for reading/writing serial ports
+//
+// 2006-2013, Tod E. Kurt, http://todbot.com/blog/
+// 
+// Modified by Hao Zhu, 2018
+//
+
+#include <Rcpp.h>
+using namespace Rcpp;
+
+#include "arduino-serial-lib.h"
+
+#include <stdio.h>    // Standard input/output definitions 
+#include <unistd.h>   // UNIX standard function definitions 
+#include <fcntl.h>    // File control definitions 
+#include <errno.h>    // Error number definitions 
+#include <termios.h>  // POSIX terminal control definitions 
+#include <string.h>   // String function definitions 
+#include <sys/ioctl.h>
+#include <vector>
+
+// uncomment this to debug reads
+//#define SERIALPORTDEBUG 
+
+// takes the string name of the serial port (e.g. "/dev/tty.usbserial","COM1")
+// and a baud rate (bps) and connects to that port at that speed and 8N1.
+// opens the port in fully raw mode so you can send binary data.
+// returns valid fd, or -1 on error
+int serialport_init(const char* serialport, int baud)
+{
+  struct termios toptions;
+  int fd;
+  
+  //fd = open(serialport, O_RDWR | O_NOCTTY | O_NDELAY);
+  fd = open(serialport, O_RDWR | O_NONBLOCK );
+  
+  if (fd == -1)  {
+    perror("serialport_init: Unable to open port ");
+    return -1;
+  }
+  
+  //int iflags = TIOCM_DTR;
+  //ioctl(fd, TIOCMBIS, &iflags);     // turn on DTR
+  //ioctl(fd, TIOCMBIC, &iflags);    // turn off DTR
+  
+  if (tcgetattr(fd, &toptions) < 0) {
+    perror("serialport_init: Couldn't get term attributes");
+    return -1;
+  }
+  speed_t brate = baud; // let you override switch below if needed
+  switch(baud) {
+  case 4800:   brate=B4800;   break;
+  case 9600:   brate=B9600;   break;
+#ifdef B14400
+  case 14400:  brate=B14400;  break;
+#endif
+  case 19200:  brate=B19200;  break;
+#ifdef B28800
+  case 28800:  brate=B28800;  break;
+#endif
+  case 38400:  brate=B38400;  break;
+  case 57600:  brate=B57600;  break;
+  case 115200: brate=B115200; break;
+  }
+  cfsetispeed(&toptions, brate);
+  cfsetospeed(&toptions, brate);
+  
+  // 8N1
+  toptions.c_cflag &= ~PARENB;
+  toptions.c_cflag &= ~CSTOPB;
+  toptions.c_cflag &= ~CSIZE;
+  toptions.c_cflag |= CS8;
+  // no flow control
+  toptions.c_cflag &= ~CRTSCTS;
+  
+  //toptions.c_cflag &= ~HUPCL; // disable hang-up-on-close to avoid reset
+  
+  toptions.c_cflag |= CREAD | CLOCAL;  // turn on READ & ignore ctrl lines
+  toptions.c_iflag &= ~(IXON | IXOFF | IXANY); // turn off s/w flow ctrl
+  
+  toptions.c_lflag &= ~(ICANON | ECHO | ECHOE | ISIG); // make raw
+  toptions.c_oflag &= ~OPOST; // make raw
+  
+  // see: http://unixwiz.net/techtips/termios-vmin-vtime.html
+  toptions.c_cc[VMIN]  = 0;
+  toptions.c_cc[VTIME] = 0;
+  //toptions.c_cc[VTIME] = 20;
+  
+  tcsetattr(fd, TCSANOW, &toptions);
+  if( tcsetattr(fd, TCSAFLUSH, &toptions) < 0) {
+    perror("init_serialport: Couldn't set term attributes");
+    return -1;
+  }
+  
+  return fd;
+}
+
+//
+int serialport_close( int fd )
+{
+  return close( fd );
+}
+
+//
+int serialport_writebyte( int fd, uint8_t b)
+{
+  int n = write(fd,&b,1);
+  if( n!=1)
+    return -1;
+  return 0;
+}
+
+//
+int serialport_write(int fd, const char* str)
+{
+  int len = strlen(str);
+  int n = write(fd, str, len);
+  if( n!=len ) {
+    perror("serialport_write: couldn't write whole string\n");
+    return -1;
+  }
+  return 0;
+}
+
+//
+int serialport_read_until(int fd, char* buf, char until, int buf_max, int timeout)
+{
+  char b[1];  // read expects an array, so we give it a 1-byte array
+  int i=0;
+  do { 
+    int n = read(fd, b, 1);  // read a char at a time
+    if( n==-1) return -1;    // couldn't read
+    if( n==0 ) {
+      usleep( 1 * 1000 );  // wait 1 msec try again
+      timeout--;
+      if( timeout==0 ) return -2;
+      continue;
+    }
+#ifdef SERIALPORTDEBUG  
+    printf("serialport_read_until: i=%d, n=%d b='%c'\n",i,n,b[0]); // debug
+#endif
+    buf[i] = b[0]; 
+    i++;
+  } while( b[0] != until && i < buf_max && timeout>0 );
+  
+  buf[i] = 0;  // null terminate the string
+  return 0;
+}
+
+//
+int serialport_flush(int fd)
+{
+  sleep(2); //required to make flush work, for some reason
+  return tcflush(fd, TCIOFLUSH);
+}
+
+
+// =====================================
+// [[Rcpp::export]]
+Rcpp::StringVector arduino_read(const char* serialport, int baudrate = 9600, 
+                                int times = 10, char eolchar = '\n', 
+                                int timeout = 5000, const int buf_max = 256)
+{
+  
+  int fd;
+  char buf[buf_max];
+  std::vector<std::string> out(times);
+  
+  fd = serialport_init(serialport, baudrate);
+  memset(buf,0,buf_max);  //
+  serialport_read_until(fd, buf, eolchar, buf_max, timeout);
+  for (int i=0; i<times; ++i) {
+    serialport_read_until(fd, buf, eolchar, buf_max, timeout);
+    out[i] = buf;
+    memset(&buf[0], 0, sizeof(buf));
+  }
+  
+  serialport_close(fd);
+  Rcpp::StringVector out2(times);
+  out2 = out;
+  return out2;
+}

Diff for: src/arduino-serial/LICENSE

@@ -0,0 +1,21 @@
+//
+// arduino-serial-lib -- simple library for reading/writing serial ports
+//
+// 2006-2013, Tod E. Kurt, http://todbot.com/blog/
+//
+
+
+#ifndef __ARDUINO_SERIAL_LIB_H__
+#define __ARDUINO_SERIAL_LIB_H__
+
+#include <stdint.h>   // Standard types 
+
+int serialport_init(const char* serialport, int baud);
+int serialport_close(int fd);
+int serialport_writebyte( int fd, uint8_t b);
+int serialport_write(int fd, const char* str);
+int serialport_read_until(int fd, char* buf, char until, int buf_max,int timeout);
+int serialport_flush(int fd);
+
+#endif
+