Scripts containing the code developed during the 7th lecture on project management and data import, as well as solutions to the exercises

#S7 - Lecture notes (SpSe 2023)

Scripts containing the code developed during the 7th lecture on project management and data import, as well as solutions to the exercises.

The code assumes that you created a folder structure as discussed during the lecture:

YourProject/
|─ YourProject.Rproj
├─ data/
│  ├─ raw/
|        |─fread_expls-1.csv
|        |─fread_expls-2.csv
|        |─fread_expls-3.csv
|   ├─ tidy/      
├─ R/
│  ├─ exercise_1.R
│  ├─ exercise_2.R
│  ├─ exercise_3.R

exercise_1.R

here::i_am("R/exercise_1.R")
library(here)
library(data.table)

data_path <- here::here("data/raw/fread_expls-1.csv")
ex_1_data <- data.table::fread(
  file = data_path)

ex_1_data

exercise_2.R

here::i_am("R/exercise_2.R")
library(here)
library(data.table)

data_path <- here::here("data/raw/fread_expls-2.csv")
ex_2_data <- data.table::fread(
  file = data_path, 
  sep = "'", 
  dec = ":")

ex_2_data

exercise_3.R

here::i_am("R/exercise_3.R")
library(here)
library(data.table)

data_path <- here::here("data/raw/fread_expls-3.csv")
ex_3_data <- data.table::fread(
  file = data_path, 
  colClasses = c(
    "commoditycode"="character",
    "cgroup"="factor")
  )

str(ex_3_data)