search for: catn

...uot; ### end tcl code Now paste event generate .wtop <<EVENT>> -data abcdef I see the output evresp1 abcdef evresp2 abcdef Both evresp1 and evresp2 got called in response to the event and both got the data. Then paste the following into an R session ### begin R code library(tcltk) catn = function(...) { cat(...,'\n') } wtop = tktoplevel() evresp1 = function(d) { catn('evresp1',d) } evresp2 = function(d) { catn('evresp2',d) } tkbind('all','<<EVENT>>',evresp1) .Tcl(paste('proc evresp2 { d } { ', .Tcl.callback(evresp2),'...

...ENT>> -data abcdef > > I see the output > evresp1 abcdef > evresp2 abcdef > > Both evresp1 and evresp2 got called in response to the event and both > got the data. > > Then paste the following into an R session > > ### begin R code > library(tcltk) > catn = function(...) { cat(...,'\n') } > wtop = tktoplevel() > evresp1 = function(d) { catn('evresp1',d) } > evresp2 = function(d) { catn('evresp2',d) } > tkbind('all','<<EVENT>>',evresp1) > .Tcl(paste('proc evresp2 { d } { ', .T...

...------- - seg.len <- 2 # length of drawn segment, in xchar units - ok.l <- if(missing(lty)) { lty <- 1; TRUE } else lty > 0 - if(missing(lwd)) lwd <- par("lwd") - lty <- rep(lty, length.out = n.leg) - lwd <- rep(lwd, length.out = n.leg) - if(trace) - catn(" segments2(",xt[ok.l] + x.off*xchar ,",", yt[ok.l], - ", dx=",seg.len*xchar,", dy=0, ...)", sep="") - segments2(xt[ok.l] + x.off*xchar, yt[ok.l], dx= seg.len*xchar, dy=0, - lty = lty[ok.l], lwd = lwd[ok.l], col = col[ok.l]) -...

...8 , pch= 1 2 ...) On the line starting by "segment2", the coordinates are not separated by a space like on the line starting by "points2". My recommendation is to remove the option `sep = ""' in this part of code in legend(). [...] if (trace) catn(" segments2(", xt[ok.l] + x.off * xchar, ",", yt[ok.l], ", dx=", seg.len * xchar, ", dy=0, ...)", sep = "") [...] Sincerely, Jerome Asselin

...------- - seg.len <- 2 # length of drawn segment, in xchar units - ok.l <- if(missing(lty)) { lty <- 1; TRUE } else lty > 0 - if(missing(lwd)) lwd <- par("lwd") - lty <- rep(lty, length.out = n.leg) - lwd <- rep(lwd, length.out = n.leg) - if(trace) - catn(" segments2(",xt[ok.l] + x.off*xchar ,",", yt[ok.l], - ", dx=",seg.len*xchar,", dy=0, ...)", sep="") - segments2(xt[ok.l] + x.off*xchar, yt[ok.l], dx= seg.len*xchar, dy=0, - lty = lty[ok.l], lwd = lwd[ok.l], col = col[ok.l]) -...

Hi, are there any plans to add a colorbar legend to image()? Or such a possibility already implemented which I just haven't discovered yet. Anyway, I will be willing to spent some time on the implementation if there isn't anyone working on that already. Thanks Thomas -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-devel mailing list -- Read

Hi, The next CentOS Dojo is coming to Aldershot, UK - a 45 min train ride from London Waterloo station - on the 12th July 2013. We have a great, and growing list of speakers already on the agenda, and another few waiting to confirm. And, the venue sponsors - catn.com - are going to organise a hog roast barbecue and beet for everyone attending once the talks are done ( 4pm'ish ). So another great reason to come along and say hi. Details on the day: http://wiki.centos.org/Events/Dojo/Aldershot2013 Registration URL : http://centosdojoaldershot.eventbrite....

Hi all, I have two prodction servers with FreeBSD 5.4 (all security patches are applied). They running some services like dns, ssh, http, ftp, etc. But I woukd like to encrypt some services for some hosts with ipsec when it is accessed. For example: - DNS resolution: not encrypted. - DNS replication master-slave: encrypted by ipsec. - Telnet: encrypted by ipsec for some hosts. Deny

Dear all, maybe I have misunderstood something but to me it seems like a minor error in the help for ?legend for the argument 'bg'. There it says: bg: the background color for the legend box. (Note that this is only used if 'bty = "n"'.) I think, however, that it should be changed to: bg: the background color for the legend box. (Note that this

..., cex = 1, pt.cex = cex, pt.lwd = par("lwd"), xjust = 0, yjust = 1, x.intersp = 1, y.intersp = 1, adj = c(0, 0.5), text.width = NULL, text.col = par("col"), merge = do.lines && has.pch, trace = FALSE, @@ -178,8 +178,8 @@ if(trace) catn(" points2(", x1,",", y1,", pch=", pch[ok],", ...)") if(plot) - points2(x1, y1, - pch = pch[ok], col= col[ok], cex= pt.cex[ok], bg= pt.bg[ok]) + points2(x1, y1, pch = pch[ok], col = col[ok], cex = pt.cex[ok], +...

Hello, I've got a situation where I have a couple of vm's running at 300+% cpu on the hypervisor: 9893 qemu 20 0 13.0g 8.2g 4256 S 328.0 4.3 59793:17 qemu-kvm Yet the load within the vm is in the regions of: 1.00, 1.02, 0.98 Everything is reporting OK on both the hypervisor & guest, guest is a qcow2 image on