https://github.com/lazappi/lazappi

My GitHub profile README
https://github.com/lazappi/lazappi

github profile readme

Last synced: 22 days ago
JSON representation

My GitHub profile README

• Host: GitHub
• URL: https://github.com/lazappi/lazappi
• Owner: lazappi
• Created: 2020-08-06T13:36:16.000Z (over 4 years ago)
• Default Branch: main
• Last Pushed: 2024-04-13T23:15:06.000Z (7 months ago)
• Last Synced: 2024-04-14T00:27:42.855Z (7 months ago)
• Topics: github, profile, readme
• Language: R
• Homepage: https://github.com/lazappi
• Size: 546 MB
• Stars: 2
• Watchers: 3
• Forks: 1
• Open Issues: 0
• Metadata Files:
  • Readme: README.Rmd

Awesome Lists containing this project

README

        
---

output: github_document

always_allow_html: true

---

```{r setup, include = FALSE}

knitr::opts_chunk$set(

  collapse = TRUE,

  comment  = "#>",

  echo     = FALSE,

  message  = FALSE,

  warning  = FALSE

)

library(rtweet)

library(tweetrmd)

library(webshot2)

library(tidyRSS)

library(glue)

library(stringr)

library(dplyr)

library(purrr)

```

### Hi, I'm Luke 👋

### Here's some stats on my GitHub repos



    

    



*Courtesy of https://github.com/anuraghazra/github-readme-stats*



    



### My recent GitHub activity

```{r github, results = "asis"}

activity <- tidyfeed("https://github.com/lazappi.atom") %>%

    arrange(desc(entry_last_updated)) %>%

    slice_head(n = 10)

map_chr(activity$entry_title, function(.title) {

    title <- str_remove(.title, "^lazappi ")

    title_split <- str_split(str_to_sentence(title), " ", simplify = TRUE)

    repo <- title_split[length(title_split)]

    repo_link <- glue("[{repo}](https://github.com/{repo})")

    event_type <- title_split[1]

    event <- glue_collapse(title_split[-length(title_split)], sep = " ")

    emoji <- case_when(

        event_type == "Commented" ~ "🗣",

        event_type == "Closed"    ~ "🎊",

        event_type == "Merged"    ~ "🎉",

        event_type == "Opened"    ~ "🤔",

        event_type == "Pushed"    ~ "📨",

        event_type == "Starred"   ~ "⭐️",

        event_type == "Forked"    ~ "🍴",

        event_type == "Released"  ~ "📦",

        TRUE                      ~ "😺"

    )

    glue("* {emoji} {event} {repo_link}")

})  %>%

    paste(collapse = "\n") %>%

    cat()

```



    



### Some recent blog posts 📝

```{r blog, results = "asis"}

posts <- tidyfeed("https://lazappi.id.au/post/index.xml") %>%

    arrange(desc(item_pub_date)) %>%

    slice_head(n = 3)

map2_chr(posts$item_title, posts$item_link, function(.title, .link) {

    glue("* [{.title}]({.link})")

}) %>%

    paste(collapse = "\n") %>%

    cat()

```

*More at https://lazappi.id.au*

```{r tweets, results = "hide", out.width = 0, eval = FALSE}

token <- tryCatch({

    get_token()

}, error = function(e) {

    create_token(

        "github-readme-last-tweet",

        consumer_key    = Sys.getenv("CONSUMER_KEY"),

        consumer_secret = Sys.getenv("CONSUMER_SECRET"),

        access_token    = Sys.getenv("ACCESS_TOKEN"),

        access_secret   = Sys.getenv("ACCESS_SECRET"),

        set_renv        = FALSE

    )

})

tweets <- get_timeline("_lazappi_", n = 30, token = token)

original <- tweets %>%

    filter(

        !is_retweet,

        source != "IFTTT"

    ) %>%

    arrange(desc(created_at))

retweets <- tweets %>%

    filter(is_retweet) %>%

    arrange(desc(created_at))

tweet_screenshot(original$status_url[1], maxwidth = 400)

tweet_screenshot(retweets$status_url[1], maxwidth = 400)

```

```{r, eval = FALSE}



  

    

  

  

    

  



```


### Now playing on Spotify