if (!requireNamespace("mlr3proba")) remotes::install_github("mlr-org/mlr3proba")
#> Loading required namespace: mlr3proba
xdf = mlr3proba::grace
xdf[, c("id")] = NULL
colnames(xdf)[1:2] = c("time", "status")
rows = c(1L, 4L, 6L, 9L, 10L, 12L, 16L, 17L, 18L, 19L, 20L, 22L, 25L,
26L, 27L, 28L, 30L, 33L, 36L, 37L, 38L, 39L, 40L, 43L, 45L, 49L,
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
git-timetravel () { | |
# If first argument is empty you dun goof'd | |
if [ -z "${1}" ] | |
then | |
echo "Must provide a valid timestamp in roughly ISO 8601" | |
echo "Example: git-timetravel "2022-10-01 12:00" main | |
exit 1 | |
fi |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(rvest) | |
library(dplyr) | |
library(stringr) | |
# Game of Thrones ---- | |
got_wiki <- read_html("https://en.wikipedia.org/wiki/List_of_Game_of_Thrones_episodes") %>% | |
html_table(fill = TRUE) %>% | |
magrittr::extract(c(2:9)) %>% | |
bind_rows() %>% | |
setNames(c( |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(tRakt) # remotes::install_github("jemus42/tRakt") | |
library(dplyr) | |
library(ggplot2) | |
library(firasans) # remotes::install_github("hrbrmstr/firasans") | |
#' @param show_id The show's id on trakt.tv, can also be the show's slug. | |
#' @param asp_rect Wther to add ggplot2::coord_equal() | |
#' @examples | |
#' episode_heatmap("the-simpsons") | |
episode_heatmap <- function(show_id, asp_rect = TRUE) { |
I hereby claim:
- I am jemus42 on github.
- I am jemus42 (https://keybase.io/jemus42) on keybase.
- I have a public key ASDkQyr4_SzMv6V-ZqaqI5vVzpGlXqMU0KcrHnvnspJ_1wo
To claim this, I am signing this object:
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?xml version="1.0" encoding="utf-8"?> | |
<Client name="Chromecast"> | |
<!-- Author: Plex Inc. --> | |
<TranscodeTargets> | |
<VideoProfile protocol="http" container="mkv" codec="h264" audioCodec="aac,mp3" context="streaming" /> | |
<MusicProfile container="mkv" codec="opus" /> | |
<PhotoProfile container="jpeg" /> | |
<SubtitleProfile container="ass" codec="ass" /> | |
</TranscodeTargets> | |
<CodecProfiles> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(rvest) # Parse HTML | |
library(httr) # Send POST request, I think rvest depends on that anyway | |
url <- "https://www.amazon.de/dp/B01M0LHEZI" | |
slack_url <- "somewebhookurlimtoolazytoget" | |
avail <- read_html(url) %>% | |
html_node("#availability :first-child") %>% | |
html_text(trim = T) |