从 R 控制台获取用户输入:Rcpp 和 std::cin

Getting user input from R console: Rcpp and std::cin

本文关键字：Rcpp std cin 输入 控制台 获取 用户      更新时间：2023-10-16

我一直在做一些练习来学习 c++，并决定将它们集成到 R 中，因为最终我想为 R 函数编写 c++ 后端。 我找不到从 R 控制台检索用户输入的解决方案。虽然有用于打印和返回输出的 Rcpp：：Rcout，但 std：：cin 似乎没有类似的功能。

#include <Rcpp.h>
// [[Rcpp::export]]
Rcpp::String cola() {
Rcpp::Rcout << "Pick a drink:" << std::endl << "1 - Espresso" << std::endl << "2 - Americano" << std::endl << "3 - Latte" << std::endl << "4 - Cafe dopio" << 
std::endl << "5 - Tea" << std::endl;
int drink;
std::cin >> drink;
std::string out;
switch(drink) {
case 1: out = "Here is your Espresso";
case 2: out = "Here is your Americano";
case 3: out = "Here is your Latte";
case 4: out = "Here is your Cafe dopio";
case 5: out = "Here is your Tea";
case 0: out = "Error. Choice was not valid, here is your money back.";
break;
default:
if(drink > 5) {out = "Error. Choice was not valid, here is your money back.";}
}
return out;
}

即使没有 Rcpp 的混合，std::cin也不适合交互式输入。

若要将 R 控制台与 Rcpp 配合使用，需要使用 R 函数(特别是readline(而不是C++功能。幸运的是，您可以将 R 对象拉取到C++代码中：

Environment base = Environment("package:base");
Function readline = base["readline"];
Function as_numeric = base["as.numeric"];

然后你可以使用它们：

int drink = as<int>(as_numeric(readline("> ")));

请注意，您的代码中还有另一个错误：您的案例都是失败的，因为您错过了break;此外，没有理由进行case 0，并且在默认情况下根本没有理由if。

哦，最后，不要使用std::endl，除非你真的需要刷新输出(你只需要在这里这样做一次，最后(;改用'n'。

相关文章：