diff --git a/R/iflatex.R b/R/iflatex.R
new file mode 100644
index 0000000..35b1bef
--- /dev/null
+++ b/R/iflatex.R
@@ -0,0 +1,19 @@
+#' Return latex control text if rendering latex
+#'
+#' @param txt
+#'
+#' @return a string
+#' @export
+#'
+#' @examples
+#' \dontrun{
+#' iflatex("\\vspace*{\\fill}")
+#' }
+#'
+iflatex <- function(txt){
+  if (knitr::opts_knit$get("rmarkdown.pandoc.to") == "latex"){
+    return(txt)
+  } else {
+    return("")
+  }
+}
\ No newline at end of file
diff --git a/R/posterdown.R b/R/posterdown.R
new file mode 100644
index 0000000..4799c3c
--- /dev/null
+++ b/R/posterdown.R
@@ -0,0 +1,14 @@
+#' posterdown: A package for creating Rmarkdown based PDF Latex Posters
+#'
+#' This package creates posters for conferences
+#'
+#' @section poster_pdf:
+#' Creates an R Markdown template fo a PDF poster document
+#' @docType package
+#' @name posterndown
+#' @import rmarkdown
+#' @import devtools
+#' @import dplyr
+#' @import ggplot2
+#' @import knitr
+NULL
diff --git a/R/posterdown_render.R b/R/posterdown_render.R
new file mode 100644
index 0000000..826348c
--- /dev/null
+++ b/R/posterdown_render.R
@@ -0,0 +1,38 @@
+#' Creates an R Markdown PDF Thesis document
+#'
+#' This is a function called in output in the YAML of the driver Rmd file
+#' to specify using the Brock University LaTeX template and cls files.
+#'
+#' @export
+#'
+#' @param toc A Boolean (TRUE or FALSE) specifying where table of contents should be created
+#' @param toc_depth A positive integer
+#' @param ... arguments to be passed to \code{rmarkdown::\link[rmarkdown]{pdf_document}}
+#'
+#' @return A modified \code{pdf_document} based on the Jacobs Landscape Poster Latex template
+#' @note The arguments highlight, keep_tex, and pandoc_args, are already set.
+#' @examples
+#' \dontrun{
+#'  output: posterdown::poster_pdf
+#' }
+poster_pdf <- function(toc = TRUE, toc_depth = 3, ...){
+
+  base <- rmarkdown::pdf_document(template = "template.tex",
+                             toc = toc,
+                             toc_depth = toc_depth,
+                             highlight = "default",
+                             keep_tex = TRUE,
+                             pandoc_args = "--top-level-division=default",
+                             ...)
+
+  # Mostly copied from knitr::render_sweave
+  base$knitr$opts_chunk$comment   <- NA
+  base$knitr$opts_chunk$fig.align <- "center"
+  base$knitr$opts_chunk$out.width <- "80%"
+  base$knitr$opts_knit$root.dir   <- getwd()
+  # Not sure if needed?
+  base$knitr$knit_hooks$plot <- knitr:::hook_plot_tex
+
+  base
+
+}