yihui · June 13, 2021 17:45 · geotheory · Dec 3, 2014 · makman7 · Sep 16, 2015
diff --git a/readme.md b/readme.md
diff --git a/input.Rnw b/input.Rnw
 \documentclass{article}

 \begin{document}

 <<names>>=
 input$firstname
 input$lastname
 @

 \end{document}
diff --git a/server.R b/server.R
 library(knitr)

 shinyServer(function(input, output) {
  output$report = downloadHandler(
    filename = 'myreport.pdf',
    
    content = function(file) {
      out = knit2pdf('input.Rnw', clean = TRUE)
      file.rename(out, file) # move pdf to file for downloading
    },
    
    contentType = 'application/pdf'
  )
 })
diff --git a/ui.R b/ui.R
 library(shiny)

 shinyUI(basicPage(
  textInput('firstname', 'First name', value = 'Jimmy'),
  textInput('lastname', 'Last name', value = 'John'),
  downloadButton('report')
 ))
	library(knitr)

	shinyServer(function(input, output) {
	output$report = downloadHandler(
	filename = 'myreport.pdf',

	content = function(file) {
	out = knit2pdf('input.Rnw', clean = TRUE)
	file.rename(out, file) # move pdf to file for downloading
	},

	contentType = 'application/pdf'
	)
	})
	library(shiny)

	shinyUI(basicPage(
	textInput('firstname', 'First name', value = 'Jimmy'),
	textInput('lastname', 'Last name', value = 'John'),
	downloadButton('report')
	))