R: Función para exportar el gráfico R actualmente activo a Powerpoint/Word/LibreOffice