Nothing
#' Rttf2pt1 package
#'
#' This package is a wrapper for the ttf2pt1 program, and is meant
#' to be used with the extrafont package.
#'
#' @name Rttf2pt1
#' @docType package
#' @aliases Rttf2pt1 package-Rttf2pt1
NULL
#' Returns the path to the executable for ttf2pt1
#'
#' @examples
#' which_ttf2pt1()
#'
#' @export
which_ttf2pt1 <- function() {
if (.Platform$OS.type == "unix") {
bin <- "ttf2pt1"
binpath <- file.path(inst_path(), "exec", .Platform$r_arch, bin)
# Fallback: manually try i386 if the r_arch version doesn't exist
if (!file.exists(binpath))
binpath <- file.path(inst_path(), "exec", "i386", bin)
} else if (.Platform$OS.type == "windows") {
bin <- "ttf2pt1.exe"
binpath <- file.path(inst_path(), "exec", bin)
} else {
stop("Unknown platform: ", .Platform$OS.type)
}
# First check if it was installed with the package
if (file.exists(binpath))
return(binpath)
# If we didn't find it installed with the package, check search path
binpath <- Sys.which(bin)
if (binpath == "")
stop(bin, " not found in path.")
else
return(binpath)
}
# Borrowed this from staticdocs
inst_path <- function() {
envname <- environmentName(environment(inst_path))
# If installed in package, envname == "Rttf2pt1"
# If loaded with load_all, envname == "package:Rttf2pt1"
# (This is kind of strange)
if (envname == "Rttf2pt1") {
system.file(package = "Rttf2pt1")
} else {
srcfile <- attr(attr(inst_path, "srcref"), "srcfile")
file.path(dirname(dirname(srcfile$filename)), "inst")
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.