RShiny : 활성 반응 컨텍스트없이 작동이 허용되지 않습니다.

Question

저는이 솔루션을 사방에 보았습니다. 그러나 내 situtation에 대해 RShiny에서 Operation not allowed without an active reactive context. 오류를 제거하는 방법을 알아낼 수 없습니다. 여기

library(ggplot2) 

# Surprisingly there is no correlation between charged kw and time 
s <- data[,14:16] 
s <- s[complete.cases(s),] 
cor(s$charged_kwh, s$connected_time_hours) 

car_types <- data %>% group_by(car) %>% 
    summarise(nrUsers = n_distinct(user_id), n=n()) %>% 
    filter(car!="Unknown", car!= " ") %>% 
    arrange(desc(nrUsers)) 

# Connected hours vs actually charging hours 
carged_cars <- reactive({ 
    data %>% 
    filter(!is.na(charged_kwh)) %>% 
    mutate(charging_time = charged_kwh/kw_charge_point_speed) 
}) 

filteredData <- carged_cars()[carged_cars()$start_date >= input$cvc_date_diagram[1] & carged_cars()$start_date <= input$cvc_date_diagram[2] & 
    carged_cars()$connected_time_hours <= input$cvc_max,] 

connTimeVsStart <- ggplot(reactive(filteredData), aes(x=start_date, y=connected_time_hours)) + 
    geom_point(shape=16) + 
    geom_point(reactive(filterData), aes(x=start_date, y=charging_time), col='red') + 
    ggtitle("Charging time") 

output$connTimeVsStart <- renderPlot({ 
    d <- data() 
    connTimeVsStart 
}) 

data 전기 자동차 충전 동작에 대한 데이터를 포함하는 dataframe입니다 : 여기 내 서버 코드입니다. 콘솔은이 서버 스크립트의 20 번째 줄에서 내 스크립트가 충돌하므로 filteredData이 정의 된 부분을 말합니다. 나는 소스 변수를 반응 적으로 만들지, 또는 사용하지 않고 모든 조합을 시도한 것처럼 느낀다. reactive({}) 대 reactive() 등등. 아무도 내가 잘못하고있는 것을 발견 할 수 있습니까?

Answer 1

아마도이 코드가 도움이 될 수 있습니다.

는 NB :
1/I가 car_types
2의 사용을 볼 수 없습니다/나도 몰라 어디 변수 data

library(ggplot2) 

# Surprisingly there is no correlation between charged kw and time 
s <- data[,14:16] 
s <- s[complete.cases(s),] 
cor(s$charged_kwh, s$connected_time_hours) 

car_types <- data %>% group_by(car) %>% 
    summarise(nrUsers = n_distinct(user_id), n=n()) %>% 
    filter(car!="Unknown", car!= " ") %>% 
    arrange(desc(nrUsers)) 

# Connected hours vs actually charging hours 
carged_cars <- reactive({ 
    data %>% 
    filter(!is.na(charged_kwh)) %>% 
    mutate(charging_time = charged_kwh/kw_charge_point_speed) 
}) 

filteredData <- reactive({ 
    req(carged_cars()) 
    req(input$cvc_date_diagram) 
    carged_cars()[carged_cars()$start_date >= input$cvc_date_diagram[1] & carged_cars()$start_date <= input$cvc_date_diagram[2] & 
     carged_cars()$connected_time_hours <= input$cvc_max,] 
}) 

connTimeVsStart <- reactive({ 
    ggplot(filteredData(), aes(x=start_date, y=connected_time_hours)) + 
     geom_point(shape=16) + 
     geom_point(reactive(filterData), aes(x=start_date, y=charging_time), col='red') + 
     ggtitle("Charging time") 
}) 

output$connTimeVsStart <- renderPlot({ 
    connTimeVsStart() 
})