similar to: return from nested function?

In package A I have askForString(), which asks the user for a string. Also in package A I have defined ssh(), which calls askForString(). Package B has package A as a prerequisite. In package B I redefine askForString() to take advantage of a nicer user interface made available by B, namely the Emacs mini-buffer prompt. Packages B and A are both on the search path, with B ahead of A. If I call

I'm writing a package that interfaces to the FAME database, via a library of compiled C routines accessible through a Linux .so file. My .onLoad() function loads the .so like this: dyn.load("/opt/fame/timeiq/lib/linux_x86/libjchli.so", local = F) and after that I also load my own fame.so via library.dynam("fame", package = "fame") The code in fame.so uses

One hassle I could do without is the necessity of writing C wrapper functions like this: void fameInit(int *status){ cfmini(status); return; } when I want to call a library function (cfmini, in this case) that takes an int argument. The .C interface only lets me pass a pointer to an int, rather than the int itself. Is there any chanch that .C could be enhanced to allow passing arguments by

I have an S3 class called "tis" (Time Indexed Series) which may or may not have multiple columns. I have a function "[<-.tis" that I've reproduced below. My question is this: inside of "[<-.tis", how can I distinguish between calls of the form x[i] <- someValue and x[i,] <- someValue ? In either case, nargs() is 3, and looking at the values

I have an S3 class called "tis" (Time Indexed Series) which may or may not have multiple columns. I have a function "[<-.tis" that I've reproduced below. My question is this: inside of "[<-.tis", how can I distinguish between calls of the form x[i] <- someValue and x[i,] <- someValue ? In either case, nargs() is 3, and looking at the values

Full_Name: Jeff Hallman Version: 1.2.2 OS: Solaris Submission from: (NULL) (132.200.32.33) "boink<-" <- function(x, a = 1, b = 2, value){ print(match.call()) x } > z <- 1 > boink(z, b = 4) <- 22 boink<-(x = *tmp*, a = 4, value = 22) > Shouldn't it have matched the 4 to b, not a?

Full_Name: Jeff Hallman Version: 2.0 OS: Linux Submission from: (NULL) (132.200.32.34) The function findGeneric() in the utils namespace contains this internal function: isUME <- function(e) { if (is.call(e) && (is.name(e[[1]]) || is.character(e[[1]]))) { switch(as.character(e[[1]]), UseMethod = as.character(e[[2]]), "{" =

My fame package has to link to the libchli.so that comes with FAME. However, FAME is now supplying both 32 and 64 bit versions of the library. The 32-bit version is $FAME/hli/libchli.so while the 64-bit version is $FAME/hli/64/libchli.so. To set the right flags, it seems that I need to know, from within configure.ac, whether the R installation is 32 bit or 64 bit. Is there a way to detect this?

When should we use one versus the other? If I'm designing an S3 class "blah", should I just implement blah <- function(x, ...) UseMethod("blah") and then a bunch of blah.whatever() functions, including blah.default()? Or should I do as.blah <- function(x, ...) UseMethod("as.blah") with a bunch of methods for it? Or do both? Jeff

Has anyone written a matrix editor or data.entry() replacement using the Tk table widget? I've been playing around with the examples at http://bioinf.wehi.edu.au/~wettenhall/RTclTkExamples/tktable.html and making some progress, but I'd rather not spend much time on this if someone else has already done it. Jeff

I'm working on a matrix editor using the Tk table widget, and it is almost done. It slices, dices, etc., and it can paste into Excel from an R session running on Linux. What I don't know how to do is paste from Excel into a Tk table, and Google is not helping me. Can anyone lend me a clue? Jeff

I have a few functions, such as screenWidth() and screenHeight(), which I have been able to implement for a Unix/Linux environment, but not for Windows. (Does anyone know how to find the screen dimensions in Windows?) The Writing R Extensions manual tells me how to include platform-specific sections in documentation, and even how to have platform-specific help files. But it doesn't say

Full_Name: Jeff Hallman Version: 2.3.1 OS: Windows Submission from: (NULL) (132.200.32.34) Internal(format.POSIXlt(as.POSIXlt(Sys.time()), "%Y%m%d%q", F)) Linux R-2.2.1 returns "20060613%q". Windows R-2.3.1 returns "20060613" dropping the "%q". The documentation says "Any character in the format string other that the '%' escape

In Splus, I often use graphics windows with a black background and white foreground. The S print.graph() function sends the current plot to my printer but with a white background and black foreground. I'd like to be able to do something similar in R, but can't figure out how. I've tried various permutations of dev.copy() and dev.print(), but it seems that the foreground color is

Dear WizaRds, After consulting different sources I am still unable to understand the correct use of return() in nested functions. To illustrate the problem: f <- function(x,y,type){ est1<-function(x,y){ z=x+y out(x,y,z)} est2<-function(x,y){ z=x*y out(x,y,z)} out<-function(x,y,z) return(x,y,z) if (type=="est1") est1(x,y) if (type=="est2") est2(x,y) }

I am the maintainer of the 'tis' package. One of the functions in my package is 'nberShade'. A user wants to make nberShade generic, with the old version renamed as nberShade.default, all of which is fine with me. And he wants to add a new method, nberShade.ggplot, which works for objects of class ggplot. He also wants to add a method fortify.tis for the generic fortify defined

Dear helpers, I've got a main script, which calls 4 times a function on 4 different datasets respectively. This function runs "nls" and is located in another R script which is sourced into my main script. What I would like to have is this: If, e.g. in the 3rd call of the function, nls fails, because it can't converge, I would like it to return an error (value or message), and

Hi, I'm using the uniroot function, and would like to detect an error which occurs, for instance, when the values at endpoints are not of opposite signs. For example: uniroot( function(x) x^2+1, lower=1, upper=2 ). I want to say something like: if "error in uniroot(...)" return NA else return uniroot$root Thanks a lot! Asaf -- View this message in context:

Hello, I run a fisher.test() in a loop, with the issue that some of the data will not be useable. To protect the loop I used tryCatch but: sexsnp = rep(NA, 1750) for(i in 1:1750){tryCatch(sexsnp[i] = fisher.test(table(data[,3], data[,i + 38]))$p, error = function(e) print(NA))} Error: unexpected '=' in "for(i in 1:1750){tryCatch(sexsnp[i] =" But this works: for(i in

Sebastian Pop wrote: > same mechanism could be useful. It would be nice to be able to write this: > > def insn : Inst<(outs i32:$dst), (ins i32:$src1, i32:$src2), > "some assembler", > [(set $dst, (Op $src1, $src2))]>; >From the PPC changes, I see that this is already possible under a slightly different form: def FSUBS :