Missing equivalent transformation in base R example README.md

[jonathonmellor]

The dataset is loan data available in the openintro package. Here is the Tidy code to preprocess the data:

loans <- openintro::loans_full_schema %>%
   mutate(
         homeownership = str_to_title(homeownership),
         bankruptcy = if_else(public_record_bankrupt >= 1, "Yes", "No")
         ) %>%
   filter(annual_income >= 10)

In base-R:

loans <- openintro::loans_full_schema
loans$bankruptcy <- ifelse(loans$public_record_bankrupt >= 1, "Yes", "No")
subset(loans,annual_income >= 10)

The tidyverse example contains a mutate on homeownership which needs a base-R equivalent have (I've used stringr here as in the piece it states stringr is not tidyverse).

loans$homeownership <- str_to_title(homeownership)

[matloff]

Again, the Tidy code is from the article written by prominent Tidy advocates.