#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
# https://shiny.posit.co/
#
library(shiny)
library(markdown)
shinyUI(navbarPage("Random number generator",
tabPanel("Random numbers",
sidebarLayout(
sidebarPanel(
helpText("Give the number of random numbers to be plotted and adjust the axis "),
numericInput("numeric", "How many random numbers should be plotted?",
value = 200, min = 0, max = 200, step = 1),
sliderInput("xslider", "Pick a minimum and maximum number for the x-axis between -200 and 200 if you like",
-200, 200, value = c(-137, 137)),
sliderInput("yslider", "Pick a minimum and maximum number for the y-axis between -200 and 200 if you like",
-200, 200, value = c(-137, 137)),
submitButton("Press please")
),
mainPanel(
h4("Your own random generated numbers"),
plotOutput("plot1")
)
)
),
tabPanel("About random numbers",
mainPanel(
includeMarkdown("about")
))
)
) about