10_1_24.qmd

---
title: "R for <br>Authoring!!" 
author: "OOH Session #45...<br>[...parallax images]{.creepyBig}" 
title-slide-attributes: 
#  data-background-image:   https://13thdimension.com/wp-content/uploads/2022/02/Screen-Shot-2022-02-04-at-1.13.38-PM-copy.jpg
  data-background-opacity: ".4"
format:
  revealjs:
    parallax-background-image:   https://13thdimension.com/wp-content/uploads/2022/02/Screen-Shot-2022-02-04-at-1.13.38-PM-copy.jpg
    parallax-background-size: "2100px 900px"
    parallax-background-horizontal: 200
    parallax-background-vertical: 100
    mermaid:
      theme: forest
#    output-location: slide           ## column-fragment; inserts blank 2nd slide
    code-overflow: wrap              ## instead of horizontal scroll
    theme: [league, weekly.scss]       ## night & league
    logo: "erg2.png"
    footer-logo-link: "https://ergreports.com/"  ## https://github.com/shafayetShafee/reveal-header#readme
    transition: slide
    background-transition: fade
    mouse-wheel: true                ## yes enables mouse
    preview-links: false             ## true brings up iframe window instead of "site"
    code-annotations: hover 
    html-math-method: 
      method: mathjax        ## LaTeX in code annotations
      url: "https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.9/latest.js?config=TeX-MML-AM_CHTML"
engine: knitr                        ## not picking up inline codes
bibliography: temp.bib
#lightbox: true
filters: 
  - reveal-header          ## extension to add a hyperlink to slide logo
---

```{r, warning=FALSE, message=FALSE}
#devtools::install_github("hadley/emo")        ## if anyone else wants to render
library(fontawesome)
```

## Open Office Hours <br>(`r format(Sys.Date(),"%B %d, %Y")`)

::: {layout="[80,20]"}
::: first-column
-   Recap session #44&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;`r emo::ji("left_right_arrow")`
-   Focal issue(s):
    - [Parallax images]{.creepy}
-   Shared problem-solving
:::

::: second-column
:::

:::

![](img/title44.JPG){.absolute top="170" right="-120" width="600" height="325"}

# Recap of Session #44: 

## [[htmlwidgets (II)]{.widgets}](https://gallery.htmlwidgets.org/) 

:::: {.panel-tabset}

## `r emo::ji("face_with_raised_eyebrow")`Default`r emo::ji("face_with_rolling_eyes")`

```{r}
#| echo: true
#| output-location: column
#| classes: custom4060

library(plotly)

# custom grid style
axx <- list(
  gridcolor='rgb(255, 255, 255)',
  zerolinecolor='rgb(255, 255, 255)',
  showbackground=TRUE,
  backgroundcolor='rgb(230, 230,230)'
)

# individual plots
fig1 <- plot_ly(z = ~volcano, scene='scene1') 
fig1 <- fig1 %>% add_surface(showscale=FALSE)

fig2 <- plot_ly(z = ~volcano, scene='scene2') 
fig2 <- fig2 %>% add_surface(showscale=FALSE)

fig3 <- plot_ly(z = ~volcano, scene='scene3') 
fig3 <- fig3 %>% add_surface(showscale=FALSE)

fig4 <- plot_ly(z = ~volcano, scene='scene4') 
fig4 <- fig4 %>% add_surface(showscale=FALSE)

# subplot and define scene
fig <- subplot(fig1, fig2, fig3, fig4) 
fig <- fig %>% layout(title = "3D Subplots",
         scene = list(domain=list(x=c(0,0.5),y=c(0.5,1)),
                      xaxis=axx, yaxis=axx, zaxis=axx,
                      aspectmode='cube'),
         scene2 = list(domain=list(x=c(0.5,1),y=c(0.5,1)),
                       xaxis=axx, yaxis=axx, zaxis=axx,
                       aspectmode='cube'),
         scene3 = list(domain=list(x=c(0,0.5),y=c(0,0.5)),
                       xaxis=axx, yaxis=axx, zaxis=axx,
                       aspectmode='cube'),
         scene4 = list(domain=list(x=c(0.5,1),y=c(0,0.5)),
                       xaxis=axx, yaxis=axx, zaxis=axx,
                       aspectmode='cube'))

fig

```

## `r emo::ji("gear")`Widget-ized`r emo::ji("gear")`

```{r}
#| echo: true
#| output-location: column
#| classes: custom4060
#| 
library(widgetframe)

frameWidget(fig)   #<1>

```
1. Note the "scrollability" difference between default and widgit-ized.

::::

# Today: 

## [Parallax images]{.creepyBig}{.center background-image="https://13thdimension.com/wp-content/uploads/2022/02/Screen-Shot-2022-02-04-at-1.13.38-PM-copy.jpg"} 

## `r fontawesome::fa("r-project", fill="#4287f5")` Session Info (`r format(Sys.Date(),"%B %d, %Y")`) Rendering:

```{r}
sessionInfo()
```