R script visual doesn't want to load in services

I have created an R script visual. It works fine in my desktop version of Power BI. Unfortunatly, after publishing my report online the R visual script won't load in my brower. The R script visual doesn't give an error. It just stop loading after a short time and remains white. 

I have only used packages that are support by R, namely "lattice" and "reshape". This is the first time that I'm using R I don't completely understand it yet.

This is the R code that I'm using:

### loading packages

if (!require("lattice")) {
install.packages("lattice", dependencies = TRUE)
library(lattice)
}
if (!require("reshape")) {
install.packages("reshape", dependencies = TRUE)
library("reshape")
}

my_palette <- colorRampPalette(c("red","yellow","green4"))(n = 3000)

aggdata <-aggregate(dataset, by=list(dataset$f_Y2,dataset$r_Y2),
FUN=mean, na.rm=TRUE)
format <- cast(aggdata, Group.1 ~ Group.2)
rowcolNames2 <- list(as.character(1:8), as.character(1:8))
rownames(format) <- format$Group.1
format$Group.1 <- NULL
RFM_matrix <- data.matrix(format)

# 1) Air Passengers #1
plot(1,1)
print(levelplot(RFM_matrix,
col.regions=my_palette,
xlab = "freqentie",
ylab = "recency",
main=" "))

title(main="Churn rate", line=3,adj=0.96)

Does anybody know what could be wrong?