For more information about Shiny look at the documentation.
If you wish to write some code you may like to use the pre() function like this:
sliderInput("year", "Year", min = 1893, max = 2005, value = c(1945, 2005), sep = "")