On 10/07/2015 8:43 AM, just_rookie wrote:
> I created some 3D cubes by using "rgl" package. The next step is to embed the
> 3D plot("rgl" device) into "ggraphics" device from the "gWidgets" package,
> but I have no idea how to implement it. Is there a way to implement by
> "gWidgets" or other package? Any help? Thank you in advance!
Is there an existing widget that displays HTML, and can display WebGL?
Then it's probably easiest to use rgl::writeWebGL to create the
Javascript code, and that other widget to display it.
If you want it displayed using native OpenGL code, it's likely a lot
more work. On Windows it's probably easiest; I don't know how hard it
would be to do on other platforms. I would not personally spend any
time on it.
Duncan Murdoch
> My code:
> library(rgl)
> library(scatterplot3d)
> library(gWidgets)
> options(guiToolkit="RGtk2")
>
>
> df<-data.frame(x=c(1,2,3,4),
> y=c(2,4,6,8),
> z=c(3,6,9,12),
> value=c(33,43,75,21))
>
> clr <- df$value/max(df$value)
> f <- colorRamp(c("green", "yellow", "purple", "red"))
>
> ## 3D PLOT
> for(i in 1:length(df$x)){
> shade3d(translate3d(scale3d(cube3d(col=rgb(f(clr[i])/255),alpha=0.15 ),
> 10.0, 10.0,
> 2.5),df$x[i],df$y[i],df$z[i]))
> }
>
> window <- gwindow("TEST", width = 800, height= 600, visible = FALSE)
> group <- ggroup(cont = window, expand = TRUE)
>
> loadBtn <- gbutton("display", cont = group)
>
> addHandlerChanged(loadBtn, handler = function(h,...){
> sudwin<-gwindow("3D",visible = TRUE)
> dev <- ggraphics(cont=subwin)
> #### DO NOT KNOW HOW TO DO NEXT...
> })
> visible(window)<-TRUE
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
