<font size=3 face="sans-serif">Hola de nuevo a todos:</font>
<br>
<br><font size=3 face="sans-serif">Soy José Luis, Miguel Ángel ;-)</font>
<br>
<br>
<br><font size=3 face="sans-serif">En las tres opciones que me habéis proporcionado
tanto tu mismo como Carlos, las barras de progreso se aplican a procesos
iterativos bien sean bucles o bien funciones tipo apply.</font>
<br>
<br>
<br><font size=3 face="sans-serif">En mi caso tanto la importación de la
Excel como la exportación al MSSQL se hacen en una sola instrucción sin
utilizar ni bucles ni funciones tipo apply.Aunque supongo que internamente
RODBC leerá/escribirá los datos de forma iterativa en ambas instrucciones
la subida/bajada de datos en R se hace "del tirón".</font>
<br>
<br><font size=3 face="sans-serif">Es decir la primera barra de progreso
debería mostrar el progreso del numero  de registros leídos hasta
ese momento vs el numero total de registros en la instruccion:</font>
<br><font size=3>XLS2010 <- sqlFetch(xls, "2010")</font>
<br>
<br><font size=3 face="sans-serif">La segunda barra de progreso debería
mostrar el progreso del numero de registros insertados en la tabla SQL
 hasta ese momento vs el numero total de registros del df <i>datos</i>
en la instrucción:</font>
<br><font size=3 face="sans-serif">sqlSave(channel,datos,tablename ="Poblacion",
rownames = FALSE, append=TRUE, fast=TRUE )</font>
<br>
<br><font size=3 face="sans-serif">No sé si consigo explicarme con propiedad.</font>
<br>
<br><font size=3 face="sans-serif">Muchas gracias por los aportes</font>
<br>
<br><font size=3 face="sans-serif">Un saludo<br>
</font><font size=3><br>
</font>
<br><font size=3><br>
</font>
<br>
<br>
<br>
<table width=100%>
<tr>
<td><img src=cid:_1_0780D1A80780CDA8002EEDCAC1257B43 width=80 height=1>
<td width=100%>
<table width=100%>
<tr valign=top>
<td width=100%><font size=2 face="sans-serif"><b>Re: [R-es] Barra de progreso
en RODBC</b></font></table>
<br>
<table width=100%>
<tr>
<td><font size=2 color=#e26200 face="sans-serif"><b>(Internet)</b></font>
<br><font size=2 color=#e26200 face="sans-serif"><b>cof </b></font>
<td>
<td valign=top>
<table width=100%>
<tr valign=top>
<td><font size=2 color=#8f8f8f face="sans-serif">To:</font>
<td><font size=2 face="sans-serif">miguel.angel.rodriguez.muinos</font>
<tr valign=top>
<td><font size=1 color=#8f8f8f face="sans-serif">Cc:</font>
<td><font size=1 face="sans-serif">Jluis GILSANZ, r-help-es</font></table>
<br>
<td>
<div align=right><font size=1 face="sans-serif">03/04/2013 17:02</font></div></table>
<br></table>
<br>
<br>
<hr>
<br>
<br>
<br><font size=3 face="Verdana">Hola,</font>
<br>
<br><font size=3 face="Verdana">Hay alguna más...:</font>
<br>
<br><a href="http://cran.r-project.org/web/packages/pbapply/pbapply.pdf"><font size=3 color=blue face="Verdana"><u>http://cran.r-project.org/web/packages/pbapply/pbapply.pdf</u></font></a>
<br>
<br><font size=3 face="Verdana">Y otra en el paquete plyr:</font>
<br>
<br><a href="http://cran.r-project.org/web/packages/plyr/plyr.pdf"><font size=3 color=blue face="Verdana"><u>http://cran.r-project.org/web/packages/plyr/plyr.pdf</u></font></a>
<br>
<br><font size=3 face="Verdana">Saludos,</font>
<br><font size=3 face="Verdana">Carlos Ortega</font>
<br><a href=http://www.qualityexcellence.es/><font size=3 color=blue face="Verdana"><u>www.qualityexcellence.es</u></font></a>
<br><font size=3><br>
</font>
<br><font size=3>El 3 de abril de 2013 14:33, <</font><a href=mailto:miguel.angel.rodriguez.muinos@sergas.es target=_blank><font size=3 color=blue><u>miguel.angel.rodriguez.muinos@sergas.es</u></font></a><font size=3>>
escribió:</font>
<br><font size=3>Hola jluis (probablemente, José o Juan Luis).<br>
<br>
A ver si esto te sirve...</font><font size=3 color=blue><u><br>
</u></font><font size=3><br>
</font><a href="http://ryouready.wordpress.com/2009/03/16/r-monitor-function-progress-with-a-progress-bar/" target=_blank><font size=3 color=blue><u>http://ryouready.wordpress.com/2009/03/16/r-monitor-function-progress-with-a-progress-bar/</u></font></a><font size=3><br>
<br>
Un saludo,<br>
_____________________________<br>
Miguel Ángel Rodríguez Muíños<br>
Dirección Xeral de Innovación e Xestión da Saúde Pública<br>
Consellería de Sanidade<br>
Xunta de Galicia</font><font size=3 color=blue><u><br>
</u></font><a href=http://dxsp.sergas.es/ target=_blank><font size=3 color=blue><u>http://dxsp.sergas.es</u></font></a><font size=3><br>
<br>
<br>
<br>
<br>
<br>
<br>
De: </font><a href="mailto:r-help-es-bounces@r-project.org"><font size=3 color=blue><u>r-help-es-bounces@r-project.org</u></font></a><font size=3>
[mailto:</font><a href="mailto:r-help-es-bounces@r-project.org"><font size=3 color=blue><u>r-help-es-bounces@r-project.org</u></font></a><font size=3>]
En nombre de </font><a href=mailto:jluis.gilsanz@tasacionesh.com><font size=3 color=blue><u>jluis.gilsanz@tasacionesh.com</u></font></a><font size=3><br>
Enviado el: miércoles, 03 de abril de 2013 13:40<br>
Para: </font><a href="mailto:r-help-es@r-project.org"><font size=3 color=blue><u>r-help-es@r-project.org</u></font></a><font size=3><br>
Asunto: [R-es] Barra de progreso en RODBC</font>
<br><font size=3><br>
Hola:<br>
<br>
Me encuentro en la tesitura de hacer el siguiente proceso:<br>
1-.Leer una excel e importar los datos a R<br>
2-.Transformar esos datos mediante R<br>
3.-Subir esos datos transformados a MS SQL server.<br>
<br>
El proceso en si lo tengo completado sin problemas, pero me gustaria afinar
un poco mas el codigo y poner una barra de progreso en los pasos 1 y 3.<br>
En ambos pasos utilizo RODBC para hacer la conexion:<br>
<br>
En 1- el codigo seria<br>
xls   <- odbcConnectExcel("Poblacion.xls")<br>
XLS2010 <- sqlFetch(xls, "2010")<br>
<br>
Pues bien la instruccion sqlFetch tarda unos 3 o 4 minutos en leer la excel
 y me gustaria mostrar una barra de progreso o similar mientras se
ejecuta.<br>
<br>
<br>
Tras importar la excel, y luego de varias transformaciones subo el df resultante
(llamado datos) mediante<br>
channel <- odbcDriverConnect( "case=nochange; Driver=SQL Server;
Server=XXXXXXXX; Database=XXXXXXX; uid=XXXXt; pwd=XXXXt; wsid=XXXXXX;")<br>
sqlSave(channel,datos,tablename ="Poblacion", rownames = FALSE,
append=TRUE, fast=TRUE )<br>
<br>
En este caso tarda aproximadamente una hora en la que R parece "muerto".
 Haciendo una consulta contra la tabla Poblacion (en el analizador
de consultas de MSSQL) puedo ver en cada momento cuantos registros se han
insertado hasta ese momento pero me gustaria que R mostrara una indicacion
del estado de la insercion de datos en el Servidor.<br>
<br>
Muchas gracias<br>
</font>
<br><font size=3>________________________________<br>
Nota: A información contida nesta mensaxe e os seus posibles documentos
adxuntos é privada e confidencial e está dirixida únicamente ó seu destinatario/a.
Se vostede non é o/a destinatario/a orixinal desta mensaxe, por favor elimínea.
A distribución ou copia desta mensaxe non está autorizada.<br>
<br>
Nota: La información contenida en este mensaje y sus posibles documentos
adjuntos es privada y confidencial y está dirigida únicamente a su destinatario/a.
Si usted no es el/la destinatario/a original de este mensaje, por favor
elimínelo. La distribución o copia de este mensaje no está autorizada.<br>
<br>
See more languages: </font><a href=http://www.sergas.es/aviso_confidencialidad.htm target=_blank><font size=3 color=blue><u>http://www.sergas.es/aviso_confidencialidad.htm</u></font></a><font size=3><br>
<br>
        [[alternative HTML version deleted]]<br>
<br>
<br>
_______________________________________________<br>
R-help-es mailing list</font><font size=3 color=blue><u><br>
</u></font><a href="mailto:R-help-es@r-project.org"><font size=3 color=blue><u>R-help-es@r-project.org</u></font></a><font size=3 color=blue><u><br>
</u></font><a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target=_blank><font size=3 color=blue><u>https://stat.ethz.ch/mailman/listinfo/r-help-es</u></font></a><font size=3><br>
</font>
<br><font size=3><br>
</font>
<br>
<br><font size=3>-- </font><font size=3 face="Verdana"><br>
Saludos,<br>
Carlos Ortega</font><font size=3 color=blue face="Verdana"><u><br>
</u></font><a href=http://www.qualityexcellence.es/ target=_blank><font size=3 color=blue face="Verdana"><u>www.qualityexcellence.es</u></font></a><font size=3>
</font>
<br><p><br>
-- AVISO LEGAL -- </p>

<p>Los datos personales que en esta comunicación aparecen, así como los que nuestra <br>
empresa mantiene de Vd. y de su empresa, son tratados con la finalidad de mantener <br>
el contacto así como realizar las gestiones que en esta aparecen (Ley Orgánica <br>
15/1999, de 13 de diciembre, de Protección de Datos de Carácter Personal).   <br>
Puede ejercer sus derechos de acceso, rectificación, cancelación y oposición <br>
dirigiéndose a atencion.clientes@tasacionesh.com <br>
La utilización de su dirección de correo electrónico por parte de nuestra empresa <br>
queda sujeta a las disposiciones de la Ley 34/2002, de Servicios de la Sociedad de <br>
la Información y el Comercio Electrónico. Si Vd. recibe comunicación comercial por <br>
nuestra parte y desea dejar de recibirla, rogamos nos lo comunique por vía electrónica <br>
a través de la dirección atencion.clientes@tasacionesh.com</p>