Coupling tooltips on hover between subplots using r and plotly

I would like to do a plot like this one: https://www.somesolvedproblems.com/2020/03/how-to-link-plotly-events-between-plots.html

Here is what I have tried:

library(tidyverse)
library(htmlwidgets)
library(ggplot2)
library(plotly)
library(shiny)

x <- seq(0,1, 0.001)
y <- sin(2*pi*x)
z <- cos(2*pi*x)

df <- data.frame(x = x, y = y, z = z)

p <- ggplot(df, aes(x, y)) + geom_line()
q <- ggplot(df, aes(x, z)) + geom_line()


r <- subplot(p
           , q
           , nrows =1
           , titleX = FALSE
           , titleY = FALSE)

r$elementId <- "rt"

s <- r %>%
    onRender("
    function(el) {
    el.on('plotly_hover', function (eventdata){
    console.log(eventdata.xvals);
    Plotly.Fx.hover('rt',
                    [
                        { curveNumber: 0, pointNumber:eventdata.points[0].pointNumber },
                        { curveNumber: 1, pointNumber:eventdata.points[0].pointNumber },
                    ]
    );
    
    }
  ")

with hints from: https://community.plotly.com/t/coupling-hover-events-for-side-by-side-subplots/2049 and https://plotly-r.com/js-event-handlers.html

However, this does not work yet. Primarily, because of my lack of understanding of the javascript issues. Is such bidirectional trigger possible? Can this be done using plotly package and related tools such as htmlwidgets and htmltools package for r? Thanks.

This issue is also posted on stackoverflow:
Link to issue on Stackoverflow

この issue には、リポジトリ内のファイルもテストのエントリーポイントもありません。まず subplot()、htmlwidgets::onRender()、Plotly.Fx.hover() を使って R の例を再現し、その後、双方向の hover 動作としてサポートする仕様と、完了条件となる実行可能な例またはテストを定義してください。