使用 rgl 包从本地磁盘绘制二维图像

问题描述

这可能很简单，但我被困了几个小时......

我不是代码示例，但我会保持简单。

我的应用查看文件夹并根据 selectizeinput 检查 STL 文件是否存在。

然后，它可以毫无问题地绘制 STL。

然而，与选择选项相比，文件夹中的 STL 数量很少。

我的目标是有一个 if 语句，如果有 STL 文件，则输出 STL（到目前为止，很好......）并输出 2D 图像（类似于 404 文件未找到）。

我查看了 rgl 文档，最后一部分（2D 图像）是我似乎无法弄清楚如何绘制它的地方...

希望我很清楚，有人能指出我正确的方向。

提前致谢。

编辑：

这里是一个代码示例来澄清

observe({
    
    req(input$slider1)
    
    # Load filenames in STL folder
    stl_files <- list.files("~www/STL/",pattern = ".stl",full.names = F)
    
    if (is.null(input$slider1)  || length(input$slider1) < 1 || input$slider1 == F || input$slider1 == "$0" || (paste0(input$slider1[1],".stl") %in% stl_files) == F ){ 
    
      output$"3D-plot_1" <- renderRglwidget({
        
     # here I would like to plot a 2D image in case the stl file does not exit and this where I'm stuck.
                
      })
      
    } else {
      
      # Create STL Plot 
      output$"3D-plot_1" <- renderRglwidget({
        
        stl_1 <- readSTL(con = paste0("~www/STL/",input$slider1,".stl"),ascii = F,plot = F)
        
        stl_centered_1 <- scale(stl_1,center = T,scale = F)
        
        options(rgl.useNULL=TRUE)
        open3d()
        
        rgl::triangles3d(stl_centered_1,aspect = "iso",col = "grey")
        bg3d("black")
        scene1 <- scene3d()
        rglwidget(scene1)
        
      })
    }
  })

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）