library(tidyverse) library(lubridate ) print("Hello") setwd("~/code/2024-dash_v1/data") data <- read.csv("transactions.csv.gz") print(data) print("Goodbye")