javascript - HighcharterR，来自工具提示中 R DataFrame 的变量

Question

我有一个使用以下代码创建的 data.frame。变量“Kreationen”包含指向不同视频的链接。

df <- rawdata %>%
    mutate(Euro = as.numeric(Euro)) %>%
    group_by(Firma, Marke, Kreationen, Mediengruppe) %>%
    summarize(Total = sum(Euro)) %>%
    select(Firma, Marke, Mediengruppe, Kreationen, Total) %>%
    head(5)

现在我想创建一个 Columnchart，它将视频呈现在我之前创建的 div 中并且是空的。

    highchart() %>%
        hc_chart(type = "column") %>%
        hc_add_series(data = df$Total) %>%
        hc_tooltip(formatter = JS(paste0('function() {var html = `<object width="1000" height="700" data="', df$Kreationen[1], '"></object>`; var x = document.getElementById("videos"); x.innerHTML = html}'))) 

该代码对于 data.frame 的一个元素工作得非常好，但我不知道如何动态传递代码。当用户将鼠标悬停在第一个条上时，将呈现第一个视频，当他将鼠标悬停在第二个条上时，将呈现第二个视频，依此类推。