build: simple R package with swig wrapper for C++

Author: danieledler

.gitignore

@@ -0,0 +1,3 @@
+*.o
+*.so
+.Rhistory

DESCRIPTION

@@ -0,0 +1,21 @@
+Package: swigr
+Title: What the Package Does (One Line, Title Case)
+Version: 0.0.0.9000
+Authors@R: 
+    person(given = "First",
+           family = "Last",
+           role = c("aut", "cre"),
+           email = "first.last@example.com",
+           comment = c(ORCID = "YOUR-ORCID-ID"))
+Description: What the package does (one paragraph).
+License: What license it uses
+Encoding: UTF-8
+LazyData: true
+RoxygenNote: 7.1.0
+Collate: 
+    'swigr.R'
+    'package.R'
+Suggests: 
+    knitr,
+    rmarkdown
+VignetteBuilder: knitr

Makefile

@@ -0,0 +1,24 @@
+
+build: src/Shape_wrap.cpp
+	R CMD SHLIB -o src/Shape.so src/swigr_wrap.cpp src/Shape.cpp
+
+src/Shape_wrap.cpp:
+	swig -c++ -r -o src/swigr_wrap.cpp src/Shape.i
+	@mv src/swigr.R R/
+
+.PHONY: create document install test-R clean
+create:
+	cd .. && R --no-save -e 'devtools::create("swigr")'
+
+document:
+	R --no-save -e 'library(devtools); library(roxygen2); document()'
+
+install:
+	cd .. && R --no-save -e 'devtools::install("swigr")'
+
+test-R:
+	pwd
+	cd $(R_PACKAGE) && R --no-save -e 'library(devtools); library(roxygen2); load_all(); test()'
+
+clean:
+	$(RM) src/*.so src/*.o src/*.R src/*_wrap.cpp

NAMESPACE

@@ -0,0 +1,6 @@
+# Generated by roxygen2: do not edit by hand
+
+export(test_example)
+export(test_r)
+exportPattern("^[[:alpha:]]+")
+useDynLib(swigr, .registration=TRUE)

R/package.R

@@ -0,0 +1,52 @@
+#' swigr
+#' 
+#' R package to test SWIG
+#' 
+#' @docType package
+#' @author you
+#' @useDynLib swigr, .registration=TRUE
+#' @exportPattern "^[[:alpha:]]+"
+#' @name swigr
+#' @include swigr.R
+NULL
+
+
+#' @export
+test_r <- function() {
+  print("test_r works!")
+  42
+}
+
+#' Test example shapes
+#' @param r Circle radius
+#' @export
+test_example <- function(r=10) {
+  print("Creating some objects:")
+  circle <- Circle(r)
+  print ("    Created circle")
+  square <- Square(20)
+  print ("    Created square")
+
+  # ----- Access a static member -----
+
+  sprintf("A total of %d shapes were created", Shape_nshapes())
+
+  # ----- Member data access -----
+
+  # Set the location of the object
+
+  circle$x <- 20
+  circle$y <- 30
+
+  square$x <- -10
+  square$y <- 5
+
+  print("Here is their current position:")
+  sprintf("    Circle = (%f, %f)", circle$x,circle$y)
+  sprintf("    Square = (%f, %f)", square$x,square$y)
+
+  # ----- Call some methods -----
+
+  circle$move(10, 20)
+  sprintf("Cicle moved to (%f, %f)", circle$x,circle$y)
+}