r - Assigning namespace variables inside of a function -


i'm struggling assign namespace variable inside of function. consider example using cran package "qcc": qcc() generates plot, display options of plot controlled qcc.options().

when working in global, fine:

library(qcc) qcc.options(bg.margin="red")        # sets margin background colour, i.e.                                     # qcc:::.qcc.options$bg.margin "red" qcc(rnorm(100), type = "xbar.one")  # generates plot red margin

but when working in local environment of function, qcc , qcc.options seem use namespace differently:

foo <- function(x){    qcc.options(bg.margin=x)    qcc(rnorm(100), type = "xbar.one") }  foo("green")  # generates default plot grey margins

this because of qcc.options stores .qcc.options variable. working in global, qcc:::.qcc.options, when you're inside function, storing in local variable called .qcc.options, when try use plot.qcc (called qcc) retrieves options global (non-exported) qcc:::.qcc.options rather local .qcc.options.

here's function shows what's happening options:

bar <- function(x){    pre <- qcc:::.qcc.options    pre.marg <- qcc.options("bg.margin")    qcc.options(bg.margin=x)    post1 <- qcc:::.qcc.options    post2 <- .qcc.options    post.marg <- qcc.options("bg.margin")    qcc(rnorm(100), type = "xbar.one")    list(pre,post1,post2,pre.marg,post.marg) } bar('green')

if @ results, you'll see qcc.options creates local variable , changes value of bg.margin "green" isn't object that's subsequently referenced plot.qcc.

seems should request code modifications package maintainer because not best setup.

edit: workaround use assigninnamespace use local variable overwrite global one. (obviously, changes parameter globally , affect subsequent plots unless parameter updated.)

foo <- function(x){    qcc.options(bg.margin=x)    assigninnamespace('.qcc.options',.qcc.options,ns='qcc')    qcc(rnorm(100), type = "xbar.one") } foo('green')

enter image description here


Comments

Post a Comment

Popular posts from this blog

php - Add the correct number of days for each month -

using following function can display years , months between 2 dates, how can add correct days each month array within each month? can't add days manually need account leap years etc. function yearmonth($start_date, $end_date) { $begin = new datetime( $start_date ); $end = new datetime( $end_date); $interval = new dateinterval('p1m'); // 1 month interval $period = new dateperiod($begin, $interval, $end); foreach ( $period $dt ) $years[$dt->format( "y" )][] = $dt->format( "f" ); return $years; } $list = yearmonth("2007-03-24", "2009-06-26"); var_dump($list); since nobody else answered: function yearmonth($start_date, $end_date) { $begin = new datetime( $start_date ); $end = new datetime( $end_date); $interval = new dateinterval('p1d'); // 1 month interval $period = new dateperiod($begin, $interval, $end); $lastmonth = null; $lastyear = null; $aresult = array(); forea...
Read more

java.util.scanner - How to read and add only numbers to array from a text file -

i'm learning java , have question regarding reading file want read numbers file contains strings well. here example of file: 66.56 "3 java 3-43 5-42 2.1 1 and here coding: public class test { public static void main (string [] args){ if (0 < args.length) { file x = new file(args[0]); try{ scanner in = new scanner( new fileinputstream(x)); arraylist<double> test = new arraylist<>(); while(in.hasnext()){ if(in.hasnextdouble()){ double f=in.nextdouble(); test.add(f);} else {in.next();} } catch(ioexception e) { system.err.println("exception during reading: " + e); } } my problem add 66.56,2.1 , 1 doesn't add 3 after "3 or ignores 3-43 , 5-42 can tell me how skip strings , add doubles here? thanks all said 3 ie; "3, 3-43 , 4-42 strings either u read string , split , check number @ " , - or put in space between characters , integers. jvm after compilation tre...
Read more