data-raw/ExerciseDatabase.R

In MarijnJABoer/HeavySetR: A Heavyset Workout analysis package for R

if ( # Check if the path is allowed for scraping (TRUE)
  robotstxt::paths_allowed(
    paths = c("/exercises/"),
    domain = "bodybuilding.com",
    bot = "*"
  )) {
  ExerciseDB <- scrapeExercises(pages = 73)
  usethis::use_data(ExerciseDB, overwrite = TRUE)
}