| 1216 | } |
| 1217 | |
| 1218 | bool GetBoolOption(const std::string& name, bool default_) { |
| 1219 | SEXP getOption = Rf_install("getOption"); |
| 1220 | cpp11::sexp call = Rf_lang2(getOption, Rf_mkString(name.c_str())); |
| 1221 | cpp11::sexp res = Rf_eval(call, R_BaseEnv); |
| 1222 | if (TYPEOF(res) == LGLSXP) { |
| 1223 | return LOGICAL(res)[0] == TRUE; |
| 1224 | } else { |
| 1225 | return default_; |
| 1226 | } |
| 1227 | } |
| 1228 | |
| 1229 | std::shared_ptr<Converter> Converter::Make( |
| 1230 | const std::shared_ptr<ChunkedArray>& chunked_array) { |
no outgoing calls
no test coverage detected