Измените конкретную трассировкуplotly с помощьюplotlyProxy, не ссылаясь на другие трассировки

Функция изменения стиля Plotly имеет параметр traceIndices:

Эффективное средство изменения атрибутов массива данных в существующий сюжет. При рестайлинге вы можете выбрать указанный изменения затрагивают столько трасс, сколько необходимо. Обновление предоставляется в виде отдельный объект и затронутые следы представлены в виде списка отслеживает индексы. Обратите внимание: если оставить индексы трассировки неуказанными, это предполагает что вы хотите изменить стиль всех трассировок.

Вот как обновить только данные первой трассировки (индекс: 0) с помощью plotlyProxyInvoke:

library(shiny)
library(plotly)
library(purrr)

plot_cylinder <- function(x, y, z, radius, height, color = 'red') {
  theta <- seq(0, 2*pi, length.out = 30)
  z_cyl <- seq(z, z + height, length.out = 2)
  x_cyl <- outer(x + radius * cos(theta), rep(1, length(z_cyl)))
  y_cyl <- outer(y + radius * sin(theta), rep(1, length(z_cyl)))
  z_cyl <- outer(rep(1, length(theta)), z_cyl)
  
  list(
    type = "surface",
    x = x_cyl,
    y = y_cyl,
    z = z_cyl,
    colorscale = list(c(0, color), c(1, color))
  )
}

plot_sphere <- function(x, y, z, r, color = 'blue') {
  theta <- seq(0, 2*pi, length.out = 30)
  phi <- seq(0, pi, length.out = 30)
  x_sphere <- x + r * outer(cos(theta), sin(phi))
  y_sphere <- y + r * outer(sin(theta), sin(phi))
  z_sphere <- z + r * outer(rep(1, length(theta)), cos(phi))
  
  list(x = x_sphere, y = y_sphere, z = z_sphere, color = color)
}

# Static sphere data
sphere_radius <- 7.24
sphere_data <- plot_sphere(0, 0, 10, sphere_radius)

cylinder_data <- plot_cylinder(0, 0, 0, 3, 10)

ui <- fluidPage(
  titlePanel("Cylinder Plotting"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("radius", "Cylinder Radius:", min = 1, max = 10, value = 3),
      sliderInput("height", "Cylinder Height:", min = 1, max = 20, value = 10)
    ),
    mainPanel(
      plotlyOutput("plot")
    )
  )
)

server <- function(input, output, session) {
  
  plotly_object <- plot_ly(colors = sphere_data$color) |> 
    add_surface(x = cylinder_data$x, y = cylinder_data$y, 
                z = cylinder_data$z, colorscale = cylinder_data$colorscale, 
                opacity = 0.5, name = "cylinder") |>
    add_surface(x = sphere_data$x, y = sphere_data$y, 
                z = sphere_data$z,
                opacity = 0.5, name = "sphere")
  
  pb <- plotly_build(plotly_object)
  traces <- unlist(map(pb$x$data, "name"))
  trace_indices <- setNames(seq_along(traces) - 1L, traces)
  
  output$plot <- renderPlotly({
    plotly_object
  })
  
  observeEvent(c(input$radius, input$height), {
    proxy <- plotlyProxy("plot", session)
    
    # Get the updated cylinder trace
    cylinder_data <- plot_cylinder(0, 0, 0, input$radius, input$height)
    # Update the trace with the new x, y, z values
    plotlyProxyInvoke(proxy, "restyle", list(
      x = list(cylinder_data$x),
      y = list(cylinder_data$y),
      z = list(cylinder_data$z)
    ), trace_indices[["cylinder"]])
    # if you need to modify multiple traces at once (and leave others as they are):
    # plotlyProxyInvoke(proxy, "restyle", list(
    #   x = list(cylinder_data$x, sphere_data$x + 100L),
    #   y = list(cylinder_data$y, sphere_data$y + 100L),
    #   z = list(cylinder_data$z, sphere_data$z + 100L)
    # ), list(0L, 1L))
  })
}

shinyApp(ui = ui, server = server)