if (FALSE) {
# Read single raw data file from OpenSesame
raw_data <- utils::read.csv("raw_data/subject-1.csv",encoding = "UTF-8")
# Merge all files in the main folder "raw_data"
# (which is in the current working directory)
raw_data <- read_opensesame(directory = "raw_data")
# Merge files with file extension ".csv"
raw_data <- read_opensesame(directory = "raw_data",
extension = ".csv")
# Merge all files stored in separate folders
# within the folder "raw_data"
raw_data <- read_opensesame(directory = "raw_data",
subdirectories = TRUE)
# Merge all raw data stored in the folders "Session1"
# and "Session2" within the folder "raw_data"
raw_data <- read_opensesame(directory = "raw_data",
subdirectories = c("Session1","Session2"))
# Export merged data to a file using write.table
write.table(raw_data, file = "raw_data.csv",
sep=",", row.names = FALSE)
}
Run the code above in your browser using DataLab