在Rcpp中用多个索引范围子集NumericVector

Question

我希望使用多个索引范围在NumericVector中将Rcpp子集化。在R中，我将通过以下方式进行操作：

b <- as.vector(seq(1:100))
c <- b[c(1:3,5:7,9:14)]

在Rcpp中，我得到了以下内容以从一组范围值中返回值：

cppFunction('NumericVector sub_vec(NumericVector my_vec, int low, int high) {
  return my_vec[my_vec > low & my_vec < high];
}')
sub_vec(b,1,3)

如何修改此功能以包含多个范围，如以上R示例中所示？

任何帮助，不胜感激。