https://github.com/lazappi/lazappi
My GitHub profile README
https://github.com/lazappi/lazappi
github profile readme
Last synced: 11 months ago
JSON representation
My GitHub profile README
- Host: GitHub
- URL: https://github.com/lazappi/lazappi
- Owner: lazappi
- Created: 2020-08-06T13:36:16.000Z (almost 6 years ago)
- Default Branch: main
- Last Pushed: 2025-07-26T09:23:00.000Z (11 months ago)
- Last Synced: 2025-07-26T09:53:44.434Z (11 months ago)
- Topics: github, profile, readme
- Language: R
- Homepage: https://github.com/lazappi
- Size: 566 MB
- Stars: 2
- Watchers: 2
- 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(dplyr)
library(glue)
library(purrr)
library(tidyRSS)
library(stringr)
```
### Hi, I'm Luke 
[](https://git.io/typing-svg)
### 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*
### Now playing on Spotify
