Ejemplos de GEcopyDisplayList en C++ (Cpp)

Ejemplo n.º 1

Archivo: grdeviceside.cpp Proyecto: MikhailArkhipov/R-Host-1

            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);
                }
            }

Ejemplo n.º 2

Archivo: devices.c Proyecto: allr/r-instrumented

SEXP devcopy(SEXP args)
{
    checkArity_length;
    GEcopyDisplayList(INTEGER(CAR(args))[0] - 1);
    return R_NilValue;
}