Write an R shiny app that visualises the mtcars dataset