chore: remove subject selection tooltip

Author: vedhav

R/tm_p_swimlane.R

@@ -137,9 +137,7 @@ ui_p_swimlane <- function(id, height) {
       selectInput(ns("group_var"), label = "Group by:", choices = NULL, selected = NULL, multiple = FALSE),
       selectInput(ns("sort_var"), label = "Sort by:", choices = NULL, selected = NULL, multiple = FALSE),
       colour_picker_ui(ns("colors")),
-      sliderInput(ns("plot_height"), "Plot Height (px)", height[2], height[3], height[1]),
-      selectInput(ns("subjects"), "Subjects", choices = NULL, selected = NULL, multiple = TRUE),
-      actionButton(ns("subject_tooltips"), "Show Subject Tooltips")
+      sliderInput(ns("plot_height"), "Plot Height (px)", height[2], height[3], height[1])
     ),
     tags$div(
       bslib::card(
@@ -341,25 +339,6 @@ srv_p_swimlane <- function(id,
       plotly::event_data("plotly_selected", source = "swimlane")
     })
 
-    observeEvent(input$subject_tooltips, {
-      hovervalues <- data()[[plot_dataname]] |>
-        dplyr::mutate(customdata = dplyr::row_number()) |>
-        dplyr::filter(!!rlang::sym(input$subject_var) %in% input$subjects) |>
-        dplyr::pull(customdata)
-
-
-      hovertips <- plotly_data() |>
-        dplyr::filter(customdata %in% hovervalues)
-
-      session$sendCustomMessage(
-        "triggerTooltips",
-        list(
-          plotID = session$ns("plot"),
-          tooltipPoints = jsonlite::toJSON(hovertips)
-        )
-      )
-    })
-
     tables_selected_q <- .plotly_selected_filter_children(
       data = plotly_q,
       plot_dataname = plot_dataname,
@@ -369,19 +348,6 @@ srv_p_swimlane <- function(id,
       children_datanames = table_datanames
     )
 
-
-    observeEvent(data(), {
-      if (class(subject_var) == "choices_selected") {
-        subject_col <- subject_var$selected
-      } else {
-        subject_col <- subject_var
-      }
-      updateSelectInput(
-        inputId = "subjects",
-        choices = data()[[plot_dataname]][[subject_col]]
-      )
-    })
-
     srv_t_reactables(
       "subtables",
       data = tables_selected_q,