path <- "/Users/Jay/Desktop/R Ship Offsets/plotOffsets.R"
print(path)

conn <- file(path,open="r")
lines <- readLines(conn)
# for (i in 1:length(lines)){
#   print(lines[i])
# }
close(conn)