Я столкнулся с проблемой с выводом HTML, созданным при использовании сценария уценки для вязания сюжетного объекта.Эта проблема возникает только при открытии созданного HTML-кода в Chrome.Если имеется достаточно элементов легенды, для которых требуется полоса прокрутки легенды, то при попытке выбрать элемент легенды не выбирается нужный элемент.Щелчок по элементу легенды приводит к выделению или отмене выделения любого элемента, который был бы под текущей позицией мыши, если бы не было полосы прокрутки, и вместо этого все элементы легенды были сжаты в видимом пространстве легенды.Например, даже если легенда прокручена до самого верха, нажатие в нижней части пространства легенды выберет самый нижний элемент легенды, который в данный момент не виден.Чем больше элементов легенды, тем больше она получает.
Как создать легенду с соответствующими элементами прокрутки при открытии в Chrome?Более крупный проект будет использоваться конечным пользователем, который выберет браузер. Я не буду иметь над ним никакого контроля.
Редактировать:
График утолщается.Я обнаружил, что проблема исчезает, если открыто дополнительное окно браузера, в котором также содержится сюжетный объект, если в легенде этого объекта нет полосы прокрутки.То есть: если проблема активно возникает в одном окне браузера, при открытии второй вкладки, содержащей график без прокрутки легенды, легенда в первом окне (содержащая прокрутку) начинает работать, как и ожидалось.Легенда со свитком продолжает работать должным образом даже после закрытия второго окна, но перестает работать правильно, если открыто другое окно, содержащее график со свитком легенды (последнее открытое диктует поведение).
Код ниже является раздетымверсия вниз, но воспроизводит ту же проблему.Эта проблема возникает независимо от использования кнопки Knit в R-studio или render()
из обычного R-скрипта.
---
title: Failed legend
output:
html_document
---
```{r message=FALSE, warning=FALSE, include=FALSE}
invisible({
library(plotly)
library(htmltools)
library(knitr)
})
```
```{r echo=FALSE, warning=FALSE, comment=NA, results="asis", out.width='100%'}
df <- data.frame(NAMES=LETTERS[1:24],X=sample(1:15,24,T), Y=runif(24,1,3))
pm <- plot_ly(data = df)
pm <- pm %>%
layout(title="Test plot", legend=list(bgcolor = "#E2E2E2"))
pm <- pm %>%
add_trace(y=~Y, x=~X, type="scatter", mode="markers", color=~NAMES, marker=list(size=7))
pm
```