Chapter 2 - Line 35 code does not work now

Line 35: df <- read.csv(text = getURL('https://data.consumerfinance.gov/api/views/x94z-ydhh/rows.csv?accessType=DOWNLOAD'))

The result is:
{
"code" : "not_found",
"error" : true,
"message" : "Cannot find view with id x94z-ydhh"
}

I find that I need to replace the link with below
https://data.consumerfinance.gov/views/s6ew-h6mp/rows.csv?accessType=DOWNLOAD