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 },
                    ]
    );
    
    }
  ")