knitr-ruby 0.0.2

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 15629ec29dc2e3bcf286cb15f3f322b5d97e43c0
+  data.tar.gz: 9161c1f351e318d2ac388b914e74b8a2992ea0d7
+SHA512:
+  metadata.gz: 6c090ba7bde986d22bf656d5d9afc923e22ba7a47db7e91ce79c1735b86fba70d45ea9a9b7308ae3e7bd9b4327e9f2d81445dc8221e9ada5e498781a28f1a921
+  data.tar.gz: a04b9e056073ef4e1656d2347f6f161cbcfe73ff5edde41867a65464a35c5d06c51f8b3f6c60b1cfa95e093c9981d4f335521b4d5f166a09809ff929718efca7

data/lib/knitr-ruby/knitr.rb

@@ -0,0 +1,25 @@
+require 'open3'
+require 'ostruct'
+
+module KnitrRuby
+  class Knitr < OpenStruct
+
+    def knit(content)
+      dir = File.expand_path File.dirname(__FILE__)
+      command = "./knitrscript.R --args #{options}"
+      Open3::popen3(command, chdir: dir) do |stdin, stdout, stderr, wait_thr|
+        stdin.puts content
+        stdin.close
+
+        raise StandardError, "Error knitting: #{stderr.read}" if wait_thr.value.exitstatus > 0
+        content = stdout.read
+      end
+    end
+
+    def options
+      opts = chunk_options || {}
+      opts.map {|k,v| "#{k}=#{v}" }.join(" ")
+    end
+
+  end
+end

data/lib/knitr-ruby/knitrscript.R

@@ -0,0 +1,76 @@
+#!/usr/bin/Rscript
+library("knitr")
+
+## process the command line arguments -
+##  - args are separate strings containing each arg=value pair
+args <- commandArgs(TRUE)[-1]        ## grab arguments
+
+## Example arguments arranged as this character vector
+## args <- c("root.dir=", "fig.show=hold", "fig.path=../docs-gh-pages/figures/",
+##           "fig.width=10", "fig.height=7", "dev=svg", "warning=false")
+
+## writeLines("args after capture")
+## writeLines("<pre>")
+## print(args)
+## writeLines("</pre>")
+
+## Handle the arguments
+spl <- strsplit(args, "=")       ## split each arg=val pair into arg name & value
+nams <- sapply(spl, `[`, 1)      ## extract argument names
+vals <- sapply(spl, `[`, 2)      ## extract argument values
+ind <- grepl("[0-9]+", vals)     ## index the numeric values
+VALS <- as.list(vals)
+VALS[ind] <- as.numeric(vals[ind])  ## convert numeric strings to numeric values
+## handle logical values
+logi <- vals %in% c("false", "true", "FALSE", "TRUE")
+if (any(logi)) {
+    VALS[logi] <- as.logical(vals[logi])
+}
+## Missing values for argument pairs like `"root.dir="` some through
+## strsplit() as NA, so handle
+nas <- is.na(vals)
+VALS[nas] <- list(NULL)
+## remaining must be characters
+take <- !(ind | logi | nas) ## select argument values not numeric or logicals
+## add `' '` around string values
+VALS[take] <- paste("'", vals[take], "'", sep = "")
+
+## Other handling
+lose <- which(nams == "root.dir")   ## temp: drop the root.dir argument
+
+## writeLines("Argument names and values")
+## writeLines("<pre>")
+## print(args)
+## print(nams)
+## print(vals)
+## writeLines("</pre>")
+
+## process argument value pairs back into a single string with R code...
+call <- paste("list(", paste(nams[-lose], VALS[-lose], sep = "=",
+                             collapse = ", "), ")", sep = "")
+## ... which we then parse and evaluate to create a list containing named components for each
+## argument name and the object in each component is the respective argument value
+## writeLines("<pre>")
+## print(call)
+## writeLines("</pre>")
+
+args <- eval(parse(text = call))
+
+## writeLines("<pre>")
+## print(args)
+## writeLines("</pre>")
+
+tmp <- do.call(opts_chunk$set, args) ## use this list as arguments to chunk options function
+## writeLines("<pre>")
+## print(opts_chunk$get())
+## writeLines("</pre>")
+
+## hardcoded knitr package options - until we work out how best to have both package &
+## chunk options supplied via command line argument
+opts_knit$set(base.url="http://ropensci.github.io/docs/", base.dir=".", root.dir=NULL, self.contained=FALSE, verbose=FALSE)
+
+## knit the document being processed; takes inpu from stdin and outputs to stdout
+tmp <- knit(text = readLines(file("stdin")), output=stdout(), quiet=TRUE)
+
+## note that objects `tmp` are just to stop objects returned by function that doesn't need
+## to be assigned (do.call, knitr) spitting NULLs into the stdout stream.

data/lib/knitr-ruby/version.rb

@@ -0,0 +1,3 @@
+module KnitrRuby
+  VERSION = "0.0.2"
+end

data/lib/knitr-ruby.rb

@@ -0,0 +1 @@
+require 'knitr-ruby/knitr'

metadata

@@ -0,0 +1,78 @@
+--- !ruby/object:Gem::Specification
+name: knitr-ruby
+version: !ruby/object:Gem::Version
+  version: 0.0.2
+platform: ruby
+authors:
+- Martin Fenner
+- Gavin Simpson
+- Carl Boettiger
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-04-09 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.6'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.6'
+description: A Ruby wrapper for the knitr R package which processes markdown with
+  embedded code.
+email: mf@martinfenner.org
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/knitr-ruby.rb
+- lib/knitr-ruby/knitr.rb
+- lib/knitr-ruby/knitrscript.R
+- lib/knitr-ruby/version.rb
+homepage: https://github.com/ropensci/knitr-ruby
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 1.3.6
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 4
+summary: Ruby wrapper for knitr R package
+test_files: []