epijim

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

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

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

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

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){