Skip to content

Instantly share code, notes, and snippets.

@charliejhadley

charliejhadley/server.R

Created July 3, 2023 13:40
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save charliejhadley/5945442ab32256f02775df273db7c68c to your computer and use it in GitHub Desktop.
Save charliejhadley/5945442ab32256f02775df273db7c68c to your computer and use it in GitHub Desktop.
Download ZIP
split file
Raw
server.R
function(input, output, session){
output$curve_plot <- renderPlot({
print(input$exponent)
curve(x^as.integer(input$exponent), from = -5, to = 5)
})
}
Raw
ui.R
fluidPage(
"Hello world",
selectInput("exponent",
label = "Set the exponent",
choices = 1:5),
plotOutput("curve_plot")
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment