Markdown с RShiny: вклад в глобальную среду - PullRequest
Новая
       79

Markdown с RShiny: вклад в глобальную среду

0 голосов
/ 06 мая 2020

Я хотел бы попросить пользователя ввести число во входных данных и использовать его в нескольких выходных данных, а также в виде независимых фрагментов в HTML -Markdown. Это будет означать, что я хотел бы использовать, например: 

ui <- fluidPage(

    # "Number of Simulations"
    numericInput(inputId = "n",label = "Number of Simulations",
                 value = 100000,min = 1,max = 200000)

)

# Define server logic required to draw a histogram
server <- function(input, output) {

}

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

, а затем использовать input$n вне ShinyApp. Там в любом случае? Возможно, я пытался вычислить вот такой способ: 

ui <- fluidPage(

  # "Number of Simulations"
  numericInput(inputId = "n",label = "Number of Simulations",
               value = 100000,min = 1,max = 200000)

)

# Define server logic required to draw a histogram
server <- function(input, output) {
  reactive({
    setwd("C:/Users/alarc/OneDrive/Escritorio/Experimento")
    save(input$n,file = "brl.RData")
  })

}

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

Но это не работает. Как будто блестящее приложение не может прочитать функцию save.

...