将闪亮的应用程序保存为功能

Question

我正在尝试构建一个小型闪亮的应用程序，我希望将其另存为一个函数（该方法已解释here）

虽然应用程序正常，但我遇到了一个奇怪的问题。我的应用程序呈现一个情节（在其他一些输出中）。但是，绘图并不总是在浏览器上呈现。有时，绘图显示在R Studio的输出窗格中。并且该行为似乎是相当随机的（即，有时它可以正确显示在浏览器上的绘图，而通常输出只是在R Studio上绘制）

我在下面提供了一个非常简化的代码版本，保留了应用程序的关键元素和结构：

sampleApp＆lt; - function（input_data，y）{

require(shiny)
shinyApp(
ui = fluidPage(
  sidebarLayout(
    sidebarPanel(uiOutput("variables"),
                 selectInput........#add other input widgets

    mainPanel(plotOutput("plot_output"),
              dataTableOutput...#few other output

  )
), 
server = function(input, output) {

  funcA <- reactive({
  #Generates a formula expression basis user inputs
  })

  fun_plot <- reactive({
    #Generates a plot output, calls funcA in the process
  })


  event_output <- eventReactive(input$ActButton,{

   # I have an action button..The plot (and other output) gets updated
   # when the button is clicked..
  })

  output$plot_output <- renderPlot({

    event_output()$plot_output

  })

  # other render output functions      
  }
 )
}

非常感谢任何输入/指导！

由于