Export Data Using R from Power BI Service

Hi Community,

I have created table using R Script in Power Bi Desktop and I have added script to export data from R Scripted Table. It works fine and data exported to the path as I mentioned in the Script in Power BI Desktop. When I publish same report to Power Bi Service, Script Ran successfully without any error. I could not find the path where the exported data located in Power BI Service. Please do needful as earlier.

Following is my script I have used
----------------------------------------------------------------------------------------
dataset <- data.frame(ref, ref1, ref2, ref3,ref4)
dataset <- unique(dataset)
library(gridExtra)
a<-data.frame(dataset$ref,dataset$ref1,dataset$ref2,dataset$ref3)
colnames(a) <- c("Ref", "Risk Value","Title","Desc")

file<-dataset$ref4[1]
file1<-paste("~/",paste(file,".csv",sep=''),sep='')             # "~/"  it refers to default working directory (path) of R
if(dataset$Output.2[1] == "Export")
{
zz <- file(description=file1, "w")
write.csv(a, zz)
close(zz)
}
grid.table("Exported")
----------------------------------------------------------------------------------------
Thanks in Advance,
Sowmiya