RcppでHello, world!

特に意味があるわけではないけれども、こんな感じか*1。

library(inline)
src <- '
  Rcpp::Rcout << "Hello, world" << std::endl;
'
f <- cxxfunction(signature(), src, plugin="Rcpp")
f()

実行結果

> f()
Hello, world
NULL

参考

• Using Rcout for output synchronised with R

*1:Rcpp::Rcoutじゃなくてstd::coutでもイケた…が、std::cout使ってるとCRANにパッケージをアップできんらしい。あとRcpp::Rcoutだとシンクロも正しくされるって記述があるんで、出力がバッファにため込まれず即吐いてくれるっぽい。詳しくは参考LINK参照の事