Fix issue #1

shiny - Error in if (!color %in% names(data)) { : argument is of length
zero