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==