| # http://en.wikipedia.org/wiki/Extreme_points_of_the_United_States#Westernmost | |
| top = 49.3457868 # north lat | |
| left = -124.7844079 # west long | |
| right = -66.9513812 # east long | |
| bottom = 24.7433195 # south lat | |
| def cull(latlngs): | |
| """ Accepts a list of lat/lng tuples. | |
| returns the list of tuples that are within the bounding box for the US. | |
| NB. THESE ARE NOT NECESSARILY WITHIN THE US BORDERS! |
| library(shiny) | |
| library(datasets) | |
| Logged = FALSE; | |
| PASSWORD <- data.frame(Brukernavn = "withr", Passord = "25d55ad283aa400af464c76d713c07ad") | |
| # Define server logic required to summarize and view the selected dataset | |
| shinyServer(function(input, output) { | |
| source("www/Login.R", local = TRUE) | |
| observe({ | |
| if (USER$Logged == TRUE) { |
Some things takes much less time and stress once you know the right tool. Below, there is a community edited list of software for scientists.
in General purpose text/code editors. It may be better to have a good editor for everything, than different ones for different languages, scripts, notes.
| variables: | |
| CODECOV_TOKEN: "CODECOV_TOKEN_STRING" | |
| _R_CHECK_CRAN_INCOMING_: "false" | |
| _R_CHECK_FORCE_SUGGESTS_: "true" | |
| APT_PKGS: "libcurl4-openssl-dev libssh2-1-dev libssl-dev libxml2-dev zlib1g-dev git" | |
| before_script: | |
| - apt-get update | |
| - apt-get install -y --no-install-recommends ${APT_PKGS} | |
| - apt-get install -y --no-install-recommends qpdf pandoc pandoc-citeproc |
These instructions are based on this article: https://www.alexruf.net/2016/05/23/setup-gogs-git-service.html.
Setup Raspberry Pi with minimal Raspbian image. You need to connect to the HDMI port and set the following:
sudo raspi-configThere you need to enable the SSH server and you should change the hostname.
| library(tidyverse) | |
| s_parse <- safely(parse) # prevents parse() from borking on malformed R files | |
| list.files("~/projects", pattern=".*\\.[Rr]$", full.names=TRUE, recursive = TRUE) %>% # sub out for your own dir | |
| map(s_parse) %>% # parse! | |
| map("result") %>% # we used safely() so need to get to get to the "result" | |
| discard(is.null) %>% # get rid of empty results | |
| unlist() %>% # we don't care which file the library() calls are in | |
| keep(is.language) %>% # I'm 99% sure only the next line is required but it's not like we're moving slowly |
| #!/bin/bash | |
| TODAY=`date +%Y-%m-%d` | |
| TODAY_MD=`date +%B\ %d,\ %Y` | |
| YEAR=`date +%Y` | |
| PACKAGENAME=$1 | |
| ## | |
| ## CHANGE ME!!! |
| library(sf) | |
| library(dplyr) | |
| library(ggplot2) | |
| library(gganimate) # needs development version from github | |
| # helper function to place a geometric object at a desired position | |
| # and scale | |
| place_geometry <- function(geometry, position, scale = 1) { | |
| (geometry - st_centroid(geometry)) * scale + | |
| st_sfc(st_point(position)) |
| library(tidycensus) | |
| library(mapdeck) | |
| library(tidyverse) | |
| token <- "your mapbox token" | |
| hv <- get_acs(geography = "tract", | |
| variables = "B25077_001", | |
| state = "CA", | |
| geometry = TRUE) %>% |
| library(rtweet) | |
| library(slickR) # remotes::install_github('metrumresearchgroup/slickR') | |
| tweets <- rtweet::search_tweets("#rstats", n = 5, include_rts = FALSE) | |
| # https://github.com/mkearney/rtweet/pull/305/files | |
| tweet_embed <- function(screen_name,status_id,...){ | |
| stem <- 'https://publish.twitter.com/oembed' | |
