| 817 | } |
| 818 | |
| 819 | EXPORT_FUNCTION CatBoostSerializeModel_R(SEXP handleParam) { |
| 820 | SEXP result = NULL; |
| 821 | R_API_BEGIN(); |
| 822 | TFullModelHandle modelHandle = static_cast<TFullModelHandle>(R_ExternalPtrAddr(handleParam)); |
| 823 | const TString raw = SerializeModel(*modelHandle); |
| 824 | result = PROTECT(allocVector(RAWSXP, raw.size())); |
| 825 | MemCopy(RAW(result), (const unsigned char*)(raw.data()), raw.size()); |
| 826 | R_API_END(); |
| 827 | UNPROTECT(1); |
| 828 | return result; |
| 829 | } |
| 830 | |
| 831 | EXPORT_FUNCTION CatBoostDeserializeModel_R(SEXP rawParam) { |
| 832 | SEXP result = NULL; |
nothing calls this directly
no test coverage detected