2017-05-22 17 views
1

に回転していないが、我々は別の問題につまずいているように見えますコード例:rgl.open(useNULL=T)rgl.open(useNULL=F)を変更RGLは、マウスの左ボタンをクリック

library(rgl) 
library(car) 
library(shiny) 

cars$time <- cars$dist/cars$speed 

ui <- fluidPage(
    hr("how do we get the plot inside this app window rather than in a popup?"), 
    rglwidgetOutput("plot", width = 800, height = 600) 
) 

server <- (function(input, output) { 

    output$plot <- renderRglwidget ({ 
    rgl.open(useNULL=F) 
    scatter3d(x=cars$speed, y=cars$dist, z=cars$time, surface=FALSE, ellipsoid = TRUE) 
    rglwidget() 

    }) 

    }) 
shinyApp(ui = ui, server = server) 

が表示からポップアップを停止しますが、いずれの場合には、光沢のあるページでRGLはZOOMを行いますが、回転しません。

それは、マウスの左クリックが認識されないときにマウスの右クリック・レジスタと作品は、...

> sessionInfo() 
R version 3.3.3 (2017-03-06) 
Platform: x86_64-w64-mingw32/x64 (64-bit) 
Running under: Windows >= 8 x64 (build 9200) 

locale: 
[1] LC_COLLATE=English_United States.1252 LC_CTYPE=English_United States.1252 LC_MONETARY=English_United States.1252 
[4] LC_NUMERIC=C       LC_TIME=English_United States.1252  

attached base packages: 
[1] stats  graphics grDevices utils  datasets methods base  

other attached packages: 
[1] shiny_1.0.0 car_2.1-4 rgl_0.97.0 

loaded via a namespace (and not attached): 
[1] Rcpp_0.12.9  knitr_1.15.1  magrittr_1.5  splines_3.3.3  MASS_7.3-45  xtable_1.8-2  lattice_0.20-34 
[8] R6_2.2.0   minqa_1.2.4  tools_3.3.3  nnet_7.3-12  pbkrtest_0.4-7  parallel_3.3.3  grid_3.3.3   
[15] nlme_3.1-131  mgcv_1.8-17  quantreg_5.33  MatrixModels_0.4-1 htmltools_0.3.5 yaml_2.1.14  lme4_1.1-13  
[22] digest_0.6.11  Matrix_1.2-8  nloptr_1.0.4  htmlwidgets_0.8 mime_0.5   SparseM_1.77  jsonlite_1.2  
[29] httpuv_1.3.3  
+1

'sessionInfo()'の出力を投稿に追加した方が効果的でしょうか。 –

答えて

3

あなたのシーンがmouseModeは「極性」(おそらくscatter3dが設定されているため)を使用しているようです。そのモードは現在rglwidgetコードでは実装されていません。

回避策は、rglwidget()を呼び出す前にmouseModeを "trackball"に設定することです。出力$ plotでこれを書いてください:

open3d(useNULL=TRUE) 
scatter3d(x=cars$speed, y=cars$dist, z=cars$time, surface=FALSE, ellipsoid = TRUE) 
par3d(mouseMode = "trackball") 
rglwidget() 

私の編集に注意してください:上記のコードを簡略化しました。マウスの左ボタンを設定するには、mouseModeの1つのコンポーネントを指定します。

別の編集:rglの最新バージョンは0.98.8であり、R-forgeで利用可能であり、最終的には他の場所でも使用できます(How do I install the latest version of rgl?参照)。 Rの動作と同じではありませんが、近いです。

+0

はうまく機能します!ありがとう – Mark

+0

私は別のバグuser2554330を見つけました。私はassitanceのためにあなたに手を差し伸べることができますか? – Mark

+0

rglバグレポートページにバグレポートを投稿する必要があります。これは 'bug.report(package =" rgl ")'によってリストされます。 – user2554330

関連する問題