reproducible report

ui.R

library(shiny)
library(knitr)

# Define UI for application
shinyUI(fluidPage(
  
  ## Application title
  titlePanel("Dynamic report"),
  
	fluidRow(

		column(4, 
			wellPanel(
				uiOutput("run"),
				submitButton(text = "Go!", icon = NULL)			
			)
  	),
  
		column(8,
			uiOutput("summary"),
    	downloadButton("downloadPDF", "Download PDF"),
    	downloadButton("downloadEPUB", "Download epub"),
    	downloadButton("downloadHTML", "Download HTML")
		) 
	)
))