почему циклы R while не могут быть реализованы с блестящей рамкой?

Question

Я пытаюсь создать пользовательский интерфейс простого текстового листинга на блестящей панели инструментов. Для этого я создал функцию R, которая должна хранить каждый текстовый ввод для хранения в списке.

readtasks <- function() {

  df <- list()
  while(TRUE) {
    tasks <- readline(prompt="type your tasks: ")
    # stop reading if no text was typed in
    if (tasks == '')
      break

    # add the read data to the bottom of the list
    df <- append(df,tasks)
  }
  print(df)
}

Функция работает g, ood для моих нужд, но когда дело доходит до блеска, это показывает много ошибок. Я с нетерпением хочу знать, как это, в то время как l oop можно эффективно реализовать до блестящего. Я много ищу по этому поводу в Google и StackOverflow. Если возможно, дайте мне пример.

Спасибо

Я пытаюсь создать блестящее приложение с указанной выше функцией

ui<- fluidPage(

  textInput(inputId = "text","add"),
  actionButton("button",label = "enter"),
  verbatimTextOutput("list")
)



server<- function(input,output,session){


       df<- list()
    while(TRUE) {
      tasks <- input$text
        # stop reading if no year was typed in
        if (tasks == '')
          break

      # add the read data to the bottom of the dataframe

      df <- append(df,tasks)

      output$list<- renderprint({df})


      }

}

shinyApp(ui = ui,server = server)

, но он вылетает со следующей ошибкой

Listening on http://127.0.0.1:7598
Warning: Error in .getReactiveEnvironment()$currentContext: Operation not allowed without an active reactive context. (You tried to do something that can only be done from inside a reactive expression or observer.)
  61: stop
  60: .getReactiveEnvironment()$currentContext
  59: getCurrentContext
  55: .subset2(x, "impl")$get
  54: $.reactivevalues
  52: server [#6]
Error in .getReactiveEnvironment()$currentContext() : 
  Operation not allowed without an active reactive context. (You tried to do something that can only be done from inside a reactive expression or observer.)

Очень полезно знать, как выполнять функции с циклами while

Еще раз спасибо