From 2fd7c0e7b4e0387f6aa57c19104565f171ebd945 Mon Sep 17 00:00:00 2001 From: Nils Reiter Date: Fri, 10 Nov 2017 14:08:27 +0100 Subject: [PATCH] fixed minor things --- inst/rmd/Report.Rmd | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/inst/rmd/Report.Rmd b/inst/rmd/Report.Rmd index 97eddf0..0ef50e7 100644 --- a/inst/rmd/Report.Rmd +++ b/inst/rmd/Report.Rmd @@ -27,9 +27,9 @@ if (is.null(.Options$qd.datadir)) { require(magrittr) mtext <- loadSegmentedText(params$id) -meta <- loadMeta(params$id, type=atypes$Drama) -author <- loadMeta(params$id,type=atypes$Author) +meta <- loadMeta(params$id) title <- as.character(meta[1,"documentTitle"]) + ``` --- @@ -39,7 +39,7 @@ title: "QuaDramA Report: `r title`" # Meta data -- Author(s): `r paste(paste0("[",author$Name,"](http://d-nb.info/gnd/",author$Pnd,")"),sep=", ")` +- Author(s): `r paste(paste0("[",meta$Name,"](http://d-nb.info/gnd/",meta$Pnd,")"),sep=", ")` # Character Lists {.tabset}