<div dir="ltr"><div class="gmail_default" style="font-family:"times new roman",serif;font-size:small"><div class="gmail_default" style="color:rgb(0,0,0)">Pessoal, </div><div class="gmail_default" style="color:rgb(0,0,0)"><br></div><div class="gmail_default" style="color:rgb(0,0,0)">Estou construindo um pacote onde uso o pacote Rgraphviz do site "<a href="http://bioconductor.org/biocLite.R" rel="nofollow" style="font-size:1em;color:rgb(85,26,139)">http://bioconductor.org/biocLite.R</a>", porém quando vou checar o pacote gera o seguinte alerta:</div><div class="gmail_default" style="color:rgb(0,0,0)"><br></div><div class="gmail_default" style="color:rgb(0,0,0)"><pre tabindex="0" class="gmail-GODMDAHBLOB gmail-ace_text-layer gmail-ace_line gmail-GODMDAHBOOB gmail-GODMDAHBAU" style="outline:none;border:none;word-break:break-all;margin-top:0px;margin-bottom:0px;box-sizing:border-box;width:999px;padding:6px;color:rgb(255,255,255);background-color:rgb(0,34,64);font-family:"ubuntu mono";font-size:10.4pt;font-style:inherit;font-variant:inherit;font-weight:inherit;line-height:inherit;white-space:pre-wrap"><span class="gmail-GODMDAHBLOB" style="outline:none;border:none;word-break:break-all;margin:0px">check.package: no visible global function definition for ‘biocLite’
</span><span class="gmail-GODMDAHBLOB" style="outline:none;border:none;word-break:break-all;margin:0px">Undefined global functions or variables:
</span><span class="gmail-GODMDAHBLOB" style="outline:none;border:none;word-break:break-all;margin:0px"> biocLite</span></pre></div></div><div><br></div><div><div class="gmail_default" style="font-family:"times new roman",serif;font-size:small">Esta minha função "check:package" (abaixo) verifica se os pacotes necessários estão instalados e se não estiverem então instala. </div><div class="gmail_default" style="font-family:"times new roman",serif;font-size:small"><br></div><div class="gmail_default" style="font-family:"times new roman",serif;font-size:small">Alguem sabe como posso resolver ?</div><div class="gmail_default" style="font-family:"times new roman",serif;font-size:small"><br></div><div class="gmail_default"><font face="times new roman, serif">check.package <- function(<a href="http://package.name">package.name</a>)</font></div><div class="gmail_default"><font face="times new roman, serif">{</font></div><div class="gmail_default"><font face="times new roman, serif"> if (!is.element(<a href="http://package.name">package.name</a>, utils::installed.packages()))</font></div><div class="gmail_default"><font face="times new roman, serif"> {</font></div><div class="gmail_default"><font face="times new roman, serif"><br></font></div><div class="gmail_default"><font face="times new roman, serif"> print(c("========== Instalando: ", <a href="http://package.name">package.name</a>, "=========="), sep="")</font></div><div class="gmail_default"><font face="times new roman, serif"><br></font></div><div class="gmail_default"><font face="times new roman, serif"> if (<a href="http://package.name">package.name</a> == "Rgraphviz")</font></div><div class="gmail_default"><font face="times new roman, serif"> {</font></div><div class="gmail_default"><font face="times new roman, serif"><br></font></div><div class="gmail_default"><font face="times new roman, serif"> source("<a href="http://bioconductor.org/biocLite.R">http://bioconductor.org/biocLite.R</a>")</font></div><div class="gmail_default"><font face="times new roman, serif"> biocLite("Rgraphviz", suppressUpdates=TRUE)</font></div><div class="gmail_default"><font face="times new roman, serif"><br></font></div><div class="gmail_default"><font face="times new roman, serif"> } # else if (<a href="http://package.name">package.name</a> == 'Rgraphviz')</font></div><div class="gmail_default"><font face="times new roman, serif"> else if (<a href="http://package.name">package.name</a> == 'graph')</font></div><div class="gmail_default"><font face="times new roman, serif"> {</font></div><div class="gmail_default"><font face="times new roman, serif"><br></font></div><div class="gmail_default"><font face="times new roman, serif"> source("<a href="http://bioconductor.org/biocLite.R">http://bioconductor.org/biocLite.R</a>")</font></div><div class="gmail_default"><font face="times new roman, serif"> biocLite("graph", suppressUpdates=TRUE)</font></div><div class="gmail_default"><font face="times new roman, serif"><br></font></div><div class="gmail_default"><font face="times new roman, serif"> } # else if (<a href="http://package.name">package.name</a> == 'graph')</font></div><div class="gmail_default"><font face="times new roman, serif"> else</font></div><div class="gmail_default"><font face="times new roman, serif"> {</font></div><div class="gmail_default"><font face="times new roman, serif"><br></font></div><div class="gmail_default"><font face="times new roman, serif"> utils::install.packages(<a href="http://package.name">package.name</a>, verbose = FALSE, dependencies = TRUE)</font></div><div class="gmail_default"><font face="times new roman, serif"> if (!is.element(<a href="http://package.name">package.name</a>, utils::installed.packages())) stop("Package not found")</font></div><div class="gmail_default"><font face="times new roman, serif"><br></font></div><div class="gmail_default"><font face="times new roman, serif"> } # else</font></div><div class="gmail_default"><font face="times new roman, serif"> } # if (!is.element(<a href="http://package.name">package.name</a>, installed.packages()))</font></div><div class="gmail_default"><font face="times new roman, serif">} # check.package <- function(<a href="http://package.name">package.name</a>)</font></div><div class="gmail_default" style="font-family:"times new roman",serif;font-size:small"></div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><div><font face="times new roman, serif"><i><span style="font-size:12.8px">In Jesu et Maria</span><br><br style="font-size:small"></i></font><div><div dir="ltr"><div dir="ltr"><div dir="ltr"><div style="font-size:small"><font face="times new roman, serif"><i>Obrigado</i></font></div><div style="font-size:small"><font face="times new roman, serif"><i>Prof. Elias Carvalho</i></font></div><div style="font-size:small"><font face="times new roman, serif"><i><br></i></font></div><div><font face="times new roman, serif" size="2"><i><div>"Felix, qui potuit rerum cognoscere causas" (Virgil 29 BC)</div><div>"Blessed is he who has been able to understand the cause of things"</div></i></font></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div>
</div>