Rshiny-run a function using slider values, download generated csv

I'm fairly new to Rshiny and looking for some help to understand how to create a Function that uses parameters that a user will select from the slider values on the app. The ultimate goal is generate a csv file which can be used to plot the function. This is what I have so far:

ui <- fluidPage(
titlePanel( p ("title text", style = "color:#3474A7")),
sidebarLayout (
sliderInput("Pop", "Pop Biomass:",
min = 0, max = 1000,
value = 651.7, step=0.1),
sliderInput("Rate", "slope:",
min = 0, max = 10,
value = 0.8, step=0.1),
sliderInput("Shape", "Sigmoid Shape:",
min = 0, max = 10,
value = 0.9, step=0.1),
sliderInput ("Area", "Activity:",
min = 0, max = 10000,
value = 180, step=20),
sliderInput("Time", "Age:",
min = 1, max = 50,
value = 2, step=1)
mainPanel( # Output: Table summarizing the values entered ----
Mod = function(A, b2, b3, R, x) {R *(A * exp(-b2 * b3 ^x))}
server <- function(input, output){
sliderValues <- reactive({
Name = c("Pop",
Value = as.character(c(input$Pop,
stringsAsFactors = FALSE)
output$values1 <- renderTable({
output$values<- renderTable({(Mod(input$Pop,input$Shape,input$Rate,input$Area,input$Time))
shinyApp(ui = ui, server = server)

I'm not sure how to make the function use the slider values to run the specified function. Once it does that I want that function to run for all the years (Time-50 years) and generate an output-a csv output with two columns: Mod (y-axis) and Time (x-axis) which can be plotted to show the growth over time.

It seems your function got garbled and its unclear how to make sense of it, my best guess is you meant

Mod = function(A, b2, b3, R, x) {R*(A*exp(-b2*b3^x))}

but then this doesnt make sense


as its a call with 4 parameters, but the function you defined had 5, anyway, in the app you do call it with 5 so thats ok.

The sliderInput definition for Time had a comma in the wrong place around the max param.
That would stop the whole application from working; with that corrected the app runs fine