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電気自動車の充電動作に関するデータが含まれているデータフレームである：ここでは私のサーバーのコードです。コンソールは、このサーバスクリプトの20行目で私のスクリプトがクラッシュすると言うので、filteredDataの部分が定義されています。 reactive({})対reactive()などを使用して、ソース変数を反応させるかどうかを試したような気がします。

Answer 1

多分このコードはあなたを助けることができます。

NB：
1 /私は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() 
})