📼 share again for xaringan

class: center, middle, inverse, title-slide

.title[
# share again<br>.gray[for xaringan]
]
.subtitle[
## 📼
]
.author[
### <a href='https://pkg.garrickadenbuie.com/xaringanExtra'>xaringanExtra<a>
]
.date[
### Embeded xaringan slides with a .purple[share bar]
]

---

class: center

## Meet .green[share again]

<div class="shareagain" style="min-width:300px;margin:1em auto;max-width:66%;" data-exeternal="1">
<iframe src="share-again.html" width="400" height="300" style="border:2px solid currentColor;" loading="lazy" allowfullscreen></iframe>
<script>fitvids('.shareagain', {players: 'iframe'});</script>
</div>

---
class: center
background-image: url('img/meet-share-again-2.jpg')
background-size: cover

## .green[Navigate] through the slides

---
class: center
background-image: url('img/meet-share-again-3.jpg')
background-size: cover

## Slide .green[title] filled automatically

---
class: center
background-image: url('img/meet-share-again-4.jpg')
background-size: cover

## Go .green[fullscreen]

---
class: center
background-image: url('img/meet-share-again-5.jpg')
background-size: cover

## .green[Share] your slides .green[again]

---

## Share your slides in 3 easy steps

1. Add `use_share_again()` to your slides
    
    `````markdown
    ```{r share-again, echo=FALSE}
    xaringanExtra::use_share_again()
    ```
    ````
--

1. Style your share bar and choose social media sites

````markdown
    ```{r style-share-again, echo=FALSE}
    xaringanExtra::style_share_again(
      share_buttons = c("twitter", "linkedin", "pocket")
    )
    ```
    ````
--

1. Embed your slides in [blogdown](https://bookdown.org/yihui/blogdown/) or R Markdown websites

````markdown
    ```{r embed-xaringan, echo=FALSE}
    xaringanExtra::embed_xaringan(url = "share-again.html", ratio = "4:3")
    ```
    ````
    
    <span class="gray">*Works with <span style="text-decoration: underline">any</span> xaringan presentation, _share again_ not required</span>

---

## You might also like .purple[metathis]

For great looking share cards on social media, too,
combine with [metathis](https://pkg.garrickadenbuie.com/metathis).

``` r
library(metathis)

meta() %>%
  meta_general(
    description = "Embed xaringan slides in R Markdown websites with style",
  ) %>% 
  meta_name("github-repo" = "gadenbuie/xaringanExtra") %>% 
  meta_social(
    title = "Share Again for xaringan",
    url = "https://pkg.garrickadenbuie.com/xaringanExtra",
    image = paste0(
      "https://pkg.garrickadenbuie.com/xaringanExtra/",
      "share-again/social-card.png"
    ),
    og_type = "website",
    og_author = "Garrick Aden-Buie",
    twitter_card_type = "summary_large_image",
    twitter_creator = "@grrrck"
  )
```

---
class: center middle

### [gadenbuie/xaringanExtra](https://github.com/gadenbuie/xaringanExtra)