R Shiny：将数据发送到Firebase

Question

我想使用发亮的格式将一些数据发送到Firebase，这是我的app.R的简化版本：

library(shiny)
library(shinyjs)

callFB <- "shinyjs.FB = function(){
    var config = {
        apiKey: 'my_apiKey',
        databaseURL: 'my_databaseURL'
    };

    firebase.initializeApp(config);
    var database = firebase.database();
    var id = database.ref('test').push().key;

    var myData = 'hello';

    console.log(id); // OK
    console.log(myData); // OK
    console.log(database); // OK

    database.ref('test/' + id + '/').update({myData}).then(function() {
        console.log('myData sent!');
    }); // ERROR
}"

ui <- fluidPage(
    mainPanel(
        tags$head(tags$script(src="https://ajax.googleapis.com/ajax/libs/jquery/3.3.1/jquery.min.js")),
        tags$head(tags$script(src="https://www.gstatic.com/firebasejs/5.0.4/firebase.js")),
        useShinyjs(),
        extendShinyjs(text = callFB),
        textOutput("sendFB")
    )
)

server <- function(input, output, session) {
    output$datauri <- renderText({
        js$FB()
        return("data sent")
    })
}

shinyApp(ui = ui, server = server)

这将返回错误：

> runApp()
Error: shinyjs: Error parsing the JavaScript code provided.

我已经在普通的html文件中测试了js代码，并且效果很好。似乎导致错误的行是最后一个database.ref...

您知道什么可能导致此错误吗？还有其他方法可以解决这个问题吗？

修改

出于某些未知原因，该方法有效：

library(shiny)
library(shinyjs)

callFB <- "shinyjs.FB = function(){
    var config = {
        apiKey: 'my_apiKey',
        databaseURL: 'my_databaseURL'
    };

    firebase.initializeApp(config);
    var database = firebase.database();
    var id = database.ref('test').push().key;

    var myData = 'hello';

    database.ref('test/' + id + '/').update({myData}).then(function() {
        console.log('myData sent!');
    });
}"

ui <- fluidPage(
    mainPanel(
        tags$head(tags$script(src="https://ajax.googleapis.com/ajax/libs/jquery/3.3.1/jquery.min.js")),
        tags$head(tags$script(src="https://www.gstatic.com/firebasejs/5.0.4/firebase.js")),
        useShinyjs(),
        textOutput("sendFB")
    )
)

server <- function(input, output, session) {
    output$datauri <- renderText({
        runjs(callFB)
        return("data sent")
    })
}

shinyApp(ui = ui, server = server)