如何从节点js使用rserve-js将参数动态发送到R中的Rserve？

npm install rserve-js

const Rserve = require('rserve-js');

async function connectToRserve() {
  try {
    const connection = await Rserve.connect({ host: 'localhost', port: 6311 });
    console.log('Connected to Rserve');
    return connection;
  } catch (error) {
    console.error('Failed to connect to Rserve:', error);
  }
}

async function sendParametersToR(connection, param1, param2) {
  try {
    // 假设你有一个R函数叫做 my_r_function，它接受两个参数
    const rFunctionCall = `my_r_function(${param1}, ${param2})`;
    
    const result = await connection.evaluate(rFunctionCall);
    console.log('Result from R:', result);
  } catch (error) {
    console.error('Failed to execute R code:', error);
  }
}

const Rserve = require('rserve-js');

async function main() {
  const connection = await connectToRserve();
  if (connection) {
    await sendParametersToR(connection, 10, 'test');
    connection.close(); // 不要忘记关闭连接
  }
}

main();

my_r_function <- function(param1, param2) {
  return(paste("Parameter 1:", param1, "Parameter 2:", param2))
}