Измените одну точку на графике scatter3d в R блестящий

У меня есть приложение, где я пытаюсь изменить размер точки или цвет или символ. Точка - это объект, который пользователь нажал. Щелчок по точке создает всплывающее окно в моей программе, которое показывает другой набор данных, связанный с идентификационным значением в столбце, принадлежащем роутеру, принадлежащему точке, нажатой. Я включил поток событий в демонстрационное приложение (без всплывающих окон) для события click.

Я пытаюсь изменить точку, основанную на ответе здесь, на сюжетный 2D-график. Однако применение кода к моему 3D-сюжету, похоже, не работает.

Немного дополнительной справочной информации: я создаю программу для анализа данных 3D-рассеяния, и мое приложение содержит несколько этих трехмерных графиков

Кто-нибудь знает, как сделать эту работу?

В приведенном ниже приложении содержится код как для объекта с 2-мя (комментариями), так и для трехмерного изображения, чтобы показать рабочую и нерабочую ситуацию и является прямой модификацией кода, данным @Maximilian Peters

Спасибо за любую помощь!

бонусный вопрос: предположим, что мы можем заставить его работать для 3dplot, я также хотел бы выяснить, как изменить код JavaScript, чтобы изменить точку на основе числа, хранящегося в реактивной переменной (то есть значения $ activepoint), а не щелчка, так как я разрешу пользователю циклически перебирать точки с помощью кнопки <- и ->, которая изменяет идентификатор точки, с которой мы извлекаем дополнительную информацию.

library(shiny)
library(plotly)
library(htmlwidgets)

ui <- fluidPage(
  plotlyOutput("plot"),
  textOutput('messageNr')
)

javascript <- "
function(el, x){
el.on('plotly_click', function(data) {
colors = [];
var base_color = document.getElementsByClassName('legendpoints')[data.points[0].curveNumber].getElementsByTagName('path')[0].style['stroke']
for (var i = 0; i < data.points[0].data.x.length; i += 1) {
colors.push(base_color)
};
colors[data.points[0].pointNumber] = '#000000';
Plotly.restyle(el, 
{'marker':{color: colors}}, 
[data.points[0].curveNumber]
);
//make sure all the other traces get back their original color
for (i = 0; i < document.getElementsByClassName('plotly')[0].data.length; i += 1) {
if (i != data.points[0].curveNumber) {
colors = [];
base_color = document.getElementsByClassName('legendpoints')[i].getElementsByTagName('path')[0].style['stroke'];
for (var p = 0; p < document.getElementsByClassName('plotly')[0].data[i].x.length; p += 1) {
colors.push(base_color);
}
Plotly.restyle(el, 
{'marker':{color: colors}}, 
[i]);
}
};
});
}"


server <- function(input, output, session) {
  row.names(mtcars) <- 1:nrow(mtcars)
  colorscale <- c("blue", "red", "yellow")

  values <- reactiveValues()

  output$plot <- renderPlotly({
    values$point <- event_data("plotly_click", source = "select")

  plot_ly(mtcars,
          x = ~mpg,
          y = ~cyl,
          z = ~wt,
          type = "scatter3d",
          color = as.factor(mtcars$gear),
          colors = colorscale,
          mode = "markers",
          source = "select",
          showlegend = F)%>%
    add_markers() %>% onRender(javascript)
  } )



observeEvent(values$point, {
  values$row <- as.numeric(values$point$pointNumber) +1
   values$ID <- rownames(mtcars)[values$row]
   ### the values$ID is what I use to look up the corresponding dataset in other dataframes containing the detailed info of a datapoint in the 
   ### summary data set that is used to create the real scatter3d plots in which the user clicks. 
  output$messageNr <- renderText(values$ID)
  })
 }

# server <- function(input, output, session) {
# 
#   nms <- row.names(mtcars)
# 
#   output$plot <- renderPlotly({
#     p <- ggplot(mtcars, aes(x = mpg, y = wt, col = as.factor(cyl))) +
#       geom_point()
#     ggplotly(p) %>% onRender(javascript)
# 
#   })
# }

shinyApp(ui, server)