<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Dá para comparar as versões da sua sessão com as versões do usuário alvo. Basicamente comparar as strings das versões do R e dos pacotes carregados. Eles são dados no sessionInfo(). O código abaixo você pode no início do seu script, logo após carregar todos os pacotes necessários para sessão.<br>
<br><span style="font-family:courier new,monospace">##-----------------------------------------------------------------------------<br>## Na minha sessão.<br><br>require(latticeExtra)<br>require(doBy)<br><br>getVersion <- function(){<br>
    si <- sessionInfo()<br>    c(R=si$R.version$version.string,<br>      apply(sapply(si$otherPkgs, "[", c("Package","Version")),<br>            2, paste, collapse="_"))<br>}<br>
<br>## Executar uma vez, comentar, e usar com o dput().<br>## myVersion <- getVersion()<br>## dput(myVersion)<br><br>## Resultado do dput().<br>myVersion <- <br>structure(c("R version 3.1.0 (2014-04-10)", "doBy_4.5-10", "MASS_7.3-33", <br>
"survival_2.37-7", "latticeExtra_0.6-26", "lattice_0.20-29", <br>"RColorBrewer_1.0-5"), .Names = c("R", "doBy", "MASS", "survival", <br>"latticeExtra", "lattice", "RColorBrewer"))<br>
<br>##-----------------------------------------------------------------------------<br>## Na sessão do usuário.<br><br>## Versão do usuário.<br>yourVersion <- getVersion()<br><br>## Compara e mostra o status das ocorrências.<br>
isOk <- myVersion%in%yourVersion<br>status <- ifelse(isOk,<br>                 paste(myVersion, "\t\tOk."),<br>                 paste(myVersion, "\t\tFailed."))<br>cat(status, sep="\n")<br>
<br>##-----------------------------------------------------------------------------<br>## Retirando um pacote (ou modificar a versão).<br><br>detach(package:latticeExtra)<br>yourVersion <- getVersion()<br><br>## Compara e mostra o status das ocorrências.<br>
isOk <- myVersion%in%yourVersion<br>status <- ifelse(isOk,<br>                 paste(myVersion, "\t\tOk."),<br>                 paste(myVersion, "\t\tFailed."))<br>cat(status, sep="\n")<br>
<br>##-----------------------------------------------------------------------------<br></span><br>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div></div>