bt_logo | Local images are not rendered

[llongour]

bt_logo works correctly with a url

library(bertin)
library(sf)

bt_logo <-function(bertin, url, position, size = 100, display= TRUE){
  res <- c(as.list(environment()))
  res <- bertin:::clean_input(res, type = "logo")
  if(missing(bertin)){bertin <- list()}
  bertin$layers[[length(bertin$layers) + 1]] <- res
  return(bertin)
}

world <- st_read(system.file("gpkg/world.gpkg", package = "bertin"),
                 layer = "world", quiet = TRUE)
img <- "https://upload.wikimedia.org/wikipedia/commons/thumb/1/1b/R_logo.svg/310px-R_logo.svg.png"

bt_param(margin = 10, width = 500, projection = "Winkel3") |>
  bt_layer(data = world, fill = "red") |>
  bt_logo(url = img) |>
  bt_draw()

^{Created on 2023-05-11 with reprex v2.0.2}

But if I do the same with a local image that doesn't work, i also tried with file:// on the path

library(bertin)
library(sf)

bt_logo <-function(bertin, url, position, size = 100, display= TRUE){
  res <- c(as.list(environment()))
  res <- bertin:::clean_input(res, type = "logo")
  if(missing(bertin)){bertin <- list()}
  bertin$layers[[length(bertin$layers) + 1]] <- res
  return(bertin)
}

world <- st_read(system.file("gpkg/world.gpkg", package = "bertin"),
                 layer = "world", quiet = TRUE)
img <- paste0("file://",system.file("png/bertin.png", package = "bertin"))

bt_param(margin = 10, width = 500, projection = "Winkel3") |>
  bt_layer(data = world, fill = "red") |>
  bt_logo(url = img) |>
  bt_draw()

^{Created on 2023-05-11 with reprex v2.0.2}