void ide_device::sync_file_device() { try { rhost::util::errors_to_exceptions([&] { int file_device_num = Rf_ndevNumber(_file_device); int ide_device_num = Rf_ndevNumber(device_desc); Rf_selectDevice(file_device_num); GEcopyDisplayList(ide_device_num); Rf_selectDevice(ide_device_num); }); } catch (rhost::util::r_error&) { auto path = save_empty(); send(path); } }
SEXP devcopy(SEXP args) { checkArity_length; GEcopyDisplayList(INTEGER(CAR(args))[0] - 1); return R_NilValue; }