r - Raster package doesn't work with my shiny server -

i trying put script on shiny server. script working when type in r console. r script using shiny.

library(shiny) library(htmlwidgets) library(raster) library(leaflet) library(sp) library(rcurl)  # paths input / output files projectpath = "/srv/shiny-server/sample-apps/hello" imgpath = paste(projectpath,"/test.tif", sep = "")  # load raster image file r <- raster(imgpath) pal <- colornumeric(c("#ff0000", "#666666", "#ffffff"), values(r),                     na.color = "transparent")  r_colors <- rgb(t(col2rgb(colors()) / 255)) names(r_colors) <- colors()  ui <- fluidpage(   leafletoutput("mymap"),   p(),   actionbutton("recalc", "new points") )  server <- function(input, output, session) {    points <- eventreactive(input$recalc, {     cbind(rnorm(40) * 2 + 13, rnorm(40) + 48)   }, ignorenull = false)    output$mymap <- renderleaflet({     leaflet() %>%   addtiles() %>%   addrasterimage(r, colors=pal, opacity = 0.9, maxbytes = 123123123) %>%   addlegend(pal = pal, values = values(r), title = "salut")   }) }  shinyapp(ui, server) 

this random script need able show raster file on leaflet map , can't make work shiny-server. error :

error: cannot create rasterlayer object file. 

before line:

r <- raster(imgpath) 

do

print(imgpath) file.exists(imgpath) 

to check if correct. , check if rgdal can found:

library(rgdal)