Reply
Frequent Visitor
Posts: 3
Registered: ‎01-05-2018

R script error on a base function

I use a very simple code to bring the surface plot to Power BI:

library(tidyr)
z <- spread(data=dataset[,c("C3", "TPR", "SalesMargin")], key="TPR", value="SalesMargin")
z <- as.matrix(z[,-1] )

persp( z=z )

 

persp() function works well in R. Actually, the only parameter required is the matrix of values, while x and y are automatically calculated in the function call.

Despite any attempts (adding x and y in various variants, and without them as in the example), function call returns the error when executed in Power BI (see details below). Any thoughts? What's wrong in function? I even was unable to find this error message in a source code of base R on my PC.

 

Feedback Type:
Frown (Error)

Timestamp:
2018-12-06T08:57:44.3308789Z

Local Time:
2018-12-06T09:57:44.3308789+01:00

Session ID:
ac2b720a-ae95-4cca-a8f2-17aab6092ddc

Release:
November 2018

Product Version:
2.64.5285.741 (18.11) (x64)

Error Message:
R script error.
Error in persp.default(z = z) : invalid 'x' argument
Calls: persp -> persp.default
Execution halted


OS Version:
Microsoft Windows NT 10.0.16299.0 (x64 en-US)

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

Peak Virtual Memory:
34 GB

Private Memory:
303 MB

Peak Working Set:
433 MB

IE Version:
11.665.16299.0

User ID:
e91c8a7c-18af-4f62-bb2c-74192dfc0bd8

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

Telemetry Enabled:
False

Model Default Mode:
Import

Snapshot Trace Logs:
C:\Users\     \Microsoft\Power BI Desktop Store App\FrownSnapShot1338113713.zip

Performance Trace Logs:
C:\Users\     \Microsoft\Power BI Desktop Store App\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

Disabled DirectQuery Options:
PBI_DirectQuery_Unrestricted
TreatHanaAsRelationalSource

Cloud:
GlobalCloud

DPI Scale:
125%

Supported Services:
Power BI

Formulas:


section Section1;

shared Demo1 = let
Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("NdBLb8IwEATg/+IzQhvH9nqPFGhpSx+UdyNOVThVSETpof+eZCYcv+xm7HFVud+6bevGjdy5qa9/9eXn351GlZt0X8aSi6TgA1gE8+AU9JrJGRh8LMF5z8KrcPrIZZ8z+ERKEcEFmMQC+ExaSuAL2O0y+ZVUZfKS54pn1BuTg/Dfd0ZpMPAD1Chs9MlG5jldMVmMUV9gtMzlNaNKT25Ak8iDtsNrRBbcMcqU3HNaJgEP90bkcbiGsv73cI2epxs=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type text) meta [Serialized.Text = true]) in type table [Column1 = _t, Column2 = _t]),
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}, {"Column2", type text}}),
#"Promoted Headers" = Table.PromoteHeaders(#"Changed Type", [PromoteAllScalars=true]),
#"Changed Type1" = Table.TransformColumnTypes(#"Promoted Headers",{{"letter", type text}, {"frequency", type number}})
in
#"Changed Type1";

shared #"test surface" = let
Source = Csv.Document(File.Contents("C:\Users\310299630\Documents\Projects\DI Pricing\test surface.csv"),[Delimiter=",", Columns=8, Encoding=1252, QuoteStyle=QuoteStyle.None]),
#"Promoted Headers" = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),
#"Changed Type" = Table.TransformColumnTypes(#"Promoted Headers",{{"TPR", type number}, {"C1", type number}, {"C2", type number}, {"C3", type number}, {"SalesVolume", type number}, {"SalesMargin", type number}, {"WinRate", type number}})
in
#"Changed Type";