From 6264cb0e557e294337566af4a42805b49219dacc Mon Sep 17 00:00:00 2001 From: Philipp A Date: Wed, 19 Jun 2019 14:38:26 +0200 Subject: [PATCH 1/2] WIP vignette repr --- R/repr_vignette.r | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 R/repr_vignette.r diff --git a/R/repr_vignette.r b/R/repr_vignette.r new file mode 100644 index 0000000..03b74d2 --- /dev/null +++ b/R/repr_vignette.r @@ -0,0 +1,13 @@ +repr_vignette_generic <- function(v, ext, isbinary) { + path <- file.path(v$Dir, 'doc', v$PDF) + if (tolower(tools::file_ext(path)) == ext) { + s <- file.info(file)$size + if (isbinary) + readBin(path, 'raw', s) + else + readChar(path, s) + } else NULL +} + +repr_html.vignette <- function(obj, ...) repr_vignette_generic(obj, 'html', FALSE) +repr_pdf.vignette <- function(obj, ...) repr_vignette_generic(obj, 'pdf', FALSE) From 599613198d3566f86745c99102fc5c8d563df53a Mon Sep 17 00:00:00 2001 From: Philipp A Date: Wed, 19 Jun 2019 14:39:03 +0200 Subject: [PATCH 2/2] Update repr_vignette.r --- R/repr_vignette.r | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/repr_vignette.r b/R/repr_vignette.r index 03b74d2..63437c1 100644 --- a/R/repr_vignette.r +++ b/R/repr_vignette.r @@ -10,4 +10,4 @@ repr_vignette_generic <- function(v, ext, isbinary) { } repr_html.vignette <- function(obj, ...) repr_vignette_generic(obj, 'html', FALSE) -repr_pdf.vignette <- function(obj, ...) repr_vignette_generic(obj, 'pdf', FALSE) +repr_pdf.vignette <- function(obj, ...) repr_vignette_generic(obj, 'pdf', TRUE)