Dummbell Chart Issue

Hello

I have the same issue when I try to run the dummbell chart in PowerBi desktop.

I loaded the chart from Marketplace. I also installed R from CRAN website.

Do you have any idea ?

This is the error message I have:

And this is details of the error message:

Feedback Type:
Frown (Error)

Timestamp:
2019-02-28T17:50:09.7537688Z

Local Time:
2019-02-28T18:50:09.7537688+01:00

Session ID:
cdd7c815-7443-4721-a061-5e2327608672

Release:
February 2019

Product Version:
2.66.5376.2521 (19.02) (x64)

Error Message:
R script error.
Loading required package: XML
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'XML'
2: In libraryRequireInstall("XML") :
  *** The package: 'XML' was not installed ***
Loading required package: htmlwidgets
Loading required package: ggplot2
Loading required package: plotly
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'plotly'
2: In libraryRequireInstall("plotly") :
  *** The package: 'plotly' was not installed ***
Loading required package: ggplotly
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'ggplotly'
2: In libraryRequireInstall("ggplotly") :
  *** The package: 'ggplotly' was not installed ***
Loading required package: gapminder
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'gapminder'
2: In libraryRequireInstall("gapminder") :
  *** The package: 'gapminder' was not installed ***
Loading required package: gsubfn
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'gsubfn'
2: In libraryRequireInstall("gsubfn") :
  *** The package: 'gsubfn' was not installed ***
Loading required package: magrittr
Loading required package: XML
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'XML'
2: In libraryRequireInstall("XML") :
  *** The package: 'XML' was not installed ***
Error in plot_ly() : impossible de trouver la fonction "plot_ly"
Calls: tryCatch ... tryCatchList -> tryCatchOne -> <Anonymous> -> %>% -> eval -> eval
De plus : Warning message:
In if (sizevw < 500) { :
  la condition a une longueur > 1 et seul le premier élément est utilisé
Exécution arrêtée


Stack Trace:
Microsoft.PowerBI.ExploreServiceCommon.ScriptHandlerException: R script error.
Loading required package: XML
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'XML'
2: In libraryRequireInstall("XML") :
  *** The package: 'XML' was not installed ***
Loading required package: htmlwidgets
Loading required package: ggplot2
Loading required package: plotly
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'plotly'
2: In libraryRequireInstall("plotly") :
  *** The package: 'plotly' was not installed ***
Loading required package: ggplotly
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'ggplotly'
2: In libraryRequireInstall("ggplotly") :
  *** The package: 'ggplotly' was not installed ***
Loading required package: gapminder
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'gapminder'
2: In libraryRequireInstall("gapminder") :
  *** The package: 'gapminder' was not installed ***
Loading required package: gsubfn
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'gsubfn'
2: In libraryRequireInstall("gsubfn") :
  *** The package: 'gsubfn' was not installed ***
Loading required package: magrittr
Loading required package: XML
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'XML'
2: In libraryRequireInstall("XML") :
  *** The package: 'XML' was not installed ***
Error in plot_ly() : impossible de trouver la fonction "plot_ly"
Calls: tryCatch ... tryCatchList -> tryCatchOne -> <Anonymous> -> %>% -> eval -> eval
De plus : Warning message:
In if (sizevw < 500) { :
  la condition a une longueur > 1 et seul le premier élément est utilisé
Exécution arrêtée
 ---> Microsoft.PowerBI.Scripting.R.Exceptions.RScriptRuntimeException: R script error.
Loading required package: XML
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'XML'
2: In libraryRequireInstall("XML") :
  *** The package: 'XML' was not installed ***
Loading required package: htmlwidgets
Loading required package: ggplot2
Loading required package: plotly
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'plotly'
2: In libraryRequireInstall("plotly") :
  *** The package: 'plotly' was not installed ***
Loading required package: ggplotly
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'ggplotly'
2: In libraryRequireInstall("ggplotly") :
  *** The package: 'ggplotly' was not installed ***
Loading required package: gapminder
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'gapminder'
2: In libraryRequireInstall("gapminder") :
  *** The package: 'gapminder' was not installed ***
Loading required package: gsubfn
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'gsubfn'
2: In libraryRequireInstall("gsubfn") :
  *** The package: 'gsubfn' was not installed ***
Loading required package: magrittr
Loading required package: XML
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'XML'
2: In libraryRequireInstall("XML") :
  *** The package: 'XML' was not installed ***
Error in plot_ly() : impossible de trouver la fonction "plot_ly"
Calls: tryCatch ... tryCatchList -> tryCatchOne -> <Anonymous> -> %>% -> eval -> eval
De plus : Warning message:
In if (sizevw < 500) { :
  la condition a une longueur > 1 et seul le premier élément est utilisé
Exécution arrêtée

   at Microsoft.PowerBI.Scripting.R.RScriptWrapper.RunScript(String originalScript, Int32 timeoutMs)
   at Microsoft.PowerBI.Client.Windows.R.RScriptHandler.GenerateVisual(ScriptHandlerOptions options)
   --- End of inner exception stack trace ---
   at Microsoft.PowerBI.Client.Windows.R.RScriptHandler.GenerateVisual(ScriptHandlerOptions options)
   at Microsoft.PowerBI.ExploreServiceCommon.ScriptVisualCommandFlow.RunInternal(Stream dataShapeResultStream, QueryBindingDescriptor& bindingDescriptor)
   at Microsoft.PowerBI.ExploreServiceCommon.ScriptVisualCommandFlow.Run(Stream dataShapeResultStream, QueryBindingDescriptor& bindingDescriptor)
   at Microsoft.PowerBI.ExploreHost.SemanticQuery.ExecuteSemanticQueryFlow.TransformDataShapeResult(QueryCommand transformCommand, SemanticQueryDataShapeCommand command, Stream dataShapeResultStream, QueryBindingDescriptor& bindingDescriptor)
   at Microsoft.PowerBI.ExploreHost.SemanticQuery.ExecuteSemanticQueryFlow.ExecuteDataQuery(IQueryResultDataWriter queryResultDataWriter, EngineDataModel engineDataModel, DataQuery query, Int32 queryId, ServiceErrorStatusCode& serviceErrorStatusCode)
   at Microsoft.PowerBI.ExploreHost.SemanticQuery.ExecuteSemanticQueryFlow.ProcessAndWriteSemanticQueryCommands(IQueryResultsWriter queryResultsWriter, ExecuteSemanticQueryRequest request, EngineDataModel engineDataModel)

Invocation Stack Trace:
   at Microsoft.Mashup.Host.Document.ExceptionExtensions.GetCurrentInvocationStackTrace()
   at Microsoft.Mashup.Client.UI.Shared.StackTraceInfo..ctor(String exceptionStackTrace, String invocationStackTrace, String exceptionMessage)
   at Microsoft.PowerBI.Client.Windows.ErrorHostService.GetErrorDetails(ShowErrorDialogArgs args)
   at Microsoft.PowerBI.Client.Windows.ErrorHostService.<>c__DisplayClass2_0.<<ShowErrorDialog>b__0>d.MoveNext()
   at System.Runtime.CompilerServices.AsyncTaskMethodBuilder.Start[TStateMachine](TStateMachine& stateMachine)
   at Microsoft.PowerBI.Client.Windows.ErrorHostService.<>c__DisplayClass2_0.<ShowErrorDialog>b__0()
   at Microsoft.Mashup.Host.Document.SynchronizationContextExtensions.<>c__DisplayClass1_0`1.<SendAndMarshalExceptions>b__0()
   at Microsoft.Mashup.Host.Document.SynchronizationContextExtensions.<>c__DisplayClass0_1.<SendAndMarshalExceptions>b__0(Object null)
   at System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor)
   at System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments)
   at System.Delegate.DynamicInvokeImpl(Object[] args)
   at System.Windows.Forms.Control.InvokeMarshaledCallbackDo(ThreadMethodEntry tme)
   at System.Windows.Forms.Control.InvokeMarshaledCallbackHelper(Object obj)
   at System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
   at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
   at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
   at System.Windows.Forms.Control.InvokeMarshaledCallback(ThreadMethodEntry tme)
   at System.Windows.Forms.Control.InvokeMarshaledCallbacks()
   at System.Windows.Forms.Control.WndProc(Message& m)
   at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
   at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
   at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
   at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
   at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
   at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
   at System.Windows.Forms.Form.ShowDialog(IWin32Window owner)
   at Microsoft.Mashup.Client.UI.Shared.WebDialogs.WebDialog.<>n__0(IWindowHandle owner)
   at Microsoft.Mashup.Client.UI.Shared.WindowManager.ShowModal[T](T dialog, Func`1 showModalFunction)
   at Microsoft.PowerBI.Client.Program.<>c__DisplayClass4_0.<Main>b__1()
   at Microsoft.PowerBI.Client.Windows.IExceptionHandlerExtensions.<>c__DisplayClass3_0.<HandleExceptionsWithNestedTasks>b__0()
   at Microsoft.Mashup.Host.Document.ExceptionHandlerExtensions.HandleExceptions(IExceptionHandler exceptionHandler, Action action)
   at Microsoft.PowerBI.Client.Program.Main(String[] args)


OS Version:
Microsoft Windows NT 10.0.17134.0 (x64 fr-FR)

CLR Version:
4.7 or later [Release Number = 461808]

Peak Virtual Memory:
38.3 GB

Private Memory:
428 MB

Peak Working Set:
547 MB

IE Version:
11.590.17134.0

User ID:
088639e7-56c4-40de-8f3a-9ec9d3981e27

Workbook Package Info:
1* - en-IN, Query Groups: 0, fastCombine: Disabled, runBackgroundAnalysis: True.

Telemetry Enabled:
True

Model Default Mode:
Import

Snapshot Trace Logs:
C:\Users\lagui.LAPTOP-4C4K45VI\AppData\Local\Microsoft\Power BI Desktop\FrownSnapShot1325580407.zip

Performance Trace Logs:
C:\Users\lagui.LAPTOP-4C4K45VI\AppData\Local\Microsoft\Power BI Desktop\PerformanceTraces.zip

Disabled Preview Features:
PBI_shapeMapVisualEnabled
MIntellisense
PBI_SpanishLinguisticsEnabled
PBI_PdfImport
PBI_ColumnProfiling
PBI_variationUIChange
PBI_PythonSupportEnabled
PBI_showIncrementalRefreshPolicy
PBI_showManageAggregations
PBI_FuzzyMatching
PBI_EnableWebDiagramView
PBI_improvedFilterExperience
PBI_qnaLiveConnect
PBI_keyDrivers

Disabled DirectQuery Options:
TreatHanaAsRelationalSource

Cloud:
GlobalCloud

DPI Scale:
125%

Supported Services:
Power BI

Formulas:


section Section1;

shared #"CO2 Emissions" = let
    Source = Excel.Workbook(File.Contents("C:\Users\gopal\Documents\power bi\proj\data\R visuals data.xlsx"), null, true),
    #"CO2 Emissions_Sheet" = Source{[Item="CO2 Emissions",Kind="Sheet"]}[Data],
    #"Changed Type" = Table.TransformColumnTypes(#"CO2 Emissions_Sheet",{{"Column1", type text}, {"Column2", type number}, {"Column3", type number}, {"Column4", type number}}),
    #"Promoted Headers" = Table.PromoteHeaders(#"Changed Type", [PromoteAllScalars=true])
in
    #"Promoted Headers";

shared #"Department expenditure" = let
    Source = Excel.Workbook(File.Contents("C:\Users\gopal\Documents\power bi\proj\data\R visuals data.xlsx"), null, true),
    #"Department expenditure_Sheet" = Source{[Item="Department expenditure",Kind="Sheet"]}[Data],
    #"Promoted Headers" = Table.PromoteHeaders(#"Department expenditure_Sheet", [PromoteAllScalars=true]),
    #"Changed Type" = Table.TransformColumnTypes(#"Promoted Headers",{{"Division", type text}, {"First quart", Int64.Type}, {"Second quart", Int64.Type}, {"Third quart", Int64.Type}, {"Fourth quart", Int64.Type}}),
    #"Renamed Columns" = Table.RenameColumns(#"Changed Type",{{"First quart", "Quarter 1"}, {"Fourth quart", "Quarter 2"}, {"Second quart", "Quarter 3"}, {"Third quart", "Quarter 4"}})
in
    #"Renamed Columns";

shared #"Average salary" = let
    Source = Excel.Workbook(File.Contents("C:\Users\gopal\Documents\power bi\proj\data\R visuals data.xlsx"), null, true),
    #"Average salary_Sheet" = Source{[Item="Average salary",Kind="Sheet"]}[Data],
    #"Promoted Headers" = Table.PromoteHeaders(#"Average salary_Sheet", [PromoteAllScalars=true]),
    #"Changed Type" = Table.TransformColumnTypes(#"Promoted Headers",{{"Manufacturer", type text}, {"Total units for 2015", Int64.Type}, {"Total units for 2014", Int64.Type}, {"Column4", type any}}),
    #"Removed Columns" = Table.RemoveColumns(#"Changed Type",{"Column4"}),
    #"Renamed Columns" = Table.RenameColumns(#"Removed Columns",{{"Total units for 2014", "2014"}, {"Total units for 2015", "2015"}}),
    #"Removed Columns1" = Table.RemoveColumns(#"Renamed Columns",{"2015", "2014", "Manufacturer"})
in
    #"Removed Columns1";

shared #"Sales and marketing" = let
    Source = Excel.Workbook(File.Contents("C:\Users\gopal\Documents\power bi\proj\data\R visuals data.xlsx"), null, true),
    #"Average salary_Sheet" = Source{[Item="Average salary",Kind="Sheet"]}[Data],
    #"Changed Type" = Table.TransformColumnTypes(#"Average salary_Sheet",{{"Column1", type text}, {"Column2", Int64.Type}, {"Column3", Int64.Type}, {"Column4", type any}}),
    #"Promoted Headers" = Table.PromoteHeaders(#"Changed Type", [PromoteAllScalars=true]),
    #"Changed Type1" = Table.TransformColumnTypes(#"Promoted Headers",{{"Manufacturer", type text}, {"2015", Int64.Type}, {"2014", Int64.Type}, {"Column4", type any}}),
    #"Removed Columns" = Table.RemoveColumns(#"Changed Type1",{"Column4"})
in
    #"Removed Columns";

shared #"Test Table" = let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("JY07DoAgEAXvsjWFIN+zEIpFiBZ+Eo2J3t4HNpPM7C7ESEqRIG0AzpkvSiKS1lDngcz57slamGy708J7+aNzcB+Awnsvvh2FAahrfXoKba5GYD62XqSUMNM+wVvnSyl9", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type text) meta [Serialized.Text = true]) in type table [#"This is created for testing purpose to test if it has multiple words then how the legend will behave" = _t, Measure2 = _t, Reseller = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"This is created for testing purpose to test if it has multiple words then how the legend will behave", Int64.Type}, {"Measure2", Int64.Type}, {"Reseller", type text}})
in
    #"Changed Type";

shared SampleCSVFile_5300kb = let
    Source = Csv.Document(File.Contents("C:\Users\shrut\Downloads\SampleCSVFile_5300kb.csv"),[Delimiter=",", Columns=9, Encoding=1252, QuoteStyle=QuoteStyle.None]),
    #"Change Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}, {"Column2", type text}, {"Column3", type text}, {"Column4", type text}, {"Column5", type text}, {"Column6", type text}, {"Column7", type text}, {"Column8", type text}, {"Column9", type text}})
in
    #"Change Type";