# Using example data from github which requires internet
if (curl::has_internet()) {
url <- paste0("https://raw.githubusercontent.com/RaphaelHartmann/forceplate/",
"main/data/subj13_exp_data.csv")
# Safe download, handling potential errors
tryCatch({
filenames <- tempfile(pattern = c("subj13_exp_data"), tmpdir = tempdir(), fileext = ".csv")
download.file(url, filenames)
# prepare experimental data
exp.dt <- prep_exp_data(filenames = filenames, excl.vars = 2:5)
# Clean up
unlink(filenames)
}, error = function(e) {
message("Failed to download data: ", e$message)
})
}
Run the code above in your browser using DataLab