如何解决 R Shiny 中的“找不到对象“ui”和 render.obj 问题

Question

我在 shiny 中构建了一个应用程序。 我想在 R Shiny 上查看 my.obj 文件。 但是，有时我会收到“找不到对象"ui" not found"错误，有时会".object 'output' not found"错误。 我该如何解决这个问题？

我的代码

library(shiny)
library(shinythemes)
library(shinyWidgets)
library(markdown)


#ui part
shinyApp(
  ui = fluidPage(
    theme = shinytheme("cyborg"), 
    titlePanel(
      "Confocal"),
    mainPanel(
      tabsetPanel(
        tabPanel(("More_4"),
                 dataM <- reactive({
                   library(rgl)
                   
                   open3d()
                   shade3d(readOBJ("tirtil.obj", material = list(color = "green",
                                                                                                                            shininess = 1)))
                 })
                 output$tableOutput <- renderDataTable({
                   dataM()
                 })#sekme
         )
      )
    )
  ),
  
  server = function(input, output) {}
)

#

shinyApp(ui = ui, server = server)