Я делаю панель инструментов в R с flexdashboard, и я использую блестящий, чтобы иметь интерактивную панель.Проблема заключается в следующем: у меня есть один график, который не отображается в браузере, но отображается в средстве просмотра Rstudio и обновляется каждый раз, когда я использую кнопку selectInput.Я не понимаю, почему это не работает в моем браузере
g<-renderPlot({
data <- products[category == input$Cat]
data<-data[order(-n_sold)][1:10]
data<-data[,c("link","n_sold")]
nprods <- 10
highchart() %>%
hc_chart(type = "bar") %>%
hc_xAxis(categories =data$link) %>%
hc_add_series(name ="number sold",data = data$n_sold)%>%
hc_add_theme(thm)%>%
hc_plotOptions(
series = list(
cursor = "pointer",
point = list(
events = list(
click = JS( "function () { location.href = this.category; }")
)
)
)
)
})