………………. —-

1.0 Load Libraries

# Work horse packages
library(tidyverse)
library(lubridate)

# theme_tq()
library(tidyquant)

# Excel Files
library(readxl)
library(writexl)
library(scales)
# Replace these paths with your actual file locations
bike_tbl      <- read_excel(path = "./00_support/data/bike_sales/data_raw/bikes.xlsx")
bikeshops_tbl <- read_excel(path = "./00_support/data/bike_sales/data_raw/bikeshops.xlsx")
orderlines_tbl<- read_excel(path = "./00_support/data/bike_sales/data_raw/orderlines.xlsx")

Method 1: Element —-

# Replace these paths with your actual file locations
bike_tbl
bikeshops_tbl
orderlines_tbl

Method 2: Panel —-

In the Environment panel of RStudio, expand each data frame to inspect.

Method 3: glimpse() —-

bike_tbl %>% glimpse()

Method 4: View() —-

# Opens a spreadsheet-style viewer (only in RStudio)
if (interactive()) View(bike_tbl) else head(bike_tbl)

This behaves like Jupyter: - Each gray chunk is a cell you can run independently.
- Results appear directly under the code.
- When you save, RStudio produces an .nb.html file containing both code and output.

LS0tCnRpdGxlOiAiQmlrZSBTYWxlcyBEZW1vIChSIE5vdGVib29rKSIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKIyAuLi4uLi4uLi4uLi4uLi4uLi4uIC0tLS0KIyMgMS4wIExvYWQgTGlicmFyaWVzCgpgYGB7cn0KIyBXb3JrIGhvcnNlIHBhY2thZ2VzCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGx1YnJpZGF0ZSkKCiMgdGhlbWVfdHEoKQpsaWJyYXJ5KHRpZHlxdWFudCkKCiMgRXhjZWwgRmlsZXMKbGlicmFyeShyZWFkeGwpCmxpYnJhcnkod3JpdGV4bCkKbGlicmFyeShzY2FsZXMpCmBgYAoKYGBge3J9CiMgUmVwbGFjZSB0aGVzZSBwYXRocyB3aXRoIHlvdXIgYWN0dWFsIGZpbGUgbG9jYXRpb25zCmJpa2VfdGJsICAgICAgPC0gcmVhZF9leGNlbChwYXRoID0gIi4vMDBfc3VwcG9ydC9kYXRhL2Jpa2Vfc2FsZXMvZGF0YV9yYXcvYmlrZXMueGxzeCIpCmJpa2VzaG9wc190YmwgPC0gcmVhZF9leGNlbChwYXRoID0gIi4vMDBfc3VwcG9ydC9kYXRhL2Jpa2Vfc2FsZXMvZGF0YV9yYXcvYmlrZXNob3BzLnhsc3giKQpvcmRlcmxpbmVzX3RibDwtIHJlYWRfZXhjZWwocGF0aCA9ICIuLzAwX3N1cHBvcnQvZGF0YS9iaWtlX3NhbGVzL2RhdGFfcmF3L29yZGVybGluZXMueGxzeCIpCmBgYAoKCiMjIyBNZXRob2QgMTogRWxlbWVudCAtLS0tCmBgYHtyfQojIFJlcGxhY2UgdGhlc2UgcGF0aHMgd2l0aCB5b3VyIGFjdHVhbCBmaWxlIGxvY2F0aW9ucwpiaWtlX3RibApiaWtlc2hvcHNfdGJsCm9yZGVybGluZXNfdGJsCmBgYAoKIyMjIE1ldGhvZCAyOiBQYW5lbCAtLS0tCiMgSW4gdGhlIEVudmlyb25tZW50IHBhbmVsIG9mIFJTdHVkaW8sIGV4cGFuZCBlYWNoIGRhdGEgZnJhbWUgdG8gaW5zcGVjdC4KCiMjIyBNZXRob2QgMzogZ2xpbXBzZSgpIC0tLS0KYGBge3J9CmJpa2VfdGJsICU+JSBnbGltcHNlKCkKYGBgCgojIyMgTWV0aG9kIDQ6IFZpZXcoKSAtLS0tCmBgYHtyfQojIE9wZW5zIGEgc3ByZWFkc2hlZXQtc3R5bGUgdmlld2VyIChvbmx5IGluIFJTdHVkaW8pCmlmIChpbnRlcmFjdGl2ZSgpKSBWaWV3KGJpa2VfdGJsKSBlbHNlIGhlYWQoYmlrZV90YmwpCmBgYAoKVGhpcyBiZWhhdmVzIGxpa2UgSnVweXRlcjoKLSBFYWNoIGdyYXkgY2h1bmsgaXMgYSAqKmNlbGwqKiB5b3UgY2FuIHJ1biBpbmRlcGVuZGVudGx5LiAgCi0gUmVzdWx0cyBhcHBlYXIgZGlyZWN0bHkgdW5kZXIgdGhlIGNvZGUuICAKLSBXaGVuIHlvdSBzYXZlLCBSU3R1ZGlvIHByb2R1Y2VzIGFuIGAubmIuaHRtbGAgZmlsZSBjb250YWluaW5nIGJvdGggY29kZSBhbmQgb3V0cHV0LgoK