R/view.results.R

In NicolasStefaniak/easieR: easieR: A GUI R metapackage.

view.results <-
function(){
  c('svDialogs', 'TeachingDemos')->packages
  try(lapply(packages, library, character.only=T), silent=T)->test2
  if(class(test2)== 'try-error') return(ez.install())
  list()->Resultats
  Resultats$Call<-"view.results()"
  ref1(packages)->Resultats[[.dico[["desc_packages_used_for_this_function"]]]]
  if(!exists("ez.results")) return(.dico[["desc_no_saved_analysis_found"]]) else get("ez.results")
  TkListView(ez.results)
  return(Resultats)
}