<html><head></head><body><div class="ydp4feb7648yahoo-style-wrap" style="font-family: bookman old style, new york, times, serif; font-size: 16px;"><div dir="ltr" data-setdir="false" style="font-size: 16px;">Bom dia amigos, minha dúvida é específica do RMarkdown hoje. Seguinte, irei automar relatórios que serão formatados no Mark, sendo salvos em html. Como reproduzível, coloco abaixo esse exemplo, que é executado em arquivo *.Rmd. </div><div dir="ltr" data-setdir="false" style="font-size: 16px;"><br></div><div dir="ltr" data-setdir="false" style=""><div style=""><div style=""><font size="2" color="#cd232c">---</font></div><div style=""><font size="2" color="#cd232c">title: "Relatório"</font></div><div style=""><font size="2" color="#cd232c">author: "Diogo"</font></div><div style=""><font size="2" color="#cd232c">output:</font></div><div style=""><font size="2" color="#cd232c"> html_document</font></div><div style=""><font size="2" color="#cd232c">---</font></div><div style=""><span style="font-size: small;"><font color="#cd232c" style="background-color: inherit;"><br></font></span></div><div style=""><font color="#cd232c"><span style="font-size: small;">```{r informações do participante, echo = FALSE, include = FALSE}</span><br></font></div><div style=""><font color="#cd232c"><span style="font-size: small;">library(tidyr)</span><br></font></div><div style=""><font size="2" color="#cd232c">library(dplyr)</font></div><div style=""><font size="2" color="#cd232c">library(rmarkdown)</font></div><div style=""><font size="2" color="#cd232c">library(kableExtra)</font></div><div style=""><font color="#cd232c"><span style="font-size: small;">cli<-rep(1,10);x<-round(rnorm(10,10,1),2);e<-round(rnorm(10,0,1),2);y<-x+e;dados_ini<-data.frame(cbind(cli,x,y))</span><br></font></div><div style=""><font color="#cd232c"><span style="font-size: small;">dados<-dados_ini %>% filter(cli==1)</span><br></font></div><div style=""><font color="#cd232c"><span style="font-size: small;">```</span><br></font></div><div style=""><font size="2" color="#cd232c"><br></font></div><div style=""><font size="2" color="#cd232c">```{r tabela, echo = FALSE}</font></div><div style=""><font color="#cd232c"><span style="font-size: small;">tabela<-data.frame(dados[,c(2,3)])</span><br></font></div><div style=""><font size="2" color="#cd232c">tabela %>% kbl()</font></div><div style=""><font color="#cd232c"><span style="font-size: small;">```</span><br></font></div><div style=""><font size="2" color="#cd232c"><br></font></div><div style=""><font size="2" color="#cd232c">```{r gráfico, echo = FALSE}</font></div><div style=""><font color="#cd232c"><span style="font-size: small;">plot(x,y)</span><br></font></div><div style=""><span style="font-size: small;"><font color="#cd232c" style="background-color: inherit;">```</font></span><br></div><div style="font-size: 16px;"><br></div></div>Aplicando o famoso botão "knitr", ele me retorna o relatório em html <b>COM o gráfico</b>. </div><div dir="ltr" data-setdir="false" style=""><br></div><div dir="ltr" data-setdir="false" style="">Acontece que para a automação, terei de usar o comando <i>render</i> dentro de uma <i>function</i>, para poder formatar o relatório. Ao aplicar o mesmo comando nessa estrutura, eu gero tabela e gráfico dentro de um arquivo R, e depois chamo o comando <i>render</i>. Da seguinte forma:</div><div dir="ltr" data-setdir="false" style=""><br></div><div dir="ltr" data-setdir="false" style=""><div><div><font size="2" color="#808080">library(tidyr)</font></div><div><font size="2" color="#808080">library(dplyr)</font></div><div><font size="2" color="#808080">library(rmarkdown)</font></div><div><font size="2" color="#808080">library(kableExtra)</font></div><div><font color="#808080"><span style="font-size: small;">cli<-rep(1,10);x<-round(rnorm(10,10,1),2);e<-round(rnorm(10,0,1),2);y<-x+e;dados_ini<-data.frame(cbind(cli,x,y))</span><br></font></div><div><font color="#808080"><span style="font-size: small;">dados<-dados_ini %>% filter(cli==1)</span><br></font></div><div><font size="2" color="#808080"><br></font></div><div><font size="2" color="#808080">tabela<-data.frame(dados[,c(2,3)])</font></div><div><font size="2" color="#808080"><br></font></div><div><font size="2" color="#808080">graf<-plot(x,y)</font></div><div><font size="2" color="#808080"><br></font></div><div><font size="2" color="#808080">render(input="c:/users/diogo/desktop/rmarkdown_via render_listaR.Rmd",</font></div><div><font size="2" color="#808080"> output_format = "html_document",</font></div><div><font size="2" color="#808080"> output_file = "relatório.html",</font></div><div><font size="2" color="#808080"> output_dir = "c:/users/diogo/desktop/")</font></div><div><br></div></div><font size="3"><br></font></div><div style="" dir="ltr" data-setdir="false"><font size="3">Sendo que o arquivo Rmarkdown <i>"</i><span><span style="font-family: bookman old style, new york, times, serif;"><i>rmarkdown_via render_listaR.Rmd"</i> tem essa estrutura dentro:</span></span></font></div><div style="font-size: 16px;"><br></div><div style="" dir="ltr" data-setdir="false"><div style=""><div style=""><font color="#cd232c" style="" size="2">---</font></div><div style=""><font color="#cd232c" size="2">title: "Relatório"</font></div><div style=""><font color="#cd232c" size="2">author: "Diogo"</font></div><div style=""><font color="#cd232c" size="2">output:</font></div><div style=""><font color="#cd232c" size="2"> html_document</font></div><div style=""><font color="#cd232c" size="2">---</font></div><div style=""><font color="#cd232c" size="2"><br></font></div><div style=""><font color="#cd232c" size="2">```{r tabela, echo = FALSE}</font></div><div style=""><font color="#cd232c" size="2">tabela %>% kbl()<br></font></div><div style=""><font color="#cd232c" size="2">```</font></div><div style=""><font color="#cd232c" size="2"><br></font></div><div style=""><font color="#cd232c" size="2">```{r gráfico, echo = FALSE}</font></div><div style=""><font color="#cd232c" size="2">print(graf)</font></div><div style=""><font color="#cd232c" style="" size="2">```</font></div></div><br></div><div style="font-size: 16px;" dir="ltr" data-setdir="false"><span><span style="color: rgb(0, 0, 0); font-family: bookman old style, new york, times, serif; font-size: medium;">O meu problema é que em ambos os casos, eu até obtenho as mesmas tabelas, mas nesse segundo modo (que é o que viabiliza a <i>function</i>, para formatar vários relatórios), <span><span style="color: rgb(0, 0, 0); font-family: bookman old style, new york, times, serif; font-size: 16px;">ele me retorna o relatório em html </span><b style="color: rgb(0, 0, 0); font-family: bookman old style, new york, times, serif; font-size: 16px;">dessa vez SEM o gráfico</b><span style="color: rgb(0, 0, 0); font-family: bookman old style, new york, times, serif; font-size: 16px;">. </span></span></span></span><br></div><div style="font-size: 16px;"><br></div><div style="font-size: 16px;" dir="ltr" data-setdir="false"><b>Enfim a dúvida: alguém sabe se tem algum subcomando dentro do render, ou opção, para forçar o gráfico a aparecer na segunda forma (usando o comando <i>render</i>)? Ou se estou aplicando alguma funcionalidade erradamente? </b></div><div style="font-size: 16px;"><br></div><div style="font-size: 16px;" dir="ltr" data-setdir="false">Obrigado e bom dia aos amigos!!!</div><div style="font-size: 16px;" dir="ltr" data-setdir="false"><br></div><div class="ydp4feb7648signature" style="font-size: 16px;"><div style="font-family:Helvetica, Arial, sans-serif;font-size:16px;"><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38508"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38507" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color: inherit;">Diogo Jerônimo</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38429" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color: inherit;">Bacharel em Ciências Estatísticas - ENCE/IBGE</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38308" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color: inherit;">Mestre em Metrologia - PUC-Rio/PósMQI</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38323"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38322" style="line-height:17.12px;color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" id="ydpcf278505yui_3_16_0_1_1497025264182_38695" style="background-color: inherit;">http://lattes.cnpq.br/8996149312896520</font></span></i></div><p id="ydpcf278505yui_3_16_0_1_1497025264182_38326" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;" class="ydpcf278505MsoNormal"><br></p></div></div></div></body></html>