<html><head></head><body><div class="ydp2a03b991yahoo-style-wrap" style="font-family: Helvetica Neue, Helvetica, Arial, sans-serif; font-size: 13px;"><div><div><br></div><div><br></div><div class="ydp2a03b991signature"><div><font color="#0000ff">Edmar</font></div></div></div>
<div><br></div><div><br></div>
</div><div id="yahoo_quoted_6410310002" class="yahoo_quoted">
<div style="font-family:'Helvetica Neue', Helvetica, Arial, sans-serif;font-size:13px;color:#26282a;">
<div>
Em terça-feira, 20 de agosto de 2019 12:00:28 BRT, r-br-request@listas.c3sl.ufpr.br <r-br-request@listas.c3sl.ufpr.br> escreveu:
</div>
<div><br></div>
<div><br></div>
<div><div dir="ltr">Enviar submissões para a lista de discussão R-br para <br></div><div dir="ltr"> <a ymailto="mailto:r-br@listas.c3sl.ufpr.br" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a><br></div><div dir="ltr"><br></div><div dir="ltr">Para se cadastrar ou descadastrar via WWW, visite o endereço<br></div><div dir="ltr"> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br></div><div dir="ltr">ou, via email, envie uma mensagem com a palavra 'help' no assunto ou<br></div><div dir="ltr">corpo da mensagem para <br></div><div dir="ltr"> <a ymailto="mailto:r-br-request@listas.c3sl.ufpr.br" href="mailto:r-br-request@listas.c3sl.ufpr.br">r-br-request@listas.c3sl.ufpr.br</a><br></div><div dir="ltr"><br></div><div dir="ltr">Você poderá entrar em contato com a pessoa que gerencia a lista pelo<br></div><div dir="ltr">endereço<br></div><div dir="ltr"> <a ymailto="mailto:r-br-owner@listas.c3sl.ufpr.br" href="mailto:r-br-owner@listas.c3sl.ufpr.br">r-br-owner@listas.c3sl.ufpr.br</a><br></div><div dir="ltr"><br></div><div dir="ltr">Quando responder, por favor edite sua linha Assunto assim ela será<br></div><div dir="ltr">mais específica que "Re: Contents of R-br digest..."<br></div><div dir="ltr"><br></div><div dir="ltr"><br></div><div dir="ltr">Tópicos de Hoje:<br></div><div dir="ltr"><br></div><div dir="ltr"> 1. Package Tibble (Edmar Caldas)<br></div><div dir="ltr"> 2. Re: Package Tibble (Fernando Souza)<br></div><div dir="ltr"><br></div><div dir="ltr"><br></div><div dir="ltr">----------------------------------------------------------------------<br></div><div dir="ltr"><br></div><div dir="ltr">Message: 1<br></div><div dir="ltr">Date: Mon, 19 Aug 2019 22:51:50 +0000 (UTC)<br></div><div dir="ltr">From: Edmar Caldas <<a ymailto="mailto:edmar_caldas@yahoo.com.br" href="mailto:edmar_caldas@yahoo.com.br">edmar_caldas@yahoo.com.br</a>><br></div><div dir="ltr">To: R-br Lista <<a ymailto="mailto:r-br@listas.c3sl.ufpr.br" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>><br></div><div dir="ltr">Subject: [R-br] Package Tibble<br></div><div dir="ltr">Message-ID: <<a ymailto="mailto:2090336582.86957.1566255110255@mail.yahoo.com" href="mailto:2090336582.86957.1566255110255@mail.yahoo.com">2090336582.86957.1566255110255@mail.yahoo.com</a>><br></div><div dir="ltr">Content-Type: text/plain; charset="utf-8"<br></div><div dir="ltr"><br></div><div dir="ltr">Boa noite!<br></div><div dir="ltr">estou com um erro no código abaixo e não consigo descobrir o motivo. Já executei esse mesmo código em outra maquina.<br></div><div dir="ltr">versao do R<br></div><div dir="ltr">version.string R version 3.6.1 (2019-07-05)<br></div><div dir="ltr"><br></div><div dir="ltr"><br></div><div dir="ltr">library(readxl)Salario <- read_excel("F:/FIAP/R/Excel/Salario.xlsx")View(Salario) <br></div><div dir="ltr">attach(Salario)install.packages("dplyr")library(dplyr)agregar <-summarise(group_by(Salario, id), salario_m = mean(salario_m), data_pagamento_min=min(data_pagamento), data_pagamento_max=max(data_pagamento), contagem =n())agregar<br></div><div dir="ltr">View(agregar)<br></div><div dir="ltr"><br></div><div dir="ltr">install.packages("rfm")install.packages("lubridate")library(rfm)library(lubridate)<br></div><div dir="ltr">data_atual <- lubridate::as_date("2019-04-05", tz = "UTC-3")agregar$data_atual <-data_atualattach(agregar)<br></div><div dir="ltr">data_compra <-lubridate::as_date(data_pagamento_max, tz="UTC")agregar$data_compra<-data_compra<br></div><div dir="ltr">attach(agregar)View(agregar)<br></div><div dir="ltr">rfm_result <- rfm_table_order(agregar, id, data_compra, salario_m, data_atual)rfm_result<br></div><div dir="ltr">install.packages("tibble")library(tibble)<br></div><div dir="ltr">rfm<-as.tibble(rfm_result)rfm<br></div><div dir="ltr"><br></div><div dir="ltr">erro<br></div><div dir="ltr">Error: Tibble columns must have consistent lengths, only values of length one are recycled:* Length 0: Requested with `.rows` argument* Length 50: Column `rfm`Call `rlang::last_error()` to see a backtraceIn addition: Warning message:`as.tibble()` is deprecated, use `as_tibble()` (but mind the new semantics).This warning is displayed once per session.<br></div><div dir="ltr"><br></div><div dir="ltr">Edmar<br></div><div dir="ltr">-------------- Próxima Parte ----------<br></div><div dir="ltr">Um anexo em HTML foi limpo...<br></div><div dir="ltr">URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20190819/3d08833e/attachment-0001.html" target="_blank">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20190819/3d08833e/attachment-0001.html</a>><br></div><div dir="ltr"><br></div><div dir="ltr">------------------------------<br></div><div dir="ltr"><br></div><div dir="ltr">Message: 2<br></div><div dir="ltr">Date: Mon, 19 Aug 2019 21:37:29 -0300<br></div><div dir="ltr">From: Fernando Souza <<a ymailto="mailto:nandodesouza@gmail.com" href="mailto:nandodesouza@gmail.com">nandodesouza@gmail.com</a>><br></div><div dir="ltr">To:<br></div><div dir="ltr"> "=?utf-8?Q?a_lista_Brasileira_oficial_de_discuss=C3=83=C2=A3o_do_programa_R.?=" <br></div><div dir="ltr"> <<a ymailto="mailto:r-br@listas.c3sl.ufpr.br" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>><br></div><div dir="ltr">Cc: Edmar Caldas <<a ymailto="mailto:edmar_caldas@yahoo.com.br" href="mailto:edmar_caldas@yahoo.com.br">edmar_caldas@yahoo.com.br</a>><br></div><div dir="ltr">Subject: Re: [R-br] Package Tibble<br></div><div dir="ltr">Message-ID: <<a ymailto="mailto:982FECB8-90E4-41AC-9120-62372264667C@getmailspring.com" href="mailto:982FECB8-90E4-41AC-9120-62372264667C@getmailspring.com">982FECB8-90E4-41AC-9120-62372264667C@getmailspring.com</a>><br></div><div dir="ltr">Content-Type: text/plain; charset="utf-8"<br></div><div dir="ltr"><br></div><div dir="ltr">Seu exemplo não é reproduzível,, uma vez que não é possível acessar os dados.<br></div><div dir="ltr"><br></div><div dir="ltr">Att<br></div><div dir="ltr">On Aug 19 2019, at 7:51 pm, Edmar Caldas por (R-br) <<a ymailto="mailto:r-br@listas.c3sl.ufpr.br" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><div dir="ltr">> Boa noite!<br></div><div dir="ltr">><br></div><div dir="ltr">> estou com um erro no código abaixo e não consigo descobrir o motivo.<br></div><div dir="ltr">> Já executei esse mesmo código em outra maquina.<br></div><div dir="ltr">><br></div><div dir="ltr">> versao do R<br></div><div dir="ltr">><br></div><div dir="ltr">> version.string R version 3.6.1 (2019-07-05)<br></div><div dir="ltr">><br></div><div dir="ltr">><br></div><div dir="ltr">> library(readxl)<br></div><div dir="ltr">> Salario <- read_excel("F:/FIAP/R/Excel/Salario.xlsx")<br></div><div dir="ltr">> View(Salario)<br></div><div dir="ltr">><br></div><div dir="ltr">> attach(Salario)<br></div><div dir="ltr">> install.packages("dplyr")<br></div><div dir="ltr">> library(dplyr)<br></div><div dir="ltr">> agregar <-summarise(group_by(Salario, id),<br></div><div dir="ltr">> salario_m = mean(salario_m),<br></div><div dir="ltr">> data_pagamento_min=min(data_pagamento),<br></div><div dir="ltr">> data_pagamento_max=max(data_pagamento),<br></div><div dir="ltr">> contagem =n())<br></div><div dir="ltr">> agregar<br></div><div dir="ltr">><br></div><div dir="ltr">> View(agregar)<br></div><div dir="ltr">><br></div><div dir="ltr">><br></div><div dir="ltr">> install.packages("rfm")<br></div><div dir="ltr">> install.packages("lubridate")<br></div><div dir="ltr">> library(rfm)<br></div><div dir="ltr">> library(lubridate)<br></div><div dir="ltr">><br></div><div dir="ltr">> data_atual <- lubridate::as_date("2019-04-05", tz = "UTC-3")<br></div><div dir="ltr">> agregar$data_atual <-data_atual<br></div><div dir="ltr">> attach(agregar)<br></div><div dir="ltr">><br></div><div dir="ltr">> data_compra <-lubridate::as_date(data_pagamento_max, tz="UTC")<br></div><div dir="ltr">> agregar$data_compra<-data_compra<br></div><div dir="ltr">><br></div><div dir="ltr">> attach(agregar)<br></div><div dir="ltr">> View(agregar)<br></div><div dir="ltr">><br></div><div dir="ltr">> rfm_result <- rfm_table_order(agregar, id, data_compra, salario_m, data_atual)<br></div><div dir="ltr">> rfm_result<br></div><div dir="ltr">><br></div><div dir="ltr">> install.packages("tibble")<br></div><div dir="ltr">> library(tibble)<br></div><div dir="ltr">><br></div><div dir="ltr">> rfm<-as.tibble(rfm_result)<br></div><div dir="ltr">> rfm<br></div><div dir="ltr">><br></div><div dir="ltr">><br></div><div dir="ltr">><br></div><div dir="ltr">> erro<br></div><div dir="ltr">><br></div><div dir="ltr">> Error: Tibble columns must have consistent lengths, only values of length one are recycled:<br></div><div dir="ltr">> * Length 0: Requested with `.rows` argument<br></div><div dir="ltr">> * Length 50: Column `rfm`<br></div><div dir="ltr">> Call `rlang::last_error()` to see a backtrace<br></div><div dir="ltr">> In addition: Warning message:<br></div><div dir="ltr">> `as.tibble()` is deprecated, use `as_tibble()` (but mind the new semantics).<br></div><div dir="ltr">> This warning is displayed once per session.<br></div><div dir="ltr">><br></div><div dir="ltr">><br></div><div dir="ltr">><br></div><div dir="ltr">> Edmar<br></div><div dir="ltr">> _______________________________________________<br></div><div dir="ltr">> R-br mailing list<br></div><div dir="ltr">> <a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br></div><div dir="ltr">> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br></div><div dir="ltr">> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></div><div dir="ltr">><br></div><div dir="ltr"><br></div><div dir="ltr">-------------- Próxima Parte ----------<br></div><div dir="ltr">Um anexo em HTML foi limpo...<br></div><div dir="ltr">URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20190819/c2981dae/attachment-0001.html" target="_blank">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20190819/c2981dae/attachment-0001.html</a>><br></div><div dir="ltr"><br></div><div dir="ltr">------------------------------<br></div><div dir="ltr"><br></div><div dir="ltr">Subject: Legenda do Digest<br></div><div dir="ltr"><br></div><div dir="ltr">_______________________________________________<br></div><div dir="ltr">R-br mailing list<br></div><div dir="ltr"><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br></div><div dir="ltr"><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br></div><div dir="ltr"><br></div><div dir="ltr"><br></div><div dir="ltr">------------------------------<br></div><div dir="ltr"><br></div><div dir="ltr">Fim da Digest R-br, volume 104, assunto 3<br></div><div dir="ltr">*****************************************</div></div>
</div>
</div></body></html>