Rcpp中的Boost :: asio：有可能吗？

Question

我是Rcpp的新手，我想知道是否有可能在Rcpp内移动以下代码：

#include <iostream>
#include "SimpleSerial.h"
using namespace std;`
using namespace boost;
int main(int argc, char* argv[])
{
try {

    SimpleSerial serial("COM5",9600);

    serial.writeString("Hello world\r\n");

    cout<<"Received : "<<serial.readLine()<<" : end"<<endl;

} catch(boost::system::system_error& e)
{
    cout<<"Error: "<<e.what()<<endl;
    return 1;
}

代码来自boost的示例，并在MinGW64下使用以下命令成功编译：

g++ -O2 -c main.cpp -D_WIN32_WINNT=0x0501
g++ -o simple.exe main.o -s -lwsock32 -lws2_32 -lboost_system

我的目的是创建一个函数，将两个字符串发送和接收到R内的COM端口。任何建议从哪里开始Rcpp？感谢。