This file contains hidden or 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
| # libs -------- | |
| library(jsonlite) | |
| library(tidyverse) | |
| # urls -------- | |
| base_url <- "https://providers.anthem.com" | |
| json_url <- "https://providers.anthem.com/sites/Satellite?d=Universal&pagename=getdocuments&brand=BCCNYE&state=&formslibrary=gpp_formslib" | |
| # headers ----- | |
| # A session ID is required to successfully send http GET requests to the server. You can copy a session ID from your browser's inspector network tab. The session ID below might be expired at this point. |
This file contains hidden or 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
| --- | |
| title: "Filter alter-alter ties" | |
| format: html | |
| --- | |
| Create a minimal `egor` object as an example. | |
| ```{r} | |
| library(egor) |
This file contains hidden or 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
| alias frp="find ~/Dropbox/ ~/ -type f -path '*/.*' -prune -o -not -name '.*' -type f -iname '*\.rproj' -print | sed -e 's/^/file:\/\//' | sed -e 's/ /%20/g'" |
This file contains hidden or 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
| find_possible_paths <- function(g, k = NULL, ksp = c("baerde", "yenpathy")) { | |
| undirected <- FALSE | |
| if (!igraph::is.directed(g)) { | |
| undirected <- TRUE | |
| weight <- igraph::E(g)$weight | |
| e_l <- as.data.frame(igraph::as_edgelist(g)) | |
| l_e <- as.data.frame(cbind(e_l[, 2], e_l[, 1])) | |
| e_l_l_e <- rbind(e_l, l_e) |
This file contains hidden or 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
| # This script uses lswin.py from sjitech/mac_list_windows_pids to get | |
| # a list of all running RStudio Sessions and their titles. | |
| # https://github.com/sjitech/mac_list_windows_pids | |
| # This script assumes that lswin.py is in your home folder. | |
| # For convenience you should add an alias to your .bshrc or .zshrc file. | |
| # Example alias: alias rkill="RScript ~/kill_rstudio_rsessions.R" | |
| suppressMessages({ | |
| library(dplyr, quietly = TRUE) |