Add reference and library example (#150)

* RLangMode: Add reference and library example

Signed-off-by: Ce Gao <[email protected]>

* reference: Add importLibrary doc

Signed-off-by: Ce Gao <[email protected]>

* reference: Fix coding style issues

Signed-off-by: Ce Gao <[email protected]>

Author: gaocegege

examples/Libraries/Basics/Basics.rpde

@@ -0,0 +1,23 @@
+settings <- function() {
+    importLibrary("peasycam")
+    size(200, 200, P3D)
+}
+
+setup <- function() {
+    cam = PeasyCam$new(processing, 100)
+    cam$setMinimumDistance(50)
+    cam$setMaximumDistance(500)
+}
+
+draw <- function() {
+    rotateX(-0.5)
+    rotateY(-0.5)
+    background(0)
+    fill(255, 0, 0)
+    box(30)
+    pushMatrix()
+    translate(0, 0, 20)
+    fill(0, 0, 255)
+    box(5)
+    popMatrix()
+}

examples/reference/importLibrary/.property.yml

@@ -0,0 +1,9 @@
+category: Library
+subcategory: 
+description: "
+Import Processing libraries.
+"
+syntax: "	importLibrary(<c>library</c>)"
+parameters:
+  - label: 'library'
+    description: "The name of the library."

examples/reference/importLibrary/importLibrary0/importLibrary0.rpde

@@ -0,0 +1,23 @@
+settings <- function() {
+    importLibrary("peasycam")
+    size(200, 200, P3D)
+}
+
+setup <- function() {
+    cam = PeasyCam$new(processing, 100)
+    cam$setMinimumDistance(50)
+    cam$setMaximumDistance(500)
+}
+
+draw <- function() {
+    rotateX(-0.5)
+    rotateY(-0.5)
+    background(0)
+    fill(255, 0, 0)
+    box(30)
+    pushMatrix()
+    translate(0, 0, 20)
+    fill(0, 0, 255)
+    box(5)
+    popMatrix()
+}

src/rprocessing/mode/RLangMode.java

@@ -100,7 +100,8 @@ public String[] getExtensions() {
    */
   @Override
   public File[] getExampleCategoryFolders() {
-    return new File[] {new File(examplesFolder, "Basics")};
+    return new File[] {new File(examplesFolder, "Basics"), new File(examplesFolder, "Libraries"),
+        new File(examplesFolder, "reference")};
   }
 
   /**