R/get_logo_path.R

In jr-packages/jrNotes: Jumping Rivers: Helper Package for Notes

#' Create and get helper files
#'
#' Get logos, sty files and title pages
#' @export
get_logos = function() {
  fname = system.file("extdata",
                      c("robot.jpg", "logo.png", "rstudio_logo.png", "dependencies.png"),
                      package = "jrNotes",
                      mustWork = TRUE)
  file.copy(fname[1], to = "robot.jpg", overwrite = TRUE)
  file.copy(fname[2], to = "logo.png", overwrite = TRUE)
  file.copy(fname[3], to = "rstudio_logo.png", overwrite = TRUE)
  file.copy(fname[4], to = "dependencies.png", overwrite = TRUE)
}

#' @param main Front page title
#' @param running Running title
#' @rdname get_logos
#' @export
create_title_page = function(main = NULL, running = NULL) {
  config = get_config()
  if (is.null(main)) main = config$front
  if (is.null(running)) running = config$running

  if (isTRUE(config$rss)) {
    rss = "Accredited by the Royal Statistical Society."
  } else {
    rss = ""
  }

  get_logos()
  client = Sys.getenv("CLIENT")
  title_str = paste0("
\\newsavebox{\\titleimage}
\\savebox{\\titleimage}{\\includegraphics[width=1.2\\textwidth]{logo.png}}
\\title[", running, "]{%
  \\setlength{\\parindent}{0pt}%
  ", main, " \\par \\vspace{4cm}
  \\usebox{\\titleimage}}
\\author[jumpingrivers.com]{", client, "}
\\publisher{\\href{https://www.jumpingrivers.com}{jumpingrivers.com} \\newline ", rss, "}") #nolint
  cat(title_str, file = "titlepage.tex")
}

#' @export
#' @rdname  get_logos
create_jrStyle = function() { #nolint
  fname = system.file("extdata", "jrStyle.sty",
                      package = "jrNotes", mustWork = TRUE)
  file.copy(fname, to = "jrStyle.sty", overwrite = TRUE)
  con = get_config()
  watermark = con$watermark
  if (!is.null(watermark)) {
    f = file("jrStyle.sty", "a")
    on.exit(close(f))
    cat("% Adding watermark\n", file = f)
    cat("\\usepackage[printwatermark]{xwatermark}\n", file = f)
    cat("\\newwatermark*[allpages,angle=45,scale=3,xpos=0,ypos=0]{",
        watermark, "}\n\n", file = f, sep = "")
  }
}

create_advert = function() {
  fname = system.file("extdata",
                      "advert.tex",
                      package = "jrNotes",
                      mustWork = TRUE)
  file.copy(fname, to = "advert.tex", overwrite = TRUE)
}

create_course_dep = function() {
  fname = system.file("extdata",
                      "course-dependencies.tex",
                      package = "jrNotes",
                      mustWork = TRUE)
  file.copy(fname, to = "course-dependencies.tex", overwrite = TRUE)
}

#' @export
#' @rdname  get_logos
create_version = function() {
  year = substr(Sys.Date(), 1, 4) #nolint
  con = get_config()

  version = con$version
  if (get_repo_language() == "r") {
    pkg_name = get_r_pkg_name()[1]
    pkg_ver = utils::packageVersion(pkg_name)
  } else {
    pkg_name = get_python_pkg_name()[1]
    pkg_ver = system2("pip", c("show", pkg_name, "|",
                               "sed", "-n", "-e", "'s/Version: //p'"),
                      stdout = TRUE)
  }

  version_dots = strsplit(version, split = "\\.")[[1]]
  if (length(version_dots) != 3) {
    stop("Version should take the form of X.Y.Z", call. = FALSE)
  }
  version_str = glue::glue("\\fancyfoot{
     Version <version> \\qquad (\\textbf{<pkg_name>} v<pkg_ver>) \\hfill
     \\textcopyright Jumping Rivers Ltd <year>}",
                           .open = "<", .close = ">")
  version_str
}