Пустая диаграмма Power BI в пользовательском интерфейсе

Question

Я следую этому руководству, чтобы создать пользовательский визуал для PowerBI: http://radacad.com/create-custom-visual-with-r-and-json-part3

Допустим, я использую данные по умолчанию: mtcars внутри своих пользовательских визуальных элементов для Power BI. Я пытаюсь создать 2 поля, скажем, "Mileage Per Gallon" и "Cylinder Size", как показано ниже:

Вот мой Script.R

source('./r_files/flatten_HTML.r')

############### Library Declarations ###############
libraryRequireInstall("ggplot2");
libraryRequireInstall("plotly")
####################################################

################### Actual code ####################

ValuesWithChangedName <- data.frame(mpgWithChangedName, cylWithChangedName)

p <- plot_ly(ValuesWithChangedName,
  type = 'scatterpolar',
  r = ValuesWithChangedName$mpgWithChangedName,
  theta = ValuesWithChangedName$cylWithChangedName,
  mode = 'markers'
)

####################################################

############# Create and save widget ###############
#p = ggplotly(p);
internalSaveWidget(p, 'out.html');
####################################################

И возможностей. Json :

{
  "dataRoles": [
    {
      "displayName": "Mileage Per Gallon",
      "kind": "GroupingOrMeasure",
      "name": "mpgWithChangedName"
    },
    {
      "displayName": "Cylinder Volume",
      "kind": "GroupingOrMeasure",
      "name": "cylWithChangedName"
    }
  ],
  "dataViewMappings": [
    {
      "scriptResult": {
        "dataInput": {
          "table": {
            "rows": {
              "select": [
                {
                  "for": {
                    "in": "mpgWithChangedName"
                  }
                },
                {
                  "for": {
                    "in": "cylWithChangedName"
                  }
                }
              ],
              "dataReductionAlgorithm": {
                "top": {}
              }
            }
          }
        },
        "script": {
          "scriptProviderDefault": "R",
          "scriptOutputType": "html",
          "source": {
            "objectName": "rcv_script",
            "propertyName": "source"
          },
          "provider": {
            "objectName": "rcv_script",
            "propertyName": "provider"
          }
        }
      }
    }
  ],
  "objects": {
    "rcv_script": {
      "properties": {
        "provider": {
          "type": {
            "text": true
          }
        },
        "source": {
          "type": {
            "scripting": {
              "source": true
            }
          }
        }
      }
    }
  },
  "suppressDefaultTitle": true
}

В этом простом случае я не получаю график, вместо этого я получаю пустой график. Может кто-нибудь указать, какую ошибку я совершаю?