https://github.com/evamaerey/featurette

https://github.com/evamaerey/featurette

Last synced: 11 days ago
JSON representation

• Host: GitHub
• URL: https://github.com/evamaerey/featurette
• Owner: EvaMaeRey
• Created: 2023-09-06T20:12:39.000Z (about 1 year ago)
• Default Branch: main
• Last Pushed: 2024-01-03T23:17:49.000Z (10 months ago)
• Last Synced: 2024-01-04T01:29:23.947Z (10 months ago)
• Language: CSS
• Homepage: https://evamaerey.github.io/featurette/
• Size: 35.2 MB
• Stars: 0
• Watchers: 1
• Forks: 0
• Open Issues: 0
• Metadata Files:
  • Readme: README.Rmd

Awesome Lists containing this project

README

        
---

output: github_document

---

   

 

    

```{r, include = FALSE}

knitr::opts_chunk$set(      

  collapse = TRUE,

  warning = FALSE,

  comment = "#>"          

)       

 

```

  

# featurette git repo 

 

  

  

The goal of featurette is to feature and test out projects and packages! 

Repo: https://github.com/EvaMaeRey/featurette

```{r, results='asis', echo = F}

library(magrittr)

  

webpages <- fs::dir_ls(type = "file", recurse = T, glob = "*.html|*.pdf") %>% rev()

file_name_wo_extension <- webpages %>% stringr::str_remove(".html|.pdf")

webpages %>%    

  paste0("0. [",

         . ,

         "]",

         "(https://evamaerey.github.io/featurette/", ., 

         ") **[source](https://github.com/evamaerey/featurette/blob/master/",

         file_name_wo_extension,".Rmd",

         ")**\n") %>% 

  cat()     

```

---

 

# code to write new featurette

```{r, eval=FALSE}

new_experiment <- function(name){

  

  dir <- paste0(Sys.Date(),"-", name)

  

  dir.create(dir)

  readLines("template.Rmd") |>

    writeLines(con = paste0(dir,"/", name, ".Rmd"))

  

}  

new_experiment(name = "bounding-box-question")

build_mp4 <- function(name){

  

  # create list of htmls

  webpages <- fs::dir_ls(type = "file", recurse = T, glob = "*.html") %>% rev()

  

  # grab target html

  target_html <- webpages[grep(name, webpages)][1]

  

  # build mp4

  xaringanBuilder::build_mp4(input = target_html, fps = 1.4)

  # xaringanBuilder::build_pdf(input = target_html)

} 

build_mp4("facet-ref-shadow")

```