Move ids poster to posterdown_ids and restore original posterdown_html
Change-Id: Ib44b4020134c403a2946d0fc4b79777e9ecbe3ac
diff --git a/R/posterdown_html.R b/R/posterdown_html.R
index c9d035d..e391b92 100644
--- a/R/posterdown_html.R
+++ b/R/posterdown_html.R
@@ -19,6 +19,30 @@
pagedown::poster_relaxed(..., css = css, template = template)
}
+#' Posterdown IDS-CD based on HTML format (using pagedown::poster_relaxed)
+#'
+#' @inheritParams pagedown::poster_relaxed
+#' @param ... Additional arguments to `rmarkdown::html_document`
+#'
+#' @return R Markdown output format to pass to
+#' [rmarkdown::render()]
+#'
+#'@examples
+#'\donttest{
+#'file <- file.path(tempdir(),"foo.rmd")
+#'rmarkdown::draft(file, template="posterdown_ids", package="posterdown")
+#'}
+#'
+#' @description The output format `poster_ids()` mimics the IDS Mannheim
+#' corporate design posters.
+#' @rdname posterdown_html
+#' @export
+posterdown_ids <- function(...,
+ template = find_resource("posterdown_ids", "template.html"),
+ css = NULL) {
+ pagedown::poster_relaxed(..., css = css, template = template)
+}
+
#' @description The output format `poster_betterland()` mimics the style of the
#' BetterPoster movement from twitter.
#' @rdname posterdown_html