I hereby claim:
- I am noamross on github.
- I am noamross (https://keybase.io/noamross) on keybase.
- I have a public key ASB-BxfY2ry-bqcNtfdHGtsrS2Xwb0kBX2i_fgE1znBsSQo
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
--- | |
title: "test" | |
output: | |
flexdashboard::flex_dashboard: | |
orientation: rows | |
runtime: shiny | |
--- | |
```{r setup, include = FALSE} | |
library(shiny) |
-- a lua filter for panodoc | |
-- run pandoc your_word_doc.docx --track-change=all -t markdown --lua-filter=criticmarkup.lua | |
-- TODO: Detect substitutions in adjacent insertion/deletions | |
-- TODO: capture whole comment hightlight rather than just start point of comment | |
function Span(elem) | |
if elem.classes[1] and elem.classes[1] == "insertion" then | |
local opener = { pandoc.RawInline(FORMAT, "{++ ") } | |
local closer = { pandoc.RawInline(FORMAT, " ++}") } | |
return opener .. elem.content .. closer | |
elseif |
--- | |
title: "Test RVG pptx" | |
output: | |
powerpoint_presentation: | |
keep_md: TRUE | |
--- | |
```{r setup, include=FALSE} | |
knitr::opts_chunk$set(echo = FALSE) | |
library(ggplot2) |
library(tidyverse) | |
library(gganimate) | |
library(mgcv) | |
library(mvtnorm) | |
# Fit a GAM to the data | |
mod <- gam(hp ~ s(mpg), data=mtcars, method="REML") | |
# Get the linear prediction matrix | |
newdat = data.frame( |
#!/bin/bash | |
# Put this file somewhere and run | |
# export EDITOR=/path/to/rs_term_editor.sh | |
# export GIT_EDITOR=/path/to/rs_term_editor.sh | |
# There's probably some way to set thes e in my profile to only run | |
# when RSTUDIO=1 | |
### Set initial time of file | |
LTIME=`stat -f "%m" $1` |
# Copyright 2018 Noam Ross | |
# | |
# Permission is hereby granted, free of charge, to any person obtaining a copy | |
# of this software and associated documentation files (the "Software"), to deal | |
# in the Software without restriction, including without limitation the rights | |
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
# copies of the Software, and to permit persons to whom the Software is | |
# furnished to do so, subject to the following conditions: | |
# | |
# The above copyright notice and this permission notice shall be included in all |
library(rtweet) #rtweet API creds should already be set up | |
library(dplyr) | |
library(ggplot2) | |
library(hrbrthemes) | |
library(tidytext) | |
library(lubridate) | |
hbt <- get_timeline("hrbrmstr", n=3200) | |
hbt2 <- hbt %>% |
library(httr) | |
library(rvest) | |
library(xml2) | |
library(tidyverse) | |
# Pretend we are a browser | |
my_headers = c(Origin="http://www.oie.int", | |
`Upgrade-Insecure-Requests`="1", | |
`Content-Type`="application/x-www-form-urlencoded", | |
`User-Agent`="Mozilla/5.0 (Macintosh; Intel Mac OS X 10_13_3) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/65.0.3325.181 Safari/537.36", |
library(tidyverse) | |
library(xml2) | |
library(rvest) | |
library(WikipediR) | |
library(urltools) | |
# Get all speceies-level page titles from the Wikipedia list of bats | |
bat_titles <- read_html("https://en.wikipedia.org/wiki/List_of_bats") %>% | |
html_nodes(xpath="//ul/li[contains(., 'Genus')]/ul/li/a[starts-with(@href, '/wiki/')]") %>% | |
xml_attr("href") %>% |