search for: showwarning

...ot available in the default library remove.packages("sp") remove.packages("maptools") remove.packages("foreign") remove.packages("lattice") # Setting custom lib and destdir path.r.lib <- "C:/temp/R/library" dir.create(path.r.lib, recursive=TRUE, showWarning=FALSE) path.r.destdir <- "C:/temp/R/destdir" dir.create(path.r.destdir, recursive=TRUE, showWarning=FALSE) # Core processing try.res <- try( eval(substitute( library(PKG, lib.loc=path.r.lib, verbose=FALSE), list(PKG=pkg) )), silent=TRUE ) if(inherit...

...ectory1/directory2") , this works fine, and creates the directory2, but If we want to create the directory3 and another directory called directory4 inside of it. >dir.create("\\\\server/directory1/directory3/directory4", recursive=T) fails, and don't create any directory. The ShowWarning doesn't show any message. Any help please. Fran.

Hi, all, I'm looking a utility for removing a directory from within R. Currently, I'm using: foo <- function(...) { mydir <- tempdir() dir.create(mydir, showWarnings = FALSE, recursive = TRUE) on.exit(system(sprintf("rm -rf %s", mydir))) ## do some stuff in "mydir" invisible() } However, this is assumes "rm" is available. I know of ?dir.create, but there is no opposite. And ?file.remove appears to work only on files and...

...patch_renosterbos") tbls <- dbListTables(con) runs <- 1:5 years <- seq(98, 0, -7) progress_end <- length(tbls) * length(runs) * length(years) progress <- 0 for (year in years) { fd <- paste("/home/rkrug/Documents/R/plots/Y", year, sep="") dir.create(fd, showWarnings=FALSE, recursive = TRUE) for (run in runs) { for (tn in tbls) { fn <- paste(fd, "/", tn, "_R", run, "_Y", year, ".png", sep="") progress <- progress + 1 cat(progress, 'of', progress_end, " | ", fn, " | ") flush.con...

Dear all, While I was trying to build R source, I found an error at datasets package (there was no error before that) ../../../library/datasets/R/datasets is unchanged Error in dir.create(Rdatadir, showWarnings = FALSE) : file name conversion problem Calls: <Anonymous> -> <Anonymous> -> dir.create Execution halted make[2]: *** [all] Error 1 make[1]: *** [R] Error 1 make: *** [all] Error 2 And it was caused by @$(ECHO) "tools:::data2LazyLoadDB(\"$(pkg)\", compress=3)&...

Hi I have some problems to create severeal directories at the same time dir2 = "C:/00test000/test/test1" dir.create(dir2, showWarnings = TRUE, recursive = TRUE) It works in 2.6.2 but not in 2.7.0dev I use Windows, R 2.7.0 (2008-02-15 r44484) Best regards Dominik

E.g. I am seeing: dir <- file.path(tempdir(), "test-tar") dir.create(dir) setwd(dir) dir.create("foo", showWarnings = FALSE) file.create("foo/bar.R") tar("test.tar", files = "foo/bar.R") dir.create("untarred") untar("test.tar", exdir = "untarred") list.files("untarred", recursive = TRUE) # character(0) As far as I can se...

Here is a function I wrote. It runs no problem, but generate empty pdf files. I can't find what is the problem. create.pdf<- function(x, dir) { dir.create(dir, showWarnings = FALSE) plist<- c("a", "b" , "c", "d") for(j in plist) { filedir<- paste(dir, "/", j, ".pdf", sep="") form1<- as.formula(paste("~ ", j, " | var1", sep=" "))...

...that is just asking for trouble. Well, surely, _intentionally_ you would not do that. Unintentionally, you might. E.g. something like this is enough: # Create a subpath within a base directory badfun <- function(base = ".", path) { dir.create(file.path(base, path), recursive = TRUE, showWarnings = FALSE) } badfun(path = "~/foo") (If you did run this, be very careful how you remove the directory called "~"!) A real example is `R CMD build` which deletes the home directory of the current user if the root of the package contains a non-empty "~" directory. Luck...

Hi all, I am wondering is there any way to check whether some Directory exists or not, given the parent path of that directory? After searching for a while I found that there is a function dir.create() to create some directory. However I need to know whether such directory already exists or not, otherwise I will create that.   Thanks, [[alternative HTML version deleted]]

..., shQuote(tempdir()))) + pkgPath <- file.path(tempdir(), "Pkgs") + op <- options(warn=2) # There should be *NO* warnings here! + ## pkgB tests an empty R directory + dir.create(file.path(pkgPath, "pkgB", "R"), recursive = TRUE, + showWarnings = FALSE) + p.lis <- c("pkgA", "pkgB", "exS4noNS", "exNSS4") + for(p. in p.lis) { + cat("building package", p., "...\n") + r <- build.pkg(file.path(pkgPath, p.)) + cat("installing package", p...

...s, rversions){ folders <- c("/bin/windows/contrib", "/bin/macosx/leopard/contrib", "/src/contrib") for(dir in folders){ dirs <- paste(local.repos, dir, "/", rversions, sep='') lapply(dirs, dir.create, recursive = TRUE, showWarnings = TRUE) } } create_repo_tree("/tools/kran", c(2.13, 2.14, 2.15)) ########################################### My CRAN mirror is in a sister folder /tools/cran and that works properly to be served at the address http://rweb.quant.ku.edu/cran. I want our local testing thing to show a...

...# lade nötige Pakete require(ff) require(ts) require(date) require(pheno) # Lege globale Variablen an Pfad<-"I:\\Dokumente und Einstellungen\\Administrator\\Eigene Dateien\\commodity analyse\\csv-dateien\\" auslagerung<-"I:\\Auslagerung\\" dir.create(auslagerung,showWarnings=F) # Lege alle Dateienamen des Ordners "Pfad" in einen array ab dateinamen<-list.files(Pfad) #Schleife, die über alle Dateien in dateinamen geht. #Sortiert alle Leerdateien aus, also Dateien ohne sinnvollen Input for (i in 1:length(dateinamen)){ input_teil<-NA try(input_...

...rouble. Well, surely, _intentionally_ you would not do that. > Unintentionally, you might. E.g. something like this is enough: > > # Create a subpath within a base directory > badfun <- function(base = ".", path) { > dir.create(file.path(base, path), recursive = TRUE, showWarnings = FALSE) > } > badfun(path = "~/foo") > > (If you did run this, be very careful how you remove the directory called "~"!) > > A real example is `R CMD build` which deletes the home directory of > the current user if the root of the package contains a non-em...

...file.copy(recursive = TRUE) > system(paste('cp -R', shQuote(pkgSrcPath), shQuote(tempdir()))) > pkgPath <- file.path(tempdir(), "Pkgs") > ## pkgB tests an empty R directory > dir.create(file.path(pkgPath, "pkgB", "R"), recursive = TRUE, + showWarnings = FALSE) > p.lis <- if("Matrix" %in% row.names(installed.packages(.Library))) + c("pkgA", "pkgB", "exNSS4") else "exNSS4" > for(p. in p.lis) { + cat("building package", p., "...\n") + r <- build.pkg(...

...a working # directory for each host to hold the temporary input and output files for the runs on that host. result.files <- paste(sep="", node, ".out") for(i in 1:length(result.files)) { file.create(result.files[i]) # result file for runs on node[i] dir.create(node[i], showWarnings=F) # working directory for model runs on node[i] } # Run genoud system.time( optim.results <- genoud(fn=drive.calib, nvars=1, max=TRUE, boundary.enforcement=1, pop.size=20, max.generations=6, wait.generations=2, default.domains=1, cluster...

...hQuote(tempdir()))) + pkgPath <- file.path(tempdir(), "Pkgs") + # op <- options(warn = 2) # There should be *NO* warnings here! + ## pkgB tests an empty R directory + dir.create(file.path(pkgPath, "pkgB", "R"), recursive = TRUE, + showWarnings = FALSE) + p.lis <- c("pkgA", "pkgB", "exNSS4") + for(p. in p.lis) { + cat("building package", p., "...\n") + r <- build.pkg(file.path(pkgPath, p.)) + cat("installing package", p., "using file&qu...

Hello all, I have files (see attached) which are created daily. I want to load about a weeks worth of them (7 daily files) and plot a weeks worth of one variable together. So one variable name is delta_D_H. I would like to plot this variable from all 7 days on one plot. I'm having trouble figure out how to do this. I've loaded them all up using this time=Sys.time() t1<-

R-developers: Duncan Murdoch suggested I move a post I started on r-help over here, since it is more at the developer level. Here is my question/challenge -- to my knowledge, there is not currently an official way to store a *package*'s options to a standardized location on a user's computer. Given that OS-level programs have standard preference locations, I was hoping to first assess:

...s(pkgPath)) { + message("No valid 'pkgPath' (from 'pkgSrcPath') - exit this test") + if(!interactive()) q("no") + } > > ## pkgB tests an empty R directory > dir.create(file.path(pkgPath, "pkgB", "R"), recursive = TRUE, + showWarnings = FALSE) > p.lis <- c(if("Matrix" %in% row.names(installed.packages(.Library))) + c("pkgA", "pkgB", "pkgC"), + "exNSS4", "exSexpr") > InstOpts <- list("exSexpr" = "--html") > pk...