Edited code to remove unnessecery HTML operators and instead use shiny tags