Contents

require "rbundle/version"
require "yaml"

def with_retries(retries = 3, back_off = 60, args=[],  &block)
  counter = 1
  until counter > retries do
    begin
      block.call(*args)
      break
    rescue Exception => e
      raise e if counter == retries
      counter = counter + 1
      p "Sleeping #{counter * back_off} seconds"
      sleep counter * back_off;
    end
  end
end

class RBundler
  def self.bundle
    install_installer
    self.read_requirements.each {|d| install(d)}
  end

  def self.read_requirements
    dependencies_definitions = "#{Dir.pwd}/dependencies.txt"
    puts "Reading Dependencies to install from #{Dir.pwd}/dependencies.txt"
    YAML.load(File.open(dependencies_definitions))
  end

  def self.command_inspector(exit_code)
    throw 'Installation failed.' if exit_code != 0
  end

  def self.install_installer
    with_retries do
      puts "Installing devtools"
      command = %{
        R --vanilla --slave -e "if (! ('devtools' %in% installed.packages()[,'Package'])) install.packages(pkgs='devtools', repos=c('https://cloud.r-project.org'))"
      }
      puts "Executing #{command}"
      `#{command}`
      `R --slave --vanilla -e "library(devtools)"`
      command_inspector($?.exitstatus)
    end
  end

  def self.install(dependency)
    with_retries(args = [dependency]) do |dependency|
      puts "Installing #{dependency['package']}"
      command = %{
       R --slave --vanilla -e "options(warn=2); library(devtools); if ((!'#{dependency['package']}' %in% installed.packages()[,'Package']) || packageVersion('#{dependency['package']}') < '#{dependency['version']}') install_version('#{dependency['package']}', version='#{dependency['version']}', repos=c('https://cloud.r-project.org'))"
      }
      puts "Executing #{command}"
      `#{command}`
      command_inspector($?.exitstatus)
    end
  end
end

Version data entries

1 entries across 1 versions & 1 rubygems

Version	Path
rbundle-0.2.2	lib/rbundle.rb