h-a-graham

# Description: This script is used to download HLS data from NASA's Earthdata
# STAC API and build a cloud-free composite image.

# ----- Functions -----

# band mapping for HLS SL data
#' @return a named character vector of band mappings for HLS SL data
hlssl_band_mapping <- function() {
  c(
    B01 = "A", B02 = "B", B03 = "G", B04 = "R",

selfawaresoup

# This can take quite a long time to run

library(xml2)
library(tidyverse)

read_xml("apple_health_export/export.xml") -> x

x %>% xml_find_all(".//Record") %>%
  xml_attrs %>%
  bind_rows %>%

gadenbuie

App Install Plan

Critical

• iTerm2

  • https://iterm2.com/

• Command Line Tools

  • xcode-select –install

ashiklom

library(rpecanapi)
library(httr)
library(magrittr, include.only = "%>%")
library(dplyr)
library(glue)

wfmessage <- function(wf) {
  message(glue(
    "Follow workflow status at:\n",
    "http://localhost:8000/pecan/05-running.php?",

ashiklom

# CI overrides
version: '3'

services:
  web:
    environment:
      - DATABASE_URL
      - DJANGO_SETTINGS_MODULE
      - SECRET_KEY
      - PORT

aurielfournier

 4 medium carrots grated (about 2 cups)
1/2 c walnuts chopped
1 c white flour
1 c wheat flour
1 1/2 tsp. baking soda
2 tsp. baking powder
2 tsp. cinnamon
2 c sugar
4 eggs
3/4 c oil

ashiklom

PIC setup notes

VM instance setup

Start at cloud management console (https://dashboard.cloud.pnnl.gov).

Go to “Instances”, then “Launch Instance”.

Details: Give it a name (e.g. “pecan1”) Availability zone “nova” (only option).

DavisVaughan

library(purrr)
library(lobstr)
library(glue)
library(rlang, warn.conflicts = FALSE)

make_an_lm <- function() {
  x <- rep(1L, times = 10000000)
  cat(glue("x is {object.size(x)}B"))
  lm(1 ~ 1)
}

baptiste

library(grImport2)
library(grConvert)
library(egg)

convertPicture("noun_3663.svg", "balloon.svg")
balloon <- readPicture("balloon.svg")


d <- data.frame(x=1:9, y=rnorm(9), 
                data = I(Map(function(c, s) list(c=c,s=s),c=blues9,s=1:9)), 

noamross

library(rtweet) #rtweet API creds should already be set up
library(stringi)
library(dplyr)

friends = get_friends(user="noamross")
followers = get_followers("noamross")
tweeps_id = distinct(bind_rows(friends, followers))
tweeps_info = lookup_users(tweeps_id$user_id)

# A regex for a visit to Durham