Рендеринг 3D-графики в R блестящей уценкой - PullRequest
Новая
       20

Рендеринг 3D-графики в R блестящей уценкой

0 голосов
/ 16 апреля 2019

У меня есть рабочий код для блестящего файла уценки.Сюжет, который я пробую, представляет собой 3D-график, который будет отображаться как блестящий документ уценки, а не как приложение.

Код работает, но 3D-график появляется в новом окне и не отображает его в HTML.

Вот воспроизводимый пример.

---
title: "test"
date: "April 16, 2019"
output: html_document
runtime: shiny
---

knitr::opts_chunk$set(echo = TRUE)
knitr::opts_chunk$set(fig.pos = 'H')
library(kableExtra)
library(rgl) # plot3d
library(knitr)
library(shiny)
knit_hooks$set(webgl = hook_webgl, rgl = hook_rgl)


inputPanel(selectInput('x', label = 'x axis:', choices = colnames(mtcars)[1:7], selected = 'mpg'), 
           selectInput('y', label = 'y axis:', choices = colnames(mtcars)[1:7], selected = 'cyl'),
           selectInput('z', label = 'z axis:', choices = colnames(mtcars)[1:7], selected = 'hp'))

renderPlot({
  plot3d(mtcars[, input$x], mtcars[,input$y], mtcars[,input$z],
         size = 4, 
         xlab = paste('Feat. ', input$x, sep = ''), 
         ylab = paste('Feat. ', input$y, sep = ''),
         zlab = paste('Feat. ', input$z, sep = ''), 
         type = 'p', col = rainbow(3)
                      )
  rglwidget()

})

Выход

enter image description here

enter image description here

Любые подсказки, что я здесь скучаю?

Большое спасибо.

...