Как мне вернуться к старым интерфейсам highcharter?

Question

После обновления моего пакета highcharter до 0.5.0 (то есть, высоких карт, также обновленных до версии v5) в R, мои старшие диаграммы теперь включают в себя четыре новые кнопки (для рисования кругов и т. Д.) На графиках). Как мне вернуться к старой схеме?

Чтобы поставить jkunst пример,

library(dplyr) 
library(highcharter) 
data(stars) 

colors <- c("#FB1108","#FD150B","#FA7806","#FBE426","#FCFB8F", 
      "#F3F5E7", "#C7E4EA","#ABD6E6","#9AD2E1") 

stars$color <- colorize(log(stars$temp), colors) 

x <- c("Luminosity", "Temperature", "Distance") 
y <- sprintf("{point.%s:.2f}", c("lum", "temp", "distance")) 
tltip <- tooltip_table(x, y) 

hchart(stars, "scatter", hcaes(temp, lum, size = radiussun, color = 
color)) %>% 
hc_chart(backgroundColor = "black") %>% 
hc_xAxis(type = "logarithmic", reversed = TRUE) %>% 
hc_yAxis(type = "logarithmic", gridLineWidth = 0) %>% 
hc_title(text = "Our nearest Stars") %>% 
hc_subtitle(text = "In a Hertzsprung-Russell diagram") %>% 
hc_tooltip(useHTML = TRUE, headerFormat = "", pointFormat = tltip) %>% 
hc_size(height = 600) 

приводит к

в то время как он должен выглядеть, как второй пример:

http://jkunst.com/highcharter/showcase.html

я могу избавиться от экспорта -button с hc_exporting(enabled = FALSE), но я не знаю, как избавиться от четырех кнопок.

Answer 1

не имеют новые кнопки, как по умолчанию, а также, но в documentation в hc_annotationsOptions управляет поведением новых кнопок:

hc_annotationsOptions(stars, enabledButtons = F) 

должно хватить.

Answer 2

Спасибо за ваши ответы!

Ошибка была вызвана линии
options(highcharter.chart = list(credits = list(enabled = FALSE)))
, который был запущен до начала Highcharts.

Две точки:
- линия может быть удалена (кредиты, кажется, быть отключены по умолчанию)
- кажется, что изменение одного параметра в новой версии столовых с другими параметрами по умолчанию. Лучшим новым подходом будет:

hcopts <- getOption("highcharter.chart") 
    hcopts$credits$enabled <- FALSE 
    options(highcharter.chart = hcopts)