Trailing pipe in documentation

[threadingdata]

new_ads <- superbowl_ads %>% select(-like_count) %>% <------------------ Trailing pipe.

endpoint <- vetiver_endpoint("http://0.0.0.0:8080/predict")