обновление до последней разрабатываемой версии Shiny 0.8.0.99, по-видимому, имело некоторые негативные побочные эффекты для моих диаграмм, созданных с помощью rCharts (версия 0.4.2). В частности, я обнаружил следующие две проблемы с использованием Highcharts в своих приложениях Shiny:
- Тексты всплывающих подсказок не исчезают после активации при наведении
- Автоматическое изменение масштаба оси x/y не работает, если серия активирована/деактивирована.
Ниже вы найдете небольшой воспроизводимый пример, повторно использующий пример Highchart Раманта с его страницы GitHub.
Это автономный код Highchart, который отлично работает:
library(rCharts)
h1 <- Highcharts$new()
h1$chart(type = "spline")
h1$series(data = c(1, 3, 2, 4, 5, 4, 6, 2, 3, 5, NA), dashStyle = "longdash")
h1$series(data = c(NA, 4, 1, 3, 4, 2, 9, 1, 2, 3, 4), dashStyle = "shortdot")
h1$legend(symbolWidth = 80)
h1
Вы должны столкнуться с проблемами, описанными выше, если вы встраиваете тот же код в минимальное приложение Shiny:
library(shiny)
library(rCharts)
runApp(list(
ui = basicPage(
h2("Ramnath's GitHub example"),
showOutput('myChart', 'highcharts')
),
server = function(input, output) {
output$myChart <- renderChart({
h1 <- Highcharts$new()
h1$chart(type = "spline")
h1$series(data = c(1, 3, 2, 4, 5, 4, 6, 2, 3, 5, NA), dashStyle = "longdash")
h1$series(data = c(NA, 4, 1, 3, 4, 2, 9, 1, 2, 3, 4), dashStyle = "shortdot")
h1$legend(symbolWidth = 80)
# Set dom attribute otherwise chart will not appear on the web page
h1$set(dom = 'myChart')
h1
})
}
))
Я знаю, что использовал последнюю разрабатываемую версию Shiny, а не последнюю стабильную версию. Поэтому у меня нет гарантии, что все работает так, как ожидалось. Однако мне было бы интересно, если бы кто-то нашел решение/обходной путь для этой проблемы.
Спасибо!