# esempio preso da classic-bugs/R/Rcheck.R

read.jagsdata <- function(file)
{
  e <- new.env()
  eval(parse(file), e)
  return(as.list(e))
}