为什么当输入数据集发生变化时，scatterplot3js会覆盖图？

Question

我正在尝试使用scatterplot3js并为其提供不同的数据集。但是，如果我更改数据集，它会尝试将它们一起绘制。我试图更改渲染器（renderer ='webgl'）它不起作用。

library(threejs)
library(shiny)
get.dt <- function(x) switch(x, rock = rock, mtcars = mtcars)
app <- shinyApp(
     ui = bootstrapPage(
       selectInput("data", "dataset", c("rock", "mtcars") ),
       scatterplotThreeOutput('plot')
     ),
     server = function(input, output) {
       output$plot <- renderScatterplotThree({ 
       data <- get.dt(input$data)
       scatterplot3js(as.matrix(data[,1:3]))
  })
     }
   )
   runApp(app)
 }