R Блестящее определение серверной переменной. измененное значение не отражается

Question

Может быть, основной вопрос.Но не смог найти решение в сети.

Проблема в том, что я хочу определить переменную в server.r, как показано ниже

function(input, output, session) {

  currentrunid <- ""

Затем, нажав кнопку submit, я хочу присвоить ей значение.

  observeEvent(input$submit, {
    currentrunid <- 1234  #Its dynamic

Затем, нажав кнопку status, я хочу получить значение переменной.Переменная используется для извлечения файлов, сгенерированных как часть отправки.

observeEvent(input$checkstatus,{
   runid <- currentrunid
   Getoutputfiles(runid) 

Но проблема в том, что значение, назначенное при отправке Кнопка не доступна при нажатии кнопки Статус.

Пробовал session$currentrunid <- 1234 Но получил ошибку, как показано ниже cannot add bindings to a locked environment

Я использовал <<- Но мне предложили, я не должен использовать это, вместо этого я должен использовать reactive переменную.Но пока не смог успешно его реализовать.

Пожалуйста, дайте мне знать, что является лучшей практикой здесь.Или как реализовать reactive

Answer 1

Я не понимаю, что вы хотите сделать, поэтому я не уверен, что этот ответ уместен.Может быть, вам нужно реактивное значение, например:

function(input, output, session) {

  currentrunid <- reactiveVal()

  observeEvent(input$submit, {
    currentrunid(1234) # this assigns 1234 
  })

  # to get the value, do currentrunid(), for example:
  observe({
    print(currentrunid())
  })

  ......