cancel
Showing results for 
Search instead for 
Did you mean: 
Reply
jonsey1995
Frequent Visitor

Power Query R script step not running when refresh in PowerBI Desktop

Hi All,

 

I'm trying to export a query to excel using the the following R script step in Power Query:

 

 

install.packages("openxlsx")
library("openxlsx")
write.xlsx(dataset, "removed this but is a valid directory", asTable = TRUE, overwrite = TRUE)

 

 

When i refresh preview in power query, file is created/ overwritten correctly 👍

 

However when refreshing using powerBI Desktop the file is not created/overwritten 👎

 

Help appreciated, thanks!

1 ACCEPTED SOLUTION
lbendlin
Super User
Super User

Seems to work fine  (within the limitations of this setup)

 

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WclSK1YlWcgKTzmDSRSk2FgA=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Column1 = _t]),
    #"Added Custom" = Table.AddColumn(Source, "Custom", each Number.Random()),
    #"Run R script" = R.Execute("# 'dataset' holds the input data for this script#(lf)library(""openxlsx"")#(lf)write.xlsx(dataset, ""C:\\users\\xxx\\downloads\\test.xlsx"", asTable = TRUE, overwrite = TRUE)#(lf)output<-dataset",[dataset=#"Added Custom"]),
    #"""output""" = #"Run R script"{[Name="output"]}[Value]
in
    #"""output"""

You don't really want to install packages in your script - do that in the R command line.

View solution in original post

1 REPLY 1
lbendlin
Super User
Super User

Seems to work fine  (within the limitations of this setup)

 

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WclSK1YlWcgKTzmDSRSk2FgA=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Column1 = _t]),
    #"Added Custom" = Table.AddColumn(Source, "Custom", each Number.Random()),
    #"Run R script" = R.Execute("# 'dataset' holds the input data for this script#(lf)library(""openxlsx"")#(lf)write.xlsx(dataset, ""C:\\users\\xxx\\downloads\\test.xlsx"", asTable = TRUE, overwrite = TRUE)#(lf)output<-dataset",[dataset=#"Added Custom"]),
    #"""output""" = #"Run R script"{[Name="output"]}[Value]
in
    #"""output"""

You don't really want to install packages in your script - do that in the R command line.

Helpful resources

Announcements
May 2023 update

Power BI May 2023 Update

Find out more about the May 2023 update.

Submit your Data Story

Data Stories Gallery

Share your Data Story with the Community in the Data Stories Gallery.

Top Solution Authors