<div dir="ltr"><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">Amigos de R,</div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">Estou envolvido numa tarefa que importo um banco SQL de um servidor, faço uma modelagem, salvo o modelo no SQL através de uma seriliazação, e depois carrego esse modelo do SQL para fazer previsões em novos dados. </div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">Estou seguindo um exemplo disponível nessa página:</div><div class="gmail_default"><font color="#073763" face="arial black, sans-serif"><a href="https://docs.microsoft.com/pt-br/sql/advanced-analytics/tutorials/walkthrough-deploy-and-use-the-model">https://docs.microsoft.com/pt-br/sql/advanced-analytics/tutorials/walkthrough-deploy-and-use-the-model</a></font><br></div><div class="gmail_default"><font color="#073763" face="arial black, sans-serif"><br></font></div><div class="gmail_default"><font color="#073763" face="arial black, sans-serif">Sei que esse exemplo não é reproduzível porque depende da conexão com o servidor e credenciais que não posso divulgar. Mas se alguem já passou por esse problema poderia pelo menos indicar aonde está o problema que não estou sabendo identificar? Acho que muito provavelmente seria uma configuração do SQL no servidor... </font></div><div class="gmail_default"><font color="#073763" face="arial black, sans-serif"><br></font></div><div class="gmail_default"><font color="#073763" face="arial black, sans-serif"><div class="gmail_default">library(RODBC) </div><div class="gmail_default"><br></div><div class="gmail_default"># define database connection string</div><div class="gmail_default">dbconn <- 'Driver={SQL Server};Server=BLABLABLA;Database=BLABLABLA;Trusted_Connection=yes;' </div><div class="gmail_default"><br></div><div class="gmail_default"># define a connection</div><div class="gmail_default">conn <- odbcDriverConnect(connection = dbconn) </div></font></div><div class="gmail_default"><font color="#073763" face="arial black, sans-serif"><br></font></div><div class="gmail_default"><font color="#073763" face="arial black, sans-serif"># Estou fazendo o exemplo com o objeto LETTERS só pra ter certeza que é um objeto pequeno e que não deveria ser um problema de memória do R.</font></div><div class="gmail_default"><span style="color:rgb(7,55,99);font-family:"arial black",sans-serif">> LETTERS</span><br></div><div class="gmail_default"><font color="#073763" face="arial black, sans-serif"><div class="gmail_default"> [1] "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X"</div><div class="gmail_default">[25] "Y" "Z"</div><div class="gmail_default">> teste_pequeno <- serialize(LETTERS, connection = NULL)</div><div class="gmail_default">> teste_pequeno <- paste(teste_pequeno, collapse = "")</div><div class="gmail_default"><br></div><div class="gmail_default"># o EXEC PersistModel faz </div><div class="gmail_default"># insert into [tempo_permanencia_models] (model, [description]) values (convert(varbinary(max),@m,2), @description)</div><div class="gmail_default"># insere o modelo e uma descricao</div><div class="gmail_default"><br></div><div class="gmail_default">> p <- paste("EXEC PersistModel @m='", teste_pequeno,"', @description = 'Teste de serialização objeto pequeno'", sep = "")</div><div class="gmail_default">> sqlQuery(conn, p)</div><div class="gmail_default">character(0)</div><div class="gmail_default">> rm(teste_pequeno)</div><div class="gmail_default">> p <- "SELECT model FROM [tempo_permanencia_models] WHERE id_model = 1022"</div><div class="gmail_default">> mod.teste.peq <- sqlQuery(conn, p)</div><div class="gmail_default">Error in odbcQuery(channel, query, rows_at_time) : </div><div class="gmail_default"> 'Calloc' could not allocate memory (214748364800 of 1 bytes)</div><div class="gmail_default">> p <- paste0("SELECT id_model, description FROM [tempo_permanencia_models] WHERE id_model = 1022")<br></div><div class="gmail_default">> sqlQuery(conn, p) #</div><div class="gmail_default"> id_model description</div><div class="gmail_default">1 1022 Teste de serialização objeto pequeno<br></div><div class="gmail_default"><br></div><div class="gmail_default">Reparem que o objeto está salvo no servidor. Foi salvo a partir do R, mas não retorna para o R por conta do erro de memoria. Eu não estou sabendo nem por onde começar.</div></font></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">Que a força esteja sempre com vocês e abraço forte. </div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066">Pedro Brasil</font></div></div></div></div></div></div>
</div>