FIx advanced-shiny Rproj file paths

gistfile1.txt

for (i in 1:5) {
  chapter <- paste0("chapter-", i)
  path <- file.path("~", "advanced-concepts-in-shiny", "exercises", chapter, "question")
  usethis::create_project(path = path, rstudio = TRUE, open = FALSE)
  file.rename(
    from = file.path(path, "question.Rproj"),
    to = file.path(path, paste0("ch", i, "-question.Rproj"))
  )
}