SEXP R_DOCX_Device(SEXP filename , SEXP width, SEXP height, SEXP offx, SEXP offy, SEXP pointsize, SEXP fontfamily, SEXP env) { double* w = REAL(width); double* h = REAL(height); double* x = REAL(offx); double* y = REAL(offy); int nx = length(width); double ps = asReal(pointsize); BEGIN_SUSPEND_INTERRUPTS; GE_DOCXDevice(CHAR(STRING_ELT(filename, 0)), w, h, x, y, ps, nx, CHAR(STRING_ELT(fontfamily, 0)), env); END_SUSPEND_INTERRUPTS; return R_NilValue; }
SEXP R_DOCX_Device(SEXP filename , SEXP width, SEXP height, SEXP offx, SEXP offy, SEXP pointsize, SEXP fontfamily, SEXP start_id, SEXP is_editable ) { double* w = REAL(width); double* h = REAL(height); double* x = REAL(offx); double* y = REAL(offy); int nx = length(width); double ps = asReal(pointsize); int id_init_value = INTEGER(start_id)[0]; int editable = INTEGER(is_editable)[0]; BEGIN_SUSPEND_INTERRUPTS; GE_DOCXDevice(CHAR(STRING_ELT(filename, 0)) , w, h, x, y, ps, nx, CHAR(STRING_ELT(fontfamily, 0)) , id_init_value, editable ); END_SUSPEND_INTERRUPTS; return R_NilValue; }