# NOT RUN {
# create a testfile
links <- tempfile("mixed_links", fileext = ".rmd")
file.create(links)
writeLines("[a good link](https://datasciencecampus.ons.gov.uk/)
[a bad link](https://datasciencecampus.ons.gov.uk/broken)",
con = links
)
# Test the file
check_urls(links)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab