将 jquery 转换为 R 中可用的字符串

Turning jquery into usable string in R

我正在尝试将以下 jquery 代码转换为可以传递给 R 函数的字符串:

function main() {
  return join(
    Events({
    from_date: '2016-09-01',
    to_date:   '2016-12-01',
    event_selectors: [{selector: 'event["event.name"]=="Page 
Viewed"'}]
   }),
  People({
     user_selectors: [{selector: 'user["Is Test"]==false'}]
   }),   
  {type:'left'})
} 

由于查询同时包含单引号和双引号,我无法简单地将其用不存在的引号括起来。

我试过简单地将其包装成双引号,然后在查询中对双引号使用转义字符,如下所示:

  "function main() {
     return join(
      Events({
        from_date: '2016-09-01',
        to_date:   '2016-12-01',
        event_selectors: [{selector: 'event[\"event.name\"]==\"Page 
Viewed\"'}]
      }),
      People({
        user_selectors: [{selector: 'user[\"Is Test\"]==false'}]
      }),   
      {type:'left'})
  }"

但问题是,当我 运行 R 中的那个字符串时,转义字符实际上出现了,我需要将原始的、未受污染的查询传递到 'mixpanelJQLQuery()' 函数中 'RMixpanel' 图书馆。

有什么建议吗?

您可以将您的函数分配给一个变量,然后只需将它与一个空字符串连接起来,就像这样:

var myFunction = function main() { /* your code here */ }
var stringifiedFunction = '' + myFunction;

Fiddle 这里

希望对您有所帮助。 :)