实现HighCharts和服务器之间的通信R

Achieving communication between HighCharts and server.R

本文关键字：通信 之间 服务器 HighCharts 实现      更新时间：2023-09-26

当点击HighCharts条形图上的一个条形图时，我正试图在一个单独的div元素中显示一个表（或者可能是另一个图）。我正在使用Shiny包中的rCharts来创建HighCharts图。

到目前为止，在我的实验中，我遇到了两个可能的psth。

路径1

我尝试在API的HighCharts栏/柱图中使用点击功能。我试过这样做。

observe({  
    output$plot <- renderChart2({
                       a <- hPlot(x="id",y="sequence",data=myData,type="column")
                       a$tooltip( animation = 'true', formatter = "#! function() {return '<b>' + 'Frequency of tag_id ' + this.x + '</b>' + ' is ' + this.y;} !#")
                       a$plotOptions(series = list(color = '#388E8E'),column = list(dataLabels = list(enabled = T, rotation = -90, align = 'right', color = '#FFFFFF', x = 4, y = 10),cursor = 'pointer', point=list(events = list(click = func))))
                 return(a)
        }) session$sendCustomMessage(type="data", rg1) )}

对于函数func（应该在点击条时调用），

func <- "#! function() {
        Shiny.addCustomMessageHandler('data', function(rg1) {
                var data1 = rg1.series            
                $('.container_subcat').highcharts({
                        chart: {
                                type: 'column',
                        }
                        xAxis: { categories:(data1) },
                title: {
                                text: 'Monthly Average Rainfall'
                },
                series: [{  data :(data1)
                        }]
                }); 
})} !#"

我确信这不是绑定数据的方法，但在查看了几个在线来源后，我在上面的代码中添加了很多代码。我的尝试都没有让我微笑。此外，我认为如果按照这种方式进行，我需要将数据从R数据帧（上面的rg1是一个数据帧）更改为Java脚本可读格式，但不知道何时何地进行转换。

路径2

我使用了session$sendCustomMessage()和Shiny.addCustomMessageHandler()函数。

server.R->app.js

在服务器中。R： observe({ session$sendCustomMessage(type="newdata", data })

在app.js:Shiny.addCustomMessageHandler("newdata", function(data1) { ... }); 中

chart.js->server。R

在app.js:Shiny.onInputChange("select", this.data.ele); 中

在服务器中。R： current <- input$select

上面的机制适用于HTML中的所有按钮或其他UI元素。但是，当点击条形图上的一个栏时，我正试图实现同样的机制。我不知道如何从柱状图中提取每个小节，并像在current <- input$select中使用它一样使用它。因此，它基本上是在HighCharts UI元素（inturn是shing/rCharts元素）和服务器之间建立通信，以在单击元素时获取数据。

我遇到了Shiny输入和输出绑定，很难理解它们，也不确定它们在我的特定情况下是否有用。有人能教我一个能解决我问题的方法/解决方案吗。

如果有人在寻找答案，请转到这个问题，使用粘贴的方法就像魅力一样工作，并将数据传递给javascript函数。

相关文章：