jnolis

# Creating a Star Trek: Deep Space Nine Netflix analytics plot in R
# 
# FONT SETUP INSTRUCTIONS
# Before running this you'll need to go to this website, 
# download the Context Ultra Condensed font, then install it to your system.
#     https://www.st-minutiae.com/resources/fonts/index.html 
# 
# You'll need to register the font by running extrafont::font_import().
# I found that I had to manually import the ttf file--it wasn't picked up by reading the default
# directory. Instead I did running 

jnolis

library(shiny)
library(jsonlite)

# we'll store received data in a local json file
write_json(list(), "data.json")

post_handler <- function(req, response) {
  # we'll catch everything that's POST for this demo but you'll want to make
  # sure you don't step on shiny's built-in POST handlers
  # (I'm pretty sure this handler is called after shiny's handlers but :shrug:)

jnolis

library(shiny)
library(jsonlite)

# we'll store received data in a local json file
write_json(list(), "data.json")

post_handler <- function(req, response) {
  # we'll catch everything that's POST for this demo but you'll want to make
  # sure you don't step on shiny's built-in POST handlers
  # (I'm pretty sure this handler is called after shiny's handlers but :shrug:)

jnolis

get_sunrise_sunset <- function(lat,long, date, tz){
  # tz is required to know when daylight savings happens
  response <- httr::GET(glue::glue("https://api.sunrise-sunset.org/json?lat={lat}&lng={long}&date={date}&formatted=0"))
  results <- httr::content(response)$results
  
  results[["day_length"]] <- NULL
  results <- lapply(results, function(x) as.POSIXct(x,format="%Y-%m-%dT%T",tz="UTC"))
  results <- lapply(results, function(x) lubridate::with_tz(x, tzone = tz))
  results
}

jnolis

jnolis

library(tidyverse)
library(jsonlite)

x <- tribble(
  ~name, ~city, ~age,
  "Heather", "Renton", 31,
  "Jacqueline", "Issaquah", 34
)

# BAD WAY

jnolis

library(furrr)
library(dplyr)

future::plan(future::multisession()) # This is for windows, might want something else for Linux

data <- data.frame(letter = sample(letters,num_samples, replace = TRUE),
           value = runif(num_samples))

data %>%
  group_by(letter) %>%

jnolis

{
  "name": "embed-recipe-site",
  "image_uri": "saturncloud/saturn-r:2021.11.10-2",
  "description": "A simple website with R and Shiny for embedding recipe links",
  "environment_variables": {},
  "working_directory": "/home/jovyan/git-repos/embed-recipes-site",
  "extra_packages": {
    "use_mamba": true,
    "conda": "",
    "apt": "libv8-dev",

jnolis

library(tidyverse)

data <-
  read_lines("07/input.txt") %>%
  str_split(",") %>%
  .[[1]] %>%
  as.integer()

# part 1
# the optimal location to meet is exactly the median (think L1 space if you're mathy)

jnolis

{
  "name": "nvidia-reporting-test",
  "image_uri": "saturncloud/saturn-r:2021.11.10-2",
  "description": "",
  "environment_variables": {},
  "working_directory": "/home/jovyan/git-repos/nvidia-reporting",
  "extra_packages": {
    "apt": "unixodbc unixodbc-dev",
    "conda": "",
    "pip": "",