# Set working directory first
setwd("C:/Users/timon/Resilience BV/4020 SCane ESA DEMO - Documenten/General/4020 SCDEMO Team/4020 TechnicalData/WP3/smartcane_v2/smartcane")

# Set project directory  
project_dir <- 'esa'

# Now call the function after it's defined
dirs <- setup_project_directories(project_dir)

# Check if paths are correct
dirs$data_dir