从闪亮的应用程序RStudio中提取信息

问题描述

我正在尝试将用户提供的一些变量从一个闪亮的应用程序提取到另一个。这可能吗？我正在尝试做这样的事情：

library(shiny)

# App 1 -------------------------------------------------------------------
ui <- fluidPage(
    sliderInput("obs","Number of observations:",min = 1,max = 50,value = 30),plotOutput("hist")
)

server <- function(input,output) {
    output$hist <- renderPlot({
      # A plot
      hist(rnorm(input$obs))
    })
}

# Run the application 
shinyApp(ui = ui,server = server)

# App 2 -------------------------------------------------------------------    
ui <- fluidPage(
    plotOutput("hist2")
)

server <- function(input,output) {
    output$hist2 <- renderPlot({
      # A plot
      hist(rexp(input$obs))
    })
}

# Run the application 
shinyApp(ui = ui,server = server)

您可以看到，我在询问用户一个应用程序中的观察次数，但在另一个应用程序中，我只是尝试使用相同的变量。我知道这行不通，但是我想做这样的事情。实际上，我使用了两个不同的Shiny Apps，而不是一并使用，实际上我想将其放在RMarkdown上。反正有什么建议吗？

解决方法

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

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

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