My goal is to display my mouse image with .obj extension on R Shiny. I also want to be able to zoom in - out this 3d image. However, I cannot adapt my code that I run with rgl in R to Shiny.

library(shiny) 
library(rgl)

shinyApp(
  ui = fluidPage( open3d() shade3d(readOBJ("images/mice.obj", material= list(color = "green", shininess = 1)))
  ),   ###  ShinyApp(ui = ui, server = server)