tinyreviewer

This is a Quarto website.

To learn more about Quarto websites visit https://quarto.org/docs/websites.

library(gt)

start_date <- "2010-06-07"
end_date <- "2010-06-14"

sp500 %>% 
  dplyr::filter(date >= start_date & date <= end_date) %>% 
  dplyr::select(-adj_close) %>% 
  gt() %>% 
  tab_header(
    title = "S&P 500",
    subtitle = glue::glue("{start_date} to {end_date}")
  ) %>% 
  fmt_currency() %>% 
  fmt_date(columns = date, date_style = "wd_m_day_year") %>% 
  fmt_number(columns = volume, suffixing = TRUE)

S&P 500
2010-06-07 to 2010-06-14
date	open	high	low	close	volume
Mon, Jun 14, 2010	$1,095.00	$1,105.91	$1,089.03	$1,089.63	4.43B
Fri, Jun 11, 2010	$1,082.65	$1,092.25	$1,077.12	$1,091.60	4.06B
Thu, Jun 10, 2010	$1,058.77	$1,087.85	$1,058.77	$1,086.84	5.14B
Wed, Jun 9, 2010	$1,062.75	$1,077.74	$1,052.25	$1,055.69	5.98B
Tue, Jun 8, 2010	$1,050.81	$1,063.15	$1,042.17	$1,062.00	6.19B
Mon, Jun 7, 2010	$1,065.84	$1,071.36	$1,049.86	$1,050.47	5.47B