我正在尝试从列表中提取元素,并使用Rcpp对其值做一些事情。但是我不能做作业。
这基本上是我想用R代码实现的目标:
mylist = list(steps = list(`1` = list(a = 7, b = "abc"),
`2` = list(a = 3),
`3` = list(a = 5, b = NULL)))
# This is the desired behavior that I can program in R
step_name = "1"
b = ifelse(is.null(mylist$steps[[step_name]][["b"]]),
"", mylist$steps[[step_name]][["b"]])
# Do something with the value of b
以下代码无法分配给b
。根据需要提取a
的值。我不知道我在这里想念什么。
library(Rcpp)
cppFunction('int foo(Rcpp::List x, std::string step_name) {
Rcpp::List steps = x("steps");
Rcpp::List step = steps(step_name);
int a = step("a");
//// Not declaring b causes "not declared in this scope" error
//// so I initialize it with a random value.
std::string b = "random";
if (step.containsElementNamed("b")){
Rcout << "b is in List!" << "\\n";
if (!Rf_isNull(step("b"))) {
Rcout << "b is not NULL!" << "\\n";
if (TYPEOF(step("b")) == STRSXP)
Rcout << "b is character!" << "\\n";
std::string b = step("b");
} else {
Rcout << "b is NULL!" << "\\n";
std::string b = "efg";
}
} else {
Rcout << "b is not in List!" << "\\n";
std::string b = "xyz";
}
Rcout << "The Value of b is " << b << ".\\n";
if (b == "abc") {
//// Do something with the value of b
}
return a;
}')
foo(mylist, "1")
## b is in List!
## b is not NULL!
## b is character!
## The Value of b is random.
## [1] 7
foo(mylist, "2")
## b is not in List!
## The Value of b is random.
## [1] 3
foo(mylist, "3")
## b is in List!
## b is NULL!
## The Value of b is random.
## [1] 5
这似乎主要是范围界定问题和变量类型问题。我相信std::string b
语句中的if then
声明是本地的。那里的任何更改都不会持续。
然后,注释中的错误正在尝试为RHS std::string
分配RHS Rcpp:Vector
。虽然我确定有更好的方法可以进行转换和/或简化,但是下面的解决方案只声明了Rcpp::CharacterVector b
。
library(Rcpp)
cppFunction('int foo(Rcpp::List x, std::string step_name) {
Rcpp::List steps = x("steps");
Rcpp::List step = steps(step_name);
int a = step("a");
//// Not declaring b causes "not declared in this scope" error
//// so I initialize it with a random value.
CharacterVector b; #############
if (step.containsElementNamed("b")){
Rcout << "b is in List!" << "\\n";
if (!Rf_isNull(step("b"))) {
Rcout << "b is not NULL!" << "\\n";
if (TYPEOF(step("b")) == STRSXP)
Rcout << "b is character!" << "\\n";
b = step("b");
} else {
Rcout << "b is NULL!" << "\\n";
}
} else {
Rcout << "b is not in List!" << "\\n";
}
Rcout << "The size of b is " << b.size() << ".\\n"; #########
if (b.size() > 0 && b[0] == "abc") { ################
Rcout << "Do something with b.\\n";
//// Do something with the value of b
}
return a;
}')
mylist = list(steps = list(`1` = list(a = 7, b = "abc"),
`2` = list(a = 3),
`3` = list(a = 5, b = NULL)))
foo(mylist, "1")
# b is in List!
# b is not NULL!
# b is character!
# The size of b is 1.
# Do something with b.
# [1] 7
foo(mylist, "2")
# b is not in List!
# The size of b is 0.
# [1] 3
foo(mylist, "3")
# b is in List!
# b is NULL!
# The size of b is 0.
# [1] 5