在Shinny for R中设置动态图的交互模型

我希望将“自定义交互模型”下的自定义交互添加到我闪亮的web应用程序中

据我所知，这需要在页面上附加一些JS，并在图形上设置交互模型：

交互模型：{
“mousedown”：downV3，
“mousemove”：moveV3，
“mouseup”：upV3，
“单击”：单击v3，
“dblclick”：dblClickV3，
“鼠标滚轮”：滚动v3
}

但是，

interactionModel

似乎没有作为参数列在R端的

dyOptions

函数中

有办法解决这个问题吗？

更新：

查看

dyOptions

的源代码，似乎可以直接修改选项：

g <- dyGraph(series)

g$x$attr$option <- "Value"

这可用于关闭交互模式：

graph$x$attrs$interactionModel <- "{}"

---

graph$x$attrs$interactionModel您可以使用JS函数通过JSON将JavaScript传递给客户端

在ui.R中：

tags$head(tags$script(src="interaction.js"))

在server.R中：

g <- dygraph(series(), main = "Graph", xlab = "Date", ylab = "Amount") %>%
    dySeries(label = "X")

g$x$attrs$interactionModel <- list(
    mousedown = JS("downV3"),
    mousemove = JS("moveV3"),
    mouseup = JS("upV3"),
    click = JS("clickV3"),
    dblclick = JS("dblClickV3"),
    mousewheel = JS("scrollV3"))

g%
dySeries（label=“X”）
g$x$attrs$interactionModel
g <- dygraph(series(), main = "Graph", xlab = "Date", ylab = "Amount") %>%
    dySeries(label = "X")

g$x$attrs$interactionModel <- list(
    mousedown = JS("downV3"),
    mousemove = JS("moveV3"),
    mouseup = JS("upV3"),
    click = JS("clickV3"),
    dblclick = JS("dblClickV3"),
    mousewheel = JS("scrollV3"))