Home » Football » Slovenia » 1. Zenska Liga

1. Zenska Liga stats & predictions

Today

%<|repo_name|>samuelrbradford/zen<|file_sep|>/tests/test_that.R library(testthat) library(zen) test_check("zen") <|repo_name|>samuelrbradford/zen<|file_sep|>/R/zzz.R .onAttach <- function(libname,pkgname) { packageStartupMessage("Welcome to Zen!") } .onLoad <- function(libname,pkgname) { # register S3 methods register_s3_method("draw","point",package="ggplot2") register_s3_method("draw","segment",package="ggplot2") register_s3_method("draw","tile",package="ggplot2") register_s3_method("draw","text",package="ggplot2") register_s3_method("draw","geom_ribbon",package="ggplot2") } <|file_sep|>#' Generate a hexagonal grid. #' #' @param center The center coordinates (x,y) of hexagon. #' @param radius The radius of hexagon. #' @param n The number of hexagons (in each dimension). #' @param ... Additional arguments passed along. #' #' @return A data frame containing x,y coordinates for each hexagon. #' #' @export hex_grid <- function(center=c(0L),radius=1L,n=10L,...){ xy <- expand.grid(x=seq(-n,n),y=seq(-n,n)) xy$z <- -(xy$x+xy$y) xy <- xy[abs(xy$z)<=n,,drop=FALSE] xy$x <- xy$x*radius*sqrt(3)/2 xy$y <- xy$y*radius*sqrt(3)/2 + xy$z*radius*sqrt(3)/6 xy$x <- xy$x + center[1] xy$y <- xy$y + center[2] class(xy) <- "hex_grid" return(xy) } #' Plot method for code{hex_grid} objects. #' #' @param x A code{hex_grid} object. #' @param ... Additional arguments passed along. #' #' @export plot.hex_grid <- function(x,...){ ggplot(x,aes(x=x,y=y)) + geom_hex() + coord_fixed() } <|file_sep|>#' Get size information from ggplot object. #' #' This function gets size information from ggplot object. #' #' @param plot ggplot object #' #' @return data frame with x,y coordinates #' #' @importFrom ggplot2 ggplot_build #' #' @export get_size_info <- function(plot){ gb <- ggplot_build(plot) return(gb$layout$panel_scales_x[[1]]) } <|repo_name|>samuelrbradford/zen<|file_sep|>/R/legend.R #' Extract legend information from ggplot object. #' #' This function extracts legend information from ggplot object. #' #' @param plot ggplot object #' #' @return data frame with x,y coordinates #' #' @importFrom ggplot2 ggplot_build #' #' @export get_legend <- function(plot){ gb <- ggplot_build(plot) return(gb$layout$panel_params[[1]]$legend) } remove_legend <- function(plot){ gtable::gtable_filter(ggplot_gtable(ggplot_build(plot)),"-legend") } remove_labs <- function(plot){ plot + labs(color=NULL,size=NULL,alpha=NULL) } <|repo_name|>samuelrbradford/zen<|file_sep|>/R/annotate.R annotate_image_grob <- function(img,x,y,width,height,...){ if (missing(img)) img = NULL if (missing(x)) x = NULL if (missing(y)) y = NULL grob_list = list() if (!is.null(img)){ img_grob = rasterGrob(img, width=unit(width,"npc"), height=unit(height,"npc"), just=c("left","bottom")) grob_list = append(grob_list,img_grob) x = rep(x,length(img)) y = rep(y,length(img)) } return(list(x=x,y=y,grobs=grob_list)) } annotate_text_grob <- function(text,x,y,size,color,...){ grob_list = list() text_grob = textGrob(text, x=x, y=y, gp=gpar(fontsize=size,color=color)) grob_list = append(grob_list,text_grob) return(list(x=x,y=y,grobs=grob_list)) } annotate_hexagons_grob <- function(hexes,x,y,size,color,alpha,...){ grob_list = list() hex_grobs = lapply(seq_len(nrow(hexes)),function(i){ rectGrob( xmin=hexes$xmin[i], xmax=hexes$xmax[i], ymin=hexes$ymin[i], ymax=hexes$ymax[i], gp=gpar(fill=color,alpha=alpha), just="centre", default.units="npc", width=unit(size,"npc"), height=unit(size,"npc") ) # rectGrob( # xmin=x[i]-size/2, # xmax=x[i]+size/2, # ymin=y[i]-size/2, # ymax=y[i]+size/2, # gp=gpar(fill=color,alpha=alpha), # just="centre", # default.units="npc", # width=unit(size,"npc"), # height=unit(size,"npc") # ) # rectGrob( # xmin=x[i]-size, # xmax=x[i]+size, # ymin=y[i]-size, # ymax=y[i]+size, # gp=gpar(fill=color,alpha=alpha), # just="centre", # default.units="npc", # width=unit(size,"npc"), # height=unit(size,"npc") # ) return(hex_grobs) }) grob_list = append(grob_list,t(hex_grobs)) return(list(x=x,y=y,grobs=grob_list)) } annotate_points_grob <- function(points,x,y,size,color,alpha,...){ } annotate_segments_grob <- function(segments,x0,y0,x1,y1,size,color,alpha,...){ } <|repo_name|>samuelrbradford/zen<|file_sep|>/R/draw.R register_s3_method <- function(f,...){ } get_s3_method_signature <- function(f,class_name,...){ } get_s3_method_dispatch_table <- function(f,...){ } draw_point.ggplot<-function(data,params,scale,...){ } draw_segment.ggplot<-function(data,params,scale,...){ } draw_tile.ggplot<-function(data,params,scale,...){ } draw_text.ggplot<-function(data,params,scale,...){ } draw_geom_ribbon.ggplot<-function(data,params,scale,...){ } <|file_sep|># zen The goal of zen is ... ## Installation You can install zen using devtools: r devtools::install_github("samuelrbradford/zen") ## Example This is a basic example which shows you how to solve a common problem: r <|file_sep|>#' Create hexagon grid from existing data frame. #' #' This functions creates hexagon grid from existing data frame. #' #' @param df Data frame containing x,y coordinates. #' @param radius The radius of hexagon (default: max distance between points). #' #' @return Data frame containing x,y,z coordinates for each hexagon. #' #' @export data_to_hex_grid <- function(df,radius=NULL){ } <|repo_name|>samuelrbradford/zen<|file_sep|>/R/grid.R get_nrows_cols_from_data_size <- function(npoints,nrows=NULL,ncols=NULL){ } grid_coords_from_data_size_nrows_ncols_hexagons_hex_radius_width_height_hex_x_offset_hex_y_offset_center_x_center_y_scale_x_scale_y_add_offsets<-function(npoints,nrows=NULL,ncols=NULL,hex_radius=NULL,width=NULL,height=NULL,hex_x_offset=NULL,hex_y_offset=NULL,cx=NULL,cy=NULL,sx=NULL,sy=NULL){ } <|repo_name|>mikeash/MagicDictionaryApp<|file_sep|>/MagicDictionary/MagicDictionary/AppDelegate.h // // Copyright (c) Microsoft Corporation. All rights reserved. // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License. // You may obtain a copy of the License at // // http://www.apache.org/licenses/LICENSE-2.0 // // Unless required by applicable law or agreed to in writing, software // distributed under the License is distributed on an "AS IS" BASIS, // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. // See the License for the specific language governing permissions and // limitations under the License. #import "AppDelegate.h" @interface AppDelegate () @property (nonatomic,strong) UIWindow *window; @end @implementation AppDelegate #pragma mark - UIApplicationDelegate / * Application did finish launching method that configures views window etc... * * This method is called when application finishes launching process after receiving activation message from OS. * * If there were no user defaults available then application starts fresh by creating new settings object, * otherwise it loads settings from user defaults. * * If there was no dictionary available then it creates new dictionary based on selected language settings, * otherwise it loads dictionary from user defaults as well as saves it again there