R Visual - lubridate package not found

Hello,

I received a report from a user I need to publish in PBI Service. This report is using R visual and unfortunately my knowledge in R is really limited.

When I publish the report it shows error in the R visual saying that "there is no package called "lubridate"". But I checked on this list () and lubridate is here. So I don't really understand why it doesn't work.

Do you have any idea why this is in error ?

Here's the error message and the R visual code :

.libPaths("\\\\Homedirs\\g32377\\Documents\\R\\win-library\\3.5")
.libPaths()  
library("lubridate")
library("dplyr")
library("ggplot2")
library("tidyquant")

firstyear<-min(dataset$year)
lastyear<-max(dataset$year)
marque<-unique(dataset$MARQUE)

dataset<-dataset%>%
  mutate(DCLOEX2=as.Date(DCLOEX2))

prixtotal<-dataset%>%
  group_by(NUMMIS)%>%
  summarise(totalcost=sum(AM))%>%
  left_join(unique(dataset[,c('NUMMIS','DCLOEX2')]),by="NUMMIS")

prixaverage<-prixtotal%>%
  group_by(date=floor_date(DCLOEX2, "1 year"))%>%
  summarise(average=mean(totalcost))%>%
  mutate(average2=round(average))

nombre<-prixtotal%>%
  group_by(date=floor_date(DCLOEX2, "1 year"))%>%
  count()

pieces12<-dataset%>%
  filter(DCLOEX2<ymd(paste(firstyear+1,01,01)))%>%
  group_by(CODE_clean)%>%
  summarise(total12=sum(AM))

pieces12<-pieces12%>%
  mutate(av12=total12/nombre$n[1])


pieces18<-dataset%>%
  filter(DCLOEX2>ymd(paste(lastyear-1,12,31)))%>%
  group_by(CODE_clean)%>%
  summarise(total18=sum(AM))

pieces18<-pieces18%>%
  mutate(av18=total18/nombre$n[as.numeric(dim(nombre)[1])])

difference<-full_join(pieces18,pieces12,by='CODE_clean')%>%
  select(CODE_clean,av12,av18)%>%
  mutate(av12=ifelse(is.na(av12),0,av12))%>%
  mutate(av18=ifelse(is.na(av18),0,av18))%>%
  mutate(diff=av18-av12)%>%
  mutate(diff2=round(diff))%>%
  arrange(desc(diff))
difference<-left_join(difference,unique(dataset[,c('CODE_clean','label.1')]),by=c('CODE_clean'))

other<-difference[-(1:10),]
nbr<-as.numeric(dim(other)[1])
other<-data.frame('CODE_clean'=paste('others (',nbr,')'),'av12'=sum(other$av12,na.rm=TRUE),'av18'=sum(other$av18,na.rm = TRUE),'diff'=sum(other$diff),'diff2'=round(sum(other$diff)),'label.1'='')

final<-rbind(difference[1:10,],other)%>%
  select(CODE_clean,diff2,label.1)


a<-c(prixaverage$average2[1],final$diff2)
a<-cumsum(a)
open<-a[-length(a)]
close<-a[-1]

graphe<-cbind(final,'open'=open,'close'=close)

lab<-paste(graphe$CODE_clean,graphe$label.1)

order_CODE <- unique(lab)
graphe$lab <- factor(lab, levels = order_CODE)

p<-graphe %>%
  ggplot(aes(x=lab,y=close))+
  ylim(0,max(close)+150)+
  geom_candlestick(aes(open = open, high = close, low = open, close = close)) +
  labs(title = marque, 
      y = "", x = "") + 
  geom_text(aes(label = diff2), vjust = -0.8, size = 4) +
  theme_tq()+
  theme(axis.text.x = element_text(angle = 90, vjust=0.5))+
  geom_text(x=1, y=open[1]-150, label=paste(firstyear,'\n',round(prixaverage$average[1]),'e'),size =4)+
  geom_text(x=11, y=open[11]-150, label=paste(lastyear,'\n',round(prixaverage$average[as.numeric(dim(prixaverage)[1])]),'e'))
print(p)