This app takes a number from a given slider between 1 and 1000000 and gives a histogram of binomial distribution of that number of observations given in input. The binomial distribtuion has a default size of 20,000 and probability of 0.5

The UI has a side panel with a slider between numbers 1 and 1,000,000 and takes the input value from there

The server calculates the input value (suppose say 500) and evaluates the function as follows

result <- rbinom(500, size = 20000, prob = 0.5)

hist(result, col = 'darkgray', border = 'white',
             xlab = 'x',
             main = 'Histogram')

App link in shinyapps - https://icedmcstuffin.shinyapps.io/ShinyAssignment/

Github repository of the app - https://github.com/Icedmcstuffin/DataProductProject