if (FALSE) {
# git clone https://github.com/creativecommons/cc-assets
library("rsvg")
compress <- function(svg_filename) {
svgz_filename <- paste0(svg_filename, 'z')
system(paste("cat", svg_filename, "| gzip >", svgz_filename))
}
rsvg::rsvg_svg("raw-data/cc-assets/license_badges/big/by.svg", "inst/extdata/badges/by.svg")
compress("inst/extdata/badges/by.svg")
rsvg::rsvg_svg("raw-data/cc-assets/license_badges/big/by_nc.svg", "inst/extdata/badges/by-nc.svg")
compress("inst/extdata/badges/by-nc.svg")
rsvg::rsvg_svg("raw-data/cc-assets/license_badges/big/by_nd.svg", "inst/extdata/badges/by-nd.svg")
compress("inst/extdata/badges/by-nd.svg")
rsvg::rsvg_svg("raw-data/cc-assets/license_badges/big/by_nc_nd.svg", "inst/extdata/badges/by-nc-nd.svg")
compress("inst/extdata/badges/by-nc-nd.svg")
rsvg::rsvg_svg("raw-data/cc-assets/license_badges/big/by_nc_sa.svg", "inst/extdata/badges/by-nc-sa.svg")
compress("inst/extdata/badges/by-nc-sa.svg")
rsvg::rsvg_svg("raw-data/cc-assets/license_badges/big/by_sa.svg", "inst/extdata/badges/by-sa.svg")
compress("inst/extdata/badges/by-sa.svg")
rsvg::rsvg_svg("raw-data/cc-assets/license_badges/big/cc_zero.svg", "inst/extdata/badges/cc-zero.svg")
compress("inst/extdata/badges/cc-zero.svg")
rsvg::rsvg_svg("raw-data/cc-assets/license_badges/big/publicdomain.svg", "inst/extdata/badges/publicdomain.svg")
compress("inst/extdata/badges/publicdomain.svg")
}
# SPDX License List data
# CC0 licensed
# Update CC urls and add CC badge info
if (TRUE) {
library("dplyr")
library("jsonlite")
library("rvest")
spdx_file <-"raw-data/spdx_license_list.html"
if (!file.exists(spdx_file))
download.file("https://spdx.org/licenses/", spdx_file)
spdx <- read_html(spdx_file) |> html_table() |> bind_rows()
names(spdx) <- c("name", "id", "fsf", "osi", "deprecated")
spdx_json_file <- "raw-data/spdx.json"
if (!file.exists(spdx_json_file))
download.file("https://raw.githubusercontent.com/sindresorhus/spdx-license-list/main/spdx.json",
spdx_json_file)
spdx_list <- jsonlite::fromJSON(spdx_json_file)
spdx_json <- spdx_list |> bind_rows() |> select(url_alt = url)
spdx_json$id <- names(spdx_list)
spdx_license_list <- left_join(spdx, spdx_json, by = "id")
spdx_license_list <- mutate(spdx_license_list,
fsf = ifelse(fsf == "Y", TRUE, fsf),
fsf = ifelse(fsf == "", FALSE, fsf),
fsf = as.logical(fsf),
osi = ifelse(osi == "Y", TRUE, fsf),
osi = ifelse(osi == "", FALSE, osi),
osi = as.logical(osi),
deprecated = ifelse(is.na(deprecated), FALSE, TRUE),
url = paste0("https://spdx.org/licenses/", id, ".html"),
url_alt = ifelse(id == "CC-BY-1.0", "https://creativecommons.org/licenses/by/1.0/", url_alt),
url_alt = ifelse(id == "CC-BY-2.0", "https://creativecommons.org/licenses/by/2.0/", url_alt),
url_alt = ifelse(id == "CC-BY-2.5", "https://creativecommons.org/licenses/by/2.5/", url_alt),
url_alt = ifelse(id == "CC-BY-3.0", "https://creativecommons.org/licenses/by/3.0/", url_alt),
url_alt = ifelse(id == "CC-BY-4.0", "https://creativecommons.org/licenses/by/4.0/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-1.0", "https://creativecommons.org/licenses/by-nc/1.0/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-2.0", "https://creativecommons.org/licenses/by-nc/2.0/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-2.5", "https://creativecommons.org/licenses/by-nc/2.5/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-3.0", "https://creativecommons.org/licenses/by-nc/3.0/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-4.0", "https://creativecommons.org/licenses/by-nc/4.0/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-ND-1.0", "https://creativecommons.org/licenses/by-nc-nd/1.0/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-ND-2.0", "https://creativecommons.org/licenses/by-nc-nd/2.0/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-ND-2.5", "https://creativecommons.org/licenses/by-nc-nd/2.5/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-ND-3.0", "https://creativecommons.org/licenses/by-nc-nd/3.0/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-ND-4.0", "https://creativecommons.org/licenses/by-nc-nd/4.0/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-SA-1.0", "https://creativecommons.org/licenses/by-nc-sa/1.0/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-SA-2.0", "https://creativecommons.org/licenses/by-nc-sa/2.0/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-SA-2.5", "https://creativecommons.org/licenses/by-nc-sa/2.5/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-SA-3.0", "https://creativecommons.org/licenses/by-nc-sa/3.0/", url_alt),
url_alt = ifelse(id == "CC-BY-NC-SA-4.0", "https://creativecommons.org/licenses/by-nc-sa/4.0/", url_alt),
url_alt = ifelse(id == "CC-BY-ND-1.0", "https://creativecommons.org/licenses/by-nd/1.0/", url_alt),
url_alt = ifelse(id == "CC-BY-ND-2.0", "https://creativecommons.org/licenses/by-nd/2.0/", url_alt),
url_alt = ifelse(id == "CC-BY-ND-2.5", "https://creativecommons.org/licenses/by-nd/2.5/", url_alt),
url_alt = ifelse(id == "CC-BY-ND-3.0", "https://creativecommons.org/licenses/by-nd/3.0/", url_alt),
url_alt = ifelse(id == "CC-BY-ND-4.0", "https://creativecommons.org/licenses/by-nd/4.0/", url_alt),
url_alt = ifelse(id == "CC-BY-SA-1.0", "https://creativecommons.org/licenses/by-sa/1.0/", url_alt),
url_alt = ifelse(id == "CC-BY-SA-2.0", "https://creativecommons.org/licenses/by-sa/2.0/", url_alt),
url_alt = ifelse(id == "CC-BY-SA-2.5", "https://creativecommons.org/licenses/by-sa/2.5/", url_alt),
url_alt = ifelse(id == "CC-BY-SA-3.0", "https://creativecommons.org/licenses/by-sa/3.0/", url_alt),
url_alt = ifelse(id == "CC-BY-SA-4.0", "https://creativecommons.org/licenses/by-sa/4.0/", url_alt),
url_alt = ifelse(id == "CC0-1.0", "https://creativecommons.org/publicdomain/zero/4.0/", url_alt),
badge = NA_character_
)
which_cc <- grep("^Creative Commons", spdx_license_list$name)
spdx_license_list$name[which_cc] <- gsub(" Non Commercial", "-NonCommercial", spdx_license_list$name[which_cc])
spdx_license_list$name[which_cc] <- gsub(" Share Alike", "-ShareAlike", spdx_license_list$name[which_cc])
spdx_license_list$name[which_cc] <- gsub(" No Deriv", "-NoDeriv", spdx_license_list$name[which_cc])
spdx_license_list <- as.data.frame(spdx_license_list)
spdx_license_list <- select(spdx_license_list, id, name, url, fsf, osi, deprecated, badge, url_alt) |> as.data.frame()
rownames(spdx_license_list) <- spdx_license_list$id
# manually assign badge data
spdx_license_list["CC-BY-1.0", "badge"] <- "by.svgz"
spdx_license_list["CC-BY-2.0", "badge"] <- "by.svgz"
spdx_license_list["CC-BY-2.5", "badge"] <- "by.svgz"
spdx_license_list["CC-BY-2.5-AU", "badge"] <- "by.svgz"
spdx_license_list["CC-BY-3.0", "badge"] <- "by.svgz"
spdx_license_list["CC-BY-3.0-AT", "badge"] <- "by.svgz"
spdx_license_list["CC-BY-3.0-DE", "badge"] <- "by.svgz"
spdx_license_list["CC-BY-3.0-NL", "badge"] <- "by.svgz"
spdx_license_list["CC-BY-3.0-US", "badge"] <- "by.svgz"
spdx_license_list["CC-BY-4.0", "badge"] <- "by.svgz"
spdx_license_list["CC-BY-NC-1.0", "badge"] <- "by-nc.svgz"
spdx_license_list["CC-BY-NC-2.0", "badge"] <- "by-nc.svgz"
spdx_license_list["CC-BY-NC-2.5", "badge"] <- "by-nc.svgz"
spdx_license_list["CC-BY-NC-3.0", "badge"] <- "by-nc.svgz"
spdx_license_list["CC-BY-NC-3.0-DE", "badge"] <- "by-nc.svgz"
spdx_license_list["CC-BY-NC-4.0", "badge"] <- "by-nc.svgz"
spdx_license_list["CC-BY-NC-ND-1.0", "badge"] <- "by-nc-nd.svgz"
spdx_license_list["CC-BY-NC-ND-2.0", "badge"] <- "by-nc-nd.svgz"
spdx_license_list["CC-BY-NC-ND-2.5", "badge"] <- "by-nc-nd.svgz"
spdx_license_list["CC-BY-NC-ND-3.0", "badge"] <- "by-nc-nd.svgz"
spdx_license_list["CC-BY-NC-ND-3.0-DE", "badge"] <- "by-nc-nd.svgz"
spdx_license_list["CC-BY-NC-ND-3.0-IGO", "badge"] <- "by-nc-nd.svgz"
spdx_license_list["CC-BY-NC-SA-4.0", "badge"] <- "by-nc-sa.svgz"
spdx_license_list["CC-BY-NC-SA-1.0", "badge"] <- "by-nc-sa.svgz"
spdx_license_list["CC-BY-NC-SA-2.0", "badge"] <- "by-nc-sa.svgz"
spdx_license_list["CC-BY-NC-SA-2.0-FR", "badge"] <- "by-nc-sa.svgz"
spdx_license_list["CC-BY-NC-SA-2.0-UK", "badge"] <- "by-nc-sa.svgz"
spdx_license_list["CC-BY-NC-SA-2.5", "badge"] <- "by-nc-sa.svgz"
spdx_license_list["CC-BY-NC-SA-3.0", "badge"] <- "by-nc-sa.svgz"
spdx_license_list["CC-BY-NC-SA-3.0-DE", "badge"] <- "by-nc-sa.svgz"
spdx_license_list["CC-BY-NC-SA-3.0-IGO", "badge"] <- "by-nc-sa.svgz"
spdx_license_list["CC-BY-NC-SA-4.0", "badge"] <- "by-nc-sa.svgz"
spdx_license_list["CC-BY-ND-1.0", "badge"] <- "by-nd.svgz"
spdx_license_list["CC-BY-ND-2.0", "badge"] <- "by-nd.svgz"
spdx_license_list["CC-BY-ND-2.5", "badge"] <- "by-nd.svgz"
spdx_license_list["CC-BY-ND-3.0", "badge"] <- "by-nd.svgz"
spdx_license_list["CC-BY-ND-3.0-DE", "badge"] <- "by-nd.svgz"
spdx_license_list["CC-BY-ND-4.0", "badge"] <- "by-nd.svgz"
spdx_license_list["CC-BY-SA-1.0", "badge"] <- "by-sa.svgz"
spdx_license_list["CC-BY-SA-2.0", "badge"] <- "by-sa.svgz"
spdx_license_list["CC-BY-SA-2.0-UK", "badge"] <- "by-sa.svgz"
spdx_license_list["CC-BY-SA-2.1-JP", "badge"] <- "by-sa.svgz"
spdx_license_list["CC-BY-SA-2.5", "badge"] <- "by-sa.svgz"
spdx_license_list["CC-BY-SA-3.0", "badge"] <- "by-sa.svgz"
spdx_license_list["CC-BY-SA-3.0-AT", "badge"] <- "by-sa.svgz"
spdx_license_list["CC-BY-SA-3.0-DE", "badge"] <- "by-sa.svgz"
spdx_license_list["CC-BY-SA-4.0", "badge"] <- "by-sa.svgz"
spdx_license_list["CC-PDDC", "badge"] <- "publicdomain.svgz"
spdx_license_list["CC0-1.0", "badge"] <- "cc-zero.svgz"
}
save(spdx_license_list, file="data/spdx_license_list.rda", version=2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.