riatelab/bertinr

A wrapper for bertin.js

bertinr's Issues

How to export as an svg file?

Shouldn't we rename it bertin instead of bertinR?

move the repo from private to open?

It would allow to use github pages

We should produce a shiny example

bt_waterlines is not working

bt_logo | Local images are not rendered

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}

Vignettes

A vignette by usage
Off-CRAN vignettes?