ord_cartesian не работает в блестящем приложении

Question

Попытайтесь динамически c изменить график с помощью координирующим механизмом в моем блестящем приложении, однако я получил ошибку: пропущено значение, где требуется ИСТИНА / ЛОЖЬ. Если я удаляю скоординированную_карту, график отображается, но динамическое увеличение больше не выполняется. Вот примеры кодов: для входных значений

sliderInput(inputId = "xrange",'Day range',min=-30 ,max=60,value=c(0,15))

реагирует на получение значений xrange:

  xrange <- reactive({
    cbind(input$xrange[1],input$xrange[2])
  })

renderPlot для динамического отражения изменений:

 output$lineplot <- renderPlot({
    ggplot(data=city_predicted(),aes(x =day, y=value))+ 
      geom_line(aes(group=variable,colour=variable),lty=5)+
      geom_vline(aes(xintercept=0),lty=15)+
      geom_line(data=city_selected(),aes(x=day, y=value),lty=1)+
      ylab('Measures')+
      xlab('Days from Now')+
      scale_x_continuous()+
      coord_cartesian(xlim = xrange())+ 
      theme(legend.title = element_blank())+
      facet_wrap(.~variable)
  })

Любые предложения ? Спасибо!