Hi,
Plotly.newplot is working fine in my R Studio Viewer, but when I save to HTML it does not work.
I have a heatmap plot and when you click on a cell the columns in the correlation matrix are plotted below the heatmap.
The code I’m using is below.
It seems the problem is when I save the HTML file.
corr ← plot_ly(colors=“RdBu”) %>%
add_heatmap(
x=nms,
y=nms,
z=~round(cor(rdata), 3)
) %>%
onRender("
function(el) {
Plotly.d3.json(‘rdata.json’, function(rdata) {
el.on(‘plotly_click’, function(d) {
var x = d.points[0].x;
var y = d.points[0].y;
var trace = {
x: rdata,
y: rdata[y],
mode: ‘markers’
};
Plotly.newPlot(‘filtered-plot’, [trace]);
});
});
}
")
withr::with_path(tempdir(), {
jsonlite::write_json(as.list(rdata), “rdata.json”)
html ← tagList(corr, tags$div(id = ‘filtered-plot’))
save_html(html, “index.html”)
if (interactive()) servr::httd()
})
Any suggestions on what I’m doing wrong ?
Many Thanks.