epijim

geom_glowing_area <- function(
  alpha =  1,
  size = 1.5,
  glow_alpha = 0.05,
  layers = 10,
  glow_size = .65){
  geoms <- list(ggplot2::geom_area(alpha = .5, position = "identity",color =  "#08f7fe"))


  for(i in (layers+1):1){

epijim

score_cindex <- function(
    zip_path, # zip file path
    truth # in memory R object
){

  library("pec") # pec functions don't work without the lib loaded :(
  
  files_present <- zip::zip_list(zip_path)$filename
  
  # Check files present

epijim

score_auc <- function(
  predictions,
  truth
){
  if (!"patientid" %in% names(predictions)) stop("patientid missing from predictions")
  if (!"prediction" %in% names(predictions)) stop("prediction missing from predictions")
  
  if (!"patientid" %in% names(truth)) stop("patientid missing from truth")
  if (!"has_long_covid_diag" %in% names(truth)) stop("has_long_covid_diag missing from truth")
  

epijim

get_cindex <- function(
	predictions = NULL,
	test_truth = NULL
){
	
	start_time <- Sys.time()
	
	# Prep data
	predictions_names <- c("patientid","prediction" )
	if(!identical(predictions_names,names(predictions))) stop(paste(

epijim

# go to https://github.com/FortAwesome/Font-Awesome/tree/master/webfonts
#  and install fa-solid-900.ttf, fa-regular-400.ttf and fa-brands-400.ttf
# then run extrafont::font_import()

library(tidyverse)
library(ggplot2)
library(waffle)
extrafont::loadfonts()

# From LEAP supplemental appendix

epijim

epijim

# This is the server logic for a Shiny web application.
# 

# Google sheets connection

  ## prepare the OAuth token and set up the target sheet:
  ##  - do this interactively
  ##  - do this EXACTLY ONCE
  
  # shiny_token <- gs_auth() # authenticate w/ your desired Google identity here

epijim

epijim

jb_pubdistance <- function(
  v_pubs=c("The Cambridge Brew House","The Cambridge Blue",
           "King Street Run P.H.","The Elm Tree","The Regal"),
  v_location="Cambridge, UK",
  v_zoom=13,
  listpubs=FALSE,
  cam_pubs=TRUE,
  crow_distances=FALSE,
  units="minutes"){
  

epijim