R用のflymake

flycheck_R.rb

#! /opt/local/bin/ruby
# -*- coding: utf-8 -*-
require 'open3'

error = ""
Open3.popen3("R --vanilla -q -e \"parse(file=\\\"#{ARGV[0]}\\\")\""){|stdin, stdout, stderr|
  error = stderr.read.to_s
}

error = error.split("\n")

message = ""
error.each{|e|
  if e =~ /(^\s{4})(.*?)(場所\s$)/
    message = $2
  end
  if e =~ /(\d+)\:(.*)/
    STDERR.puts "#{ARGV[0]}:#{$1}: #{message}"
  end
}