rinside/html/RInsideAutoloads_8r_source.html

00001 #!/usr/bin/r
00002 #
00003 # This owes a lot to autoloads.R  in the littler sources
00004
00005 dp <- getOption("defaultPackages")
00006 #dp <- dp[dp != 'datasets'] ## Rscript loads it too
00007 #dp <- dp[dp != 'methods']  ## Rscript (in R 2.6.1) doesn't load methods either
00008
00009 # Count of default packages
00010 cat("    int packc = ",length(dp),";\n",sep='')
00011
00012 # List of packages
00013 cat("    const char *pack[] = {\n",paste('        "',dp,'"',sep='',collapse=",\n"),"\n    };\n", sep="")
00014
00015 packobjc <- array(0,dim=length(dp))
00016 packobj <- NULL
00017 for (i in 1:length(dp)){
00018         obj = ls(paste("package:",dp[i],sep=''))
00019         packobjc[i] = length(obj)
00020         packobj = c(packobj,obj)
00021 }
00022
00023 # List of counts of objects per package
00024 cat("    int packobjc[] = {\n        ",paste(packobjc,sep='',collapse=",\n        "),"\n    };\n", sep="")
00025
00026 # List of object names
00027 cat("    const char *packobj[] = {\n        ",paste('"',packobj,'"',sep='',collapse=",\n        "),"\n    };\n", sep="")