Interactive directed flow graph

Doh, I had not run the install bit. Temporary storage = C:\Users\xyz\Microsoft\Power BI Desktop Store App\RPBI

R Settings.xml use that path in ROutputDirectoryOverride

After the succeded install of the package I still get the error message about not loading.
"Feedback Type:
Frown (Error)

Timestamp:
2019-01-09T06:31:32.6560687Z

Local Time:
2019-01-09T07:31:32.6560687+01:00

Session ID:
ff090ab0-fbbb-4e3b-b616-b78139c99adb

Release:
December 2018

Product Version:
2.65.5313.621 (18.12) (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
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'htmlwidgets'
2: In libraryRequireInstall("htmlwidgets") :
  *** The package: 'htmlwidgets' was not installed ***
Loading required package: plyr
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'plyr'
2: In libraryRequireInstall("plyr") :
  *** The package: 'plyr' was not installed ***
Loading required package: lubridate

Attaching package: 'lubridate'

The following object is masked from 'package:base':

    date

Loading required package: visNetwork
Warning messages:
1: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called 'visNetwork'
2: In libraryRequireInstall("visNetwork") :
  *** The package: 'visNetwork' was not installed ***
Error in loadNamespace(name) : there is no package called 'plyr'
In addition: Warning message:
In if (!is.na(ymd_hms(ev$time))) try(ev$time <- lubridate::ymd_hms(ev$time)) :
  the condition has length > 1 and only the first element will be used
Error in visNetwork(nodes = data.frame(id = character(0)), edges = data.frame(from = character(0)),  :
  could not find function "visNetwork"
Execution halted


OS Version:
Microsoft Windows NT 10.0.17134.0 (x64 sv-SE)

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

Peak Virtual Memory:
38.5 GB

Private Memory:
508 MB

Peak Working Set:
650 MB

IE Version:
11.472.17134.0

User ID:
ea47aa81-d5c5-4d53-a9f8-9ccfc97df985

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

Telemetry Enabled:
True

Model Default Mode:
Import

Snapshot Trace Logs:
C:\Users\vinlen\AppData\Local\Microsoft\Power BI Desktop\FrownSnapShot1061487751.zip

Performance Trace Logs:
C:\Users\vinlen\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

Disabled DirectQuery Options:
PBI_DirectQuery_Unrestricted
TreatHanaAsRelationalSource

Cloud:
GlobalCloud

DPI Scale:
100%

Supported Services:
Power BI

Formulas:


section Section1;

shared #"Sheet1 (2)" = let
    Source = Excel.Workbook(File.Contents("C:\Users\vinlen\Documents\Power BI\Test flöde.xlsx"), null, true),
    Sheet1_Sheet = Source{[Item="Sheet1",Kind="Sheet"]}[Data],
    #"Promoted Headers" = Table.PromoteHeaders(Sheet1_Sheet, [PromoteAllScalars=true]),
    #"Changed Type" = Table.TransformColumnTypes(#"Promoted Headers",{{"case", Int64.Type}, {"activity", type text}, {"Timestamp", type datetime}}),
    #"Duplicated Column" = Table.DuplicateColumn(#"Changed Type", "Timestamp", "Timestamp - Copy"),
    #"Extracted Time" = Table.TransformColumns(#"Duplicated Column",{{"Timestamp - Copy", DateTime.Time, type time}})
in
    #"Extracted Time";

shared Sheet2 = let
    Source = Excel.Workbook(File.Contents("C:\Users\vinlen\Documents\Power BI\Test flöde.xlsx"), null, true),
    Sheet2_Sheet = Source{[Item="Sheet2",Kind="Sheet"]}[Data],
    #"Promoted Headers" = Table.PromoteHeaders(Sheet2_Sheet, [PromoteAllScalars=true]),
    #"Changed Type" = Table.TransformColumnTypes(#"Promoted Headers",{{"Source", type text}, {"Target", type text}, {"Value", Int64.Type}})
in
    #"Changed Type";

shared #"log pbi" = let
    Source = Csv.Document(File.Contents("C:\Users\vinlen\Documents\Power BI\log pbi.csv"),[Delimiter=";", Columns=9, Encoding=1252, QuoteStyle=QuoteStyle.None]),
    #"Promoted Headers" = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),
    #"Changed Type" = Table.TransformColumnTypes(#"Promoted Headers",{{"pk", Int64.Type}, {"title", type text}, {"arendeNo", Int64.Type}, {"arendenr", type text}, {"processStatus", type text}, {"processStatusDate", type datetime}, {"created_at", type datetime}, {"updated_at", type datetime}, {"fk", Int64.Type}})
in
    #"Changed Type";"