require(shiny)
runApp(list(
ui = bootstrapPage(
tags$link(
rel = "stylesheet",
),
tags$style("h1{font-family: 'Open Sans'}"),
tags$h1("Test Font"),
numericInput('n', 'Number of obs', 100),
plotOutput('plot')
),
server = function(input, output) {
output$plot <- renderPlot({ hist(runif(input$n)) })
}
))