Load Packages

haven

# Check if haven is already installed and if it is, load it.
if (!require(haven)){
  # If it's not intalled, then tell R to install it.
  install.packages("haven", dependencies = TRUE)
  # Once it's installed, tell R to load it.
  library(haven)
}

tidyverse

if (!require()){
  install.packages("", dependencies = TRUE)
  library()
}

openxlsx

Import data

Excel

dataset.xls <- read.xlsx("Harry Potter Data.xlsx", 
                         sheet = 1,
                         colNames = FALSE,
                         rowNames = FALSE,
                         detectDates = TRUE)

CSV

dataset.csv <- read_csv("Harry Potter Data.csv")
Parsed with column specification:
cols(
  .default = col_character()
)
See spec(...) for full column specifications.

SPSS

dataset.spss <- read_sav("Harry Potter Data.sav")

SPSS from the web

dataset.spss.web <- read_sav("https://osf.io/kd4ej/download")

Bonus Points

CSV from the web

Excel from the web

LS0tCnRpdGxlOiAiTGVhcm4gUiAtIEltcG9ydCBEYXRhIgpvdXRwdXQ6IAogIGh0bWxfbm90ZWJvb2s6CiAgICB0aGVtZTogcGFwZXIKICAgIHRvYzogdHJ1ZQotLS0KCiMjIExvYWQgUGFja2FnZXMgey50YWJzZXR9CgojIyMgaGF2ZW4KCmBgYHtyfQojIENoZWNrIGlmIGhhdmVuIGlzIGFscmVhZHkgaW5zdGFsbGVkIGFuZCBpZiBpdCBpcywgbG9hZCBpdC4KaWYgKCFyZXF1aXJlKGhhdmVuKSl7CiAgIyBJZiBpdCdzIG5vdCBpbnRhbGxlZCwgdGhlbiB0ZWxsIFIgdG8gaW5zdGFsbCBpdC4KICBpbnN0YWxsLnBhY2thZ2VzKCJoYXZlbiIsIGRlcGVuZGVuY2llcyA9IFRSVUUpCiAgIyBPbmNlIGl0J3MgaW5zdGFsbGVkLCB0ZWxsIFIgdG8gbG9hZCBpdC4KICBsaWJyYXJ5KGhhdmVuKQp9CmBgYAoKIyMjIHRpZHl2ZXJzZQoKYGBge3J9CmlmICghcmVxdWlyZSgpKXsKICBpbnN0YWxsLnBhY2thZ2VzKCIiLCBkZXBlbmRlbmNpZXMgPSBUUlVFKQogIGxpYnJhcnkoKQp9CmBgYAoKIyMjIG9wZW54bHN4CgpgYGB7cn0KCmBgYAoKCiMjIEltcG9ydCBkYXRhIHsudGFic2V0fQoKIyMjIEV4Y2VsCmBgYHtyfQpkYXRhc2V0LnhscyA8LSByZWFkLnhsc3goIkhhcnJ5IFBvdHRlciBEYXRhLnhsc3giLCAKICAgICAgICAgICAgICAgICAgICAgICAgIHNoZWV0ID0gMSwKICAgICAgICAgICAgICAgICAgICAgICAgIGNvbE5hbWVzID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgICAgICAgICByb3dOYW1lcyA9IEZBTFNFLAogICAgICAgICAgICAgICAgICAgICAgICAgZGV0ZWN0RGF0ZXMgPSBUUlVFKQpgYGAKCiMjIyBDU1YKYGBge3J9CmRhdGFzZXQuY3N2IDwtIHJlYWRfY3N2KCJIYXJyeSBQb3R0ZXIgRGF0YS5jc3YiKQpQYXJzZWQgd2l0aCBjb2x1bW4gc3BlY2lmaWNhdGlvbjoKY29scygKICAuZGVmYXVsdCA9IGNvbF9jaGFyYWN0ZXIoKQopClNlZSBzcGVjKC4uLikgZm9yIGZ1bGwgY29sdW1uIHNwZWNpZmljYXRpb25zLgpgYGAKCiMjIyBTUFNTCmBgYHtyfQpkYXRhc2V0LnNwc3MgPC0gcmVhZF9zYXYoIkhhcnJ5IFBvdHRlciBEYXRhLnNhdiIpCmBgYAoKIyMjIFNQU1MgZnJvbSB0aGUgd2ViCmBgYHtyfQpkYXRhc2V0LnNwc3Mud2ViIDwtIHJlYWRfc2F2KCJodHRwczovL29zZi5pby9rZDRlai9kb3dubG9hZCIpCmBgYAoKIyMgQm9udXMgUG9pbnRzCgojIyMgQ1NWIGZyb20gdGhlIHdlYgoKIyMjIEV4Y2VsIGZyb20gdGhlIHdlYg==