Untitled

# Replace with the URL of the repository you want to download
repo_url <- "https://github.com/tidyverse/tidyverse/archive/refs/heads/master.zip"

# Define the local file names for the downloaded zip and extracted folder
zip_file <- "tidyverse-master.zip"
folder_name <- "tidyverse-master"

# Download the repository as a zip file
download.file(repo_url, zip_file)

# Unzip the repository
unzip(zip_file)

# Remove the downloaded zip file if you don't need it anymore
file.remove(zip_file)