Блестящее редактирование данных

Question

У меня есть ограничения, и в соответствии с этими ограничениями я назначаю сегменты клиентам. Но я хочу изменить ограничения в пользовательском интерфейсе и сразу вычислять сегменты в фоновом режиме. Так вот мой код.

shinyServer(function(input, output) {


  Customer$Segment <- reactive({

onetimer <- input$onetimer 
firstcons <- input$firstcons 
secondcons <- input$secondcons 
rental1 <- input$rental1 
rental2 <- input$rental2 

ifelse(Customer$Rentals < rental1 & Customer$TotalPayment <= firstcons, "One-Timer",
......)

output$result <- renderText({Customer$Segment})

Прослушивание http://127.0.0.1:6199 Предупреждение: ошибка в респ: попытка реплицировать объект типа «замыкание» 49: $ <-. data.frame 47: сервер [\ srvfps281 \ belge \ clm24522 \ Segmentasyon / server.R # 15] Ошибка в rep (value, length.out = nrows): попытка воспроизвести объект тип 'закрытие' </p>

Как я могу редактировать свои данные с блестящими?

Answer 1

Вы создаете реактивную переменную, и вы должны обратиться к ней немного по-другому. Однако, пожалуйста, поделитесь немного больше кода, так как ваш код, кажется, имеет более одной проблемы. RenderText не будет работать со списками, кроме адресации переменной.

# create 
Customer <- reactive({
  # do something

  # return list
  return(list(Segment=list(onetimer=onetimer))) 
})

# output
output$result <- renderText({
  paste(unlist(Customer()$Segment),collapse="\n")
})