R Shiny - передача пользовательского ввода в виде глобальной строки

Question

Как мне принять пользовательский ввод и сохранить как строку окружения на сервере.R?

Вот пример (который выдает ошибку):

library(shiny)

# Define the UI

n <- 100

ui <- bootstrapPage(
  numericInput('n', 'Number of obs', n),
  textOutput('count_new')
)

# Define the server code
server <- function(input, output) {

  count <- as.numeric(renderText({input$n}))
  output$count_new <- renderText({count/10})

}

# Return a Shiny app object
shinyApp(ui = ui, server = server)

Answer 1

Нашел решение. Ключ должен использовать reactive перед вводом. Затем можно вызвать переменную, за которой следует ().

library(shiny)

# Define the UI

n <- 100

ui <- bootstrapPage(
  numericInput('n', 'Number of obs', n),
  textOutput('count_new')
)

# Define the server code
server <- function(input, output) {

  count <- reactive({input$n})
  output$count_new <- renderText({count()/10})

}

# Return a Shiny app object
shinyApp(ui = ui, server = server)