|
4 | 4 | #' kwb.pkgbuild:::kwb_author("rustler")) |
5 | 5 | #' @param copyright_holder_name name of copyright holder |
6 | 6 | #' (default: kwb.pkgbuild:::kwb_string()) |
| 7 | +#' @param pkg name of KWB package (default: get_pkgname()) |
| 8 | +#' @param user name of GitHub user/organisation (default: 'kwb-r') |
| 9 | +#' @param domain name of domain for webpage publishing (default: 'github') |
7 | 10 | #' @return performs usethis::use_pkgdown() and additionally writes _pkgdown.yml |
8 | 11 | #' based on KWB styling |
9 | 12 | #' @importFrom usethis use_pkgdown |
| 13 | +#' @importFrom kwb.utils isNaOrEmpty |
10 | 14 | #' @export |
11 | 15 | use_pkgdown <- function( |
12 | 16 | author = kwb_author("rustler"), |
13 | | - copyright_holder_name = kwb_string() |
| 17 | + copyright_holder_name = kwb_string(), |
| 18 | + pkg = get_pkgname(), |
| 19 | + user = "kwb-r", |
| 20 | + domain = "github" |
14 | 21 | ) |
15 | 22 | { |
16 | 23 | usethis::use_pkgdown() |
17 | 24 |
|
| 25 | + pkgdown_url <- "" |
| 26 | + |
| 27 | + if(domain == "github" & !kwb.utils::isNaOrEmpty(pkg) & !kwb.utils::isNaOrEmpty(user)) { |
| 28 | + pkgdown_url <- yaml::as.yaml(list(url = sprintf("https://%s.github.io/%s", |
| 29 | + tolower(user), |
| 30 | + tolower(pkg))) |
| 31 | + ) |
| 32 | + } |
| 33 | + |
18 | 34 | authors <- stats::setNames(list(list(href = author$url)), author$name) |
19 | 35 |
|
20 | 36 | if (copyright_holder_name == kwb_string()) { |
21 | 37 |
|
22 | 38 | authors <- c(authors, stats::setNames(nm = copyright_holder_name, list(list( |
23 | 39 | href = "http://www.kompetenz-wasser.de", |
24 | 40 | html = paste0( |
25 | | - "<img src='http://www.kompetenz-wasser.de/wp-content/uploads/", |
26 | | - "2017/08/cropped-logo-kwb_klein-new.png' height='24' />") |
| 41 | + "<img src='https://publications.kompetenz-wasser.de/img/KWB-Logo.svg", |
| 42 | + " alt='KWB' width='72' />") |
27 | 43 | )))) |
28 | 44 | } |
29 | 45 |
|
| 46 | + |
| 47 | + design <- list(bootstrap = 5L, |
| 48 | + bootswatch = "cerulean", |
| 49 | + bslib = list(bg = "#ffffff", |
| 50 | + fg = "#000000", |
| 51 | + primary = "#007aff", |
| 52 | + `border-radius` = "0.5rem", |
| 53 | + `btn-border-radius` = "0.25rem")) |
| 54 | + |
30 | 55 | pkgdown_yaml <- yaml::as.yaml(list( |
31 | 56 | authors = authors, |
32 | | - template = list(params = list(bootswatch = "cerulean")), |
| 57 | + template = design, |
33 | 58 | development = list(mode = "auto") |
34 | 59 | )) |
35 | 60 |
|
| 61 | + pkgdown_yaml <- paste0(pkgdown_url, pkgdown_yaml) |
| 62 | + |
36 | 63 | writeLines(pkgdown_yaml, "_pkgdown.yml") |
37 | 64 |
|
38 | 65 | write_to_rbuildignore("^_pkgdown\\.yml$") |
|
0 commit comments