rinside/html/RInsideEnvVars_8r_source.html

00001 #!/usr/bin/r -q
00002 #
00003 # This owes a lot to littler.R  in the littler sources
00004
00005 ExcludeVars <- c("R_SESSION_TMPDIR","R_HISTFILE")
00006 IncludeVars <- Sys.getenv()
00007 IncludeVars <- IncludeVars[grep("^R_",names(IncludeVars),perl=TRUE)]
00008 if (.Platform$OS.type == "windows") {
00009     IncludeVars <- gsub("\\\\", "/", IncludeVars, perl=TRUE)
00010 }
00011 cat("    const char *R_VARS[] = {\n")
00012 for (i in 1:length(IncludeVars)){
00013         if (names(IncludeVars)[i] %in% ExcludeVars)
00014                 next
00015         cat('        "',names(IncludeVars)[i],'","',IncludeVars[i],'",\n',sep='')
00016 }
00017 cat("        NULL\n    };\n")