R is for
Authoring!!

OOH Session #117…
watermarks

Open Office Hours
(February 17, 2026)

  • Recap session #116
  • Today’s topic(s):
  • Shared problem-solving







Reminder – check it out!!

Fantastic resource!!

Recap of Session
#116:

Valentines

dat<- data.frame(t=seq(0, 2*pi, by=0.1) )
 xhrt <- function(t) 16*sin(t)^3
 yhrt <- function(t) 13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)
 dat$y=yhrt(dat$t)
 dat$x=xhrt(dat$t)
 with(dat, plot(x,y, type="l"))
 
with(dat, polygon(x,y, col="hotpink")) 
points(c(10,-10, -15, 15), c(-10, -10, 10, 10), pch=169, font=5)

library(ggplot2)

dat <- data.frame(t = seq(0, 2*pi, by = 0.01))
x <-  function(t) 16 * sin(t)^3
y <- function(t) 13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t)

dat$y <- y(dat$t)
dat$x <- x(dat$t)

heart <- ggplot(dat, aes(x,y)) +
  geom_polygon(fill = "red", col = "firebrick", alpha = 0.8) +
  geom_text(aes(x = 0, y = 0, label = "\u2661\u2764\u2665 Va va voom!!! \u2665\u2764\u2661"), size = 12, colour = "white") +
  theme_classic()

heart

---
format: 
  revealjs:
    mainfont: "Dancing Script"
    mouse-wheel: true
execute: 
  echo: false
  warning: false
  error: false
filters:
  - snow
---
# {background-image="https://starbaseatlanta.com/wp-content/uploads/sihpt4674.jpg"}

```{css}

@import url('https://fonts.googleapis.com/css?family=Dancing Script');

.snowflake__inner_type_0:before {
    background-image: url('https://cdn-icons-png.flaticon.com/512/1077/1077035.png') !important;
}

.snowflake__inner_type_1:before {
    background-image: url('https://static.vecteezy.com/system/resources/thumbnails/018/795/980/small/neon-glowing-shape-free-png.png') !important;
}

.snowflake__inner_type_2:before {
    background-image: url('https://gallery.yopriceville.com/downloadfullsize/send/30848') !important;
}

.snowflake__inner_type_3:before {
    background-image: url('https://static.vecteezy.com/system/resources/thumbnails/010/977/961/small/red-paper-cut-heart-style-png.png') !important;
}

.snowflake__inner_type_4:before {
    background-image: url('https://static.vecteezy.com/system/resources/thumbnails/010/977/961/small/red-paper-cut-heart-style-png.png') !important;
}

.snowflake__inner_type_5:before {
    background-image: url('https://images.vexels.com/media/users/3/136172/isolated/preview/148ec098a4529de7141003a8ec519d39-heart-like-icon.png') !important;
}

```

## Sappy sentiment goes here... {background-color="#ffe2f6"}

```{r heart-animation}
library(ggplot2)
library(dplyr)
library(gganimate)

heartdf = tibble(
    t = seq(0, 2*pi, pi/60),
    x = 16*sin(t)^3,
    y = 13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t)
)

textdf = tibble(t = max(heartdf$t) + 1:15)

ggplot(data = heartdf, aes(x, y)) + 
    geom_polygon(aes(group = 1), fill = "red") +
    geom_text(aes(x = 0, y = 0, label = "\u2661\u2764\u2665 Va va voom!!! \u2665\u2764\u2661", parse=TRUE), 
              data = textdf, size = 12, colour = "white") +
  xlab("\u2665 XxXxXxX \u2665") +
  ylab("\u2665 OoOoOoO \u2665") +
    transition_reveal(t)
```
1
if you’d like to alter the script appearance, also change the font specification on line #17 (below, within the css chunk)
2
add/alter falling hearts by changing the url’s on line #’s 20, 24, 28, etc – there are 6 total images specified

Today…

watermarks

Session Info (February 17, 2026) Rendering:

sessionInfo()
R version 4.5.0 (2025-04-11 ucrt)
Platform: x86_64-w64-mingw32/x64
Running under: Windows 10 x64 (build 19045)

Matrix products: default
  LAPACK version 3.12.1

locale:
[1] LC_COLLATE=English_United States.utf8 
[2] LC_CTYPE=English_United States.utf8   
[3] LC_MONETARY=English_United States.utf8
[4] LC_NUMERIC=C                          
[5] LC_TIME=English_United States.utf8    

time zone: America/Chicago
tzcode source: internal

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] ggplot2_3.5.2

loaded via a namespace (and not attached):
 [1] vctrs_0.6.5        cli_3.6.5          knitr_1.51         rlang_1.1.6       
 [5] xfun_0.52          otel_0.2.0         generics_0.1.4     jsonlite_2.0.0    
 [9] labeling_0.4.3     glue_1.8.0         htmltools_0.5.8.1  scales_1.4.0      
[13] rmarkdown_2.30     grid_4.5.0         evaluate_1.0.5     tibble_3.3.0      
[17] fastmap_1.2.0      yaml_2.3.10        lifecycle_1.0.5    compiler_4.5.0    
[21] dplyr_1.1.4        RColorBrewer_1.1-3 pkgconfig_2.0.3    rstudioapi_0.17.1 
[25] farver_2.1.2       digest_0.6.37      R6_2.6.1           tidyselect_1.2.1  
[29] pillar_1.11.0      magrittr_2.0.3     withr_3.0.2        tools_4.5.0       
[33] gtable_0.3.6