从服务器调用JavaScript函数

我想用一个参数从server.R调用一个javascript函数，在我的例子中显示。调用下面的print语句正在执行，但javascript函数没有执行。这是调用js函数的正确方法吗

observe ({
    if (is.null(input$location))
      return()

      tags$script(type="text/javascript", src = "datadisplay.js")
      tags$script(JS('display(today_trends))'))

      print(today_trends[1])
      })
}

我的js文件：

function disp(params) {
  var myWindow = window.open("");
  myWindow.document.write("New window");

}

我也尝试过用这种方式显示js$display（today_trends），但我得到了一个错误：尝试应用非函数

修改的js文件：

shinyjs.display = function(params) {
      var myWindow = window.open("");
      myWindow.document.write("New window");
};

---

那样不行。请看一下shinyjs:：runjs（），。。。