Skip to content

Instantly share code, notes, and snippets.

@averissimo
averissimo / check_default.R
Last active June 12, 2024 14:34
Sanity check on join keys
library(teal.data)
join_keys <- join_keys() # add custom here
# Sanity check on join_keys vs. teal.data::default_cdisc_join_keys -------------
jk2 <- default_cdisc_join_keys[names(join_keys)]
issues_in_join_keys <- unlist(
lapply(
setdiff(names(join_keys), "ADSL"),
@averissimo
averissimo / electricity_generation_plot.R
Last active February 23, 2024 14:26
Electricity plot
#' @examples
#' renv::install("isocountry")
#' renv::install("readr")
#' renv::install("dplyr")
#' renv::install("forcats")
#' renv::install("rlang")
#' renv::install("glue")
#' renv::install("readr")
#' renv::install("clauswilke/ggtextures")
---
title: "Untitled"
output:
BiocStyle::html_document:
dev: "svg"
---
## Failing plots
```{r}
@averissimo
averissimo / stringdb_combined_score.R
Last active July 18, 2018 17:25
File to use in support ticket
library(tidyverse)
library(STRINGdb)
STRINGdb::get_STRING_species(version = version, species_name=NULL) %>%
dplyr::arrange(official_name) %>%
dplyr::filter(official_name == 'homo_sapiens')
# downloading Homo sapiens
string_db <- STRINGdb::STRINGdb$new(version = version,
species = 9606,
{
"__MyLocaleLanguage__": "Polski",
"__maintaner__": "http://github.com/yakyak",
"title": "YakYak - Komunikator dla Hangouts",
"description": "Komunikator dla Google Hangouts",
"settings": "Preferencje",
"recent": "Ostatnie",
"details": "Szczegóły",
@averissimo
averissimo / my_ffcast
Last active November 29, 2016 16:54
Creating GIFs easily with ffcast
#!/bin/bash
#
# my_ffcast takes the same options as ffcast
# -s: part of screen
# -w: window
# ...
if [ -z $1 ]
then
option=-s
else