Scale kable table to fit page width

How do you format a table in pdf using kable function? Because my output table width exceeds the width of the pdf. Here is an example:

---output: pdf_document---```{r}df <- cbind(mtcars[1:5,], mtcars[1:5,])knitr::kable(df)```

Image may be NSFW.
Clik here to view.