如何在R Shiny应用中绘制.OBJ网格？报错寻求解决方案

修复rgl包的错误 #

你遇到的syntax error通常是rgl在Shiny环境中渲染上下文初始化不当导致的，可通过以下调整修复代码：

• 确保rgl.useNULL = TRUE全局生效，适配Shiny的无图形界面环境
• 移除可能干扰设备状态的try(rgl.close())，改用open3d()显式创建独立渲染设备
• 确认OBJ文件路径正确（建议将cow.obj放在Shiny项目的www目录下，使用相对路径访问）

修复后的完整代码：

library(shiny)
library(rgl)

# 全局设置rgl使用NULL设备，适配Shiny
options(rgl.useNULL = TRUE)

ui <- fluidPage(
  mainPanel(
    rglwidgetOutput("mesh", width = "800px", height = "600px")
  )
)

server <- function(input, output, session){
  
  output$mesh <- renderRglwidget({
    # 创建新的独立rgl设备
    open3d(useNULL = TRUE)
    # 读取OBJ模型（文件放在www目录下时用此路径）
    mesh <- readOBJ("www/cow.obj")
    shade3d(mesh, color = "green")
    # 生成widget后关闭当前设备，避免资源占用
    widget <- rglwidget()
    rgl.close()
    widget
  })
  
}

shinyApp(ui, server)

替代方案：使用threejs包渲染OBJ模型 #

如果rgl的兼容性问题仍存在，可尝试threejs包——它基于Three.js开发，对Shiny的适配更稳定：

1. 安装并加载threejs包
2. 使用obj_reader()读取OBJ文件，再用meshThreejs()渲染交互式网格

示例代码：

library(shiny)
library(threejs)

ui <- fluidPage(
  mainPanel(
    threejsOutput("mesh", width = "800px", height = "600px")
  )
)

server <- function(input, output, session){
  output$mesh <- renderThreejs({
    # 读取OBJ模型
    mesh <- obj_reader("www/cow.obj")
    # 渲染带背景色的交互式网格
    meshThreejs(
      vertices = mesh$vertices,
      faces = mesh$faces,
      color = "green",
      background = "#f0f0f0"
    )
  })
}

shinyApp(ui, server)

注意：两种方案中，OBJ文件都建议放在Shiny项目的www目录下，确保应用能正确读取文件。

内容的提问来源于stack exchange，提问作者SunRicq