| 1194 | } |
| 1195 | |
| 1196 | bool GetBoolOption(const std::string& name, bool default_) { |
| 1197 | SEXP getOption = Rf_install("getOption"); |
| 1198 | cpp11::sexp call = Rf_lang2(getOption, Rf_mkString(name.c_str())); |
| 1199 | cpp11::sexp res = Rf_eval(call, R_BaseEnv); |
| 1200 | if (TYPEOF(res) == LGLSXP) { |
| 1201 | return LOGICAL(res)[0] == TRUE; |
| 1202 | } else { |
| 1203 | return default_; |
| 1204 | } |
| 1205 | } |
| 1206 | |
| 1207 | std::shared_ptr<Converter> Converter::Make( |
| 1208 | const std::shared_ptr<ChunkedArray>& chunked_array) { |
no outgoing calls
no test coverage detected