YNWA !! To get the same result as below, please contact me or clone my Github. much more things to do, though… Liverpool FC round 21 result Hometeam = 'Brentford' Awayteam = 'Liverpool' No_round = '24' route <- "202324/pl/" season <- "2023/24" cairo_pdf(file = paste(route, "PREMIER LEAGUE ROUND", " ", No_round, " ", Hometeam, " vs ", Awayteam, ".pdf", sep=""), width = 10, height = 8, family = "Comic Sans MS") Football_result( matchtype = paste(season, "PREMIER LEAGUE ROUND", No_round, sep=" "), Hometeam = Hometeam, Awayteam = Awayteam, Home = "3-5-2", HomeColour = "#FF0000", Home2Colour = "#000000", HomeGKColour = "#FF88EE", HomeLineup = c( "Flekken", "Collins", "Ajer", "Mee", "Roerslev", "Jensen", "Nørgaard", "Janelt", "Reguilón", "Toney", "Maupay" ), HomeSub = c("Lewis-Potter 63'", 52, "Damsgaard 74'", 62, "Onyeka 63'", 72, "Ghoddos 85'", 92, "Wissa 63'", 112), Homescorer = c(10), Away = "4-3-3", AwayColour = "#AA88FF", Away2Colour = "#AA88FF", AwayGKColour = "#000000", AwayLineup = c( "Kelleher", "Robertson", "van Dijk", "Konaté", "Bradley", "Jones", "Endo", "Mac Allister", "Díaz", "Núñez", "Jota" ), AwaySub = c("Gomez 83'", 52, "Elliott 83'", 82, "Salah 44'", 112, "Gakpo 45'", 102), Awayscorer = c(10, 8, 112, 9) ) dev.

Continue reading

YNWA !! To get the same result as below, please contact me or clone my Github. much more things to do, though… Liverpool FC round 21 result Hometeam = 'Liverpool' Awayteam = 'Burnley' No_round = '23' route <- "202324/pl/" season <- "2023/24" cairo_pdf(file = paste(route, "PREMIER LEAGUE ROUND", " ", No_round, " ", Hometeam, " vs ", Awayteam, ".pdf", sep=""), width = 10, height = 8, family = "Comic Sans MS") Football_result( matchtype = paste(season, "PREMIER LEAGUE ROUND", No_round, sep=" "), Hometeam = Hometeam, Awayteam = Awayteam, Home = "4-3-3", HomeColour = "#FF0000", Home2Colour = "#FF0000", HomeGKColour = "#000000", HomeLineup = c( "Kelleher", "Alexander-Arnold", "Quansah", "van Dijk", "Robertson", "Mac Allister", "Endo", "Jones", "Jota", "Núñez", "Díaz" ), HomeSub = c("Elliott 45'", 22, "Tsimikas 97'", 52, "Clark 97'", 62, "McConnell 97'", 72, "Gakpo 82'", 112), Homescorer = c(9, 10, 11), Away = "4-4-2", AwayColour = "#FFFF00", Away2Colour = "#000000", AwayGKColour = "#0000FF", AwayLineup = c( "Trafford", "Delcroix", "Esteve", "O'shea", "Assignon", "Odobert", "Brownhill", "Berge", "A Ramsey", "Amdouni", "Fofana" ), AwaySub = c("da Silva 80'", 32, "Massengo 81'", 92, "Bruun Larsen 86'", 102), Awayscorer = c(4) ) dev.

Continue reading

YNWA !! To get the same result as below, please contact me or clone my Github. much more things to do, though… Liverpool FC round 21 result Hometeam = 'Arsenal' Awayteam = 'Liverpool' No_round = '22' route <- "202324/pl/" season <- "2023/24" cairo_pdf(file = paste(route, "PREMIER LEAGUE ROUND", " ", No_round, " ", Hometeam, " vs ", Awayteam, ".pdf", sep=""), width = 10, height = 8, family = "Comic Sans MS") Football_result( matchtype = paste(season, "PREMIER LEAGUE ROUND", No_round, sep=" "), Hometeam = Hometeam, Awayteam = Awayteam, Home = "4-3-3", HomeColour = "#FF0000", Home2Colour = "#FFFFFF", HomeGKColour = "#000000", HomeLineup = c( "Raya", "White", "Saliba", "Gabriel", "Zinchenko", "Ødegaard", "Rice", "Jorginho", "Saka", "Havertz", "Martinelli" ), HomeSub = c("Kiwior 45'", 52, "Nelson 79'", 92, "Trossard 74'", 112), Homescorer = c(9, 11, 112, -4), Away = "4-3-3", AwayColour = "#AA88FF", Away2Colour = "#AA88FF", AwayGKColour = "#FFB533", AwayLineup = c( "Alisson", "Gomez", "van Dijk", "Konaté", "Alexander-Arnold", "Jones", "Mac Allister", "Gravenberch", "Díaz", "Jota", "Gakpo" ), AwaySub = c("Robertson 58'", 52, "Thiago 85'", 22, "Elliott 58'", 82, "Núñez 58'", 112) #Awayscorer = c() ) dev.

Continue reading

YNWA !! To get the same result as below, please contact me or clone my Github. much more things to do, though… Liverpool FC round 21 result Hometeam = 'Liverpool' Awayteam = 'Chelsea' No_round = '21' route <- "202324/pl/" season <- "2023/24" cairo_pdf(file = paste(route, "PREMIER LEAGUE ROUND", " ", No_round, " ", Hometeam, " vs ", Awayteam, ".pdf", sep=""), width = 10, height = 8, family = "Comic Sans MS") Football_result( matchtype = paste(season, "PREMIER LEAGUE ROUND", No_round, sep=" "), Hometeam = Hometeam, Awayteam = Awayteam, Home = "4-3-3", HomeColour = "#FF0000", Home2Colour = "#FF0000", HomeGKColour = "#000000", HomeLineup = c( "Alisson", "Bradley", "Konaté", "van Dijk", "Gomez", "Szoboszlai", "Mac Allister", "Jones", "Jota", "Núñez", "Díaz" ), HomeSub = c("Alexander-Arnold 68'", 22, "Gakpo 68'", 92, "Clark 83'", 82, "Elliott 69'", 62, "Robertson 69'", 52), Homescorer = c(2, 9, 6, 11), Away = "4-2-3-1", AwayColour = "#0000FF", Away2Colour = "#0000FF", AwayGKColour = "#11CC00", AwayLineup = c( "Petrovic", "Chilwell", "Badiashile", "Thiago Silva", "Disasi", "Fernández", "Caicedo", "Sterling", "Gallagher", "Madueke", "Palmer" ), AwaySub = c("Gusto 45'", 22, "Chukwuemeka 66'", 72, "Mudryk 45'", 102, "Nkunku 45'", 92, "Casadei 85'", 112), Awayscorer = c(92) ) dev.

Continue reading

YNWA !! To get the same result as below, please contact me or clone my Github. much more things to do, though… Liverpool FC round 20 result Hometeam = 'AFC Bournemouth' Awayteam = 'Liverpool' No_round = '20' route <- "202324/pl/" season <- "2023/24" cairo_pdf(file = paste(route, "PREMIER LEAGUE ROUND", " ", No_round, " ", Hometeam, " vs ", Awayteam, ".pdf", sep=""), width = 10, height = 8, family = "Comic Sans MS") Football_result( matchtype = paste(season, "PREMIER LEAGUE ROUND", No_round, sep=" "), Hometeam = Hometeam, Awayteam = Awayteam, Home = "4-2-3-1", HomeColour = "#FF0000", Home2Colour = "#000000", HomeGKColour = "#CCFF00", HomeLineup = c( "Neto", "Aarons", "Zabarnyi", "Mepham", "Hill", "L Cook", "Christie", "Tavernier", "Kluivert", "Sinisterra", "Solanke" ), HomeSub = c("Kelly 55'", 52, "Billing 83'", 62, "Brooks 69'", 92, "Scott 55'", 102, "Moore 83'", 112), # Homescorer = c(), Away = "4-3-3", AwayColour = "#FFFFFF", Away2Colour = "#33EE44", AwayGKColour = "#FFB533", AwayLineup = c( "Alisson", "Gomez", "van Dijk", "Konaté", "Bradley", "Jones", "Mac Allister", "Elliott", "Núñez", "Jota", "Díaz" ), AwaySub = c("Beck 83'", 22, "Gravenberch 64'", 82, "Clark 83'", 62, "Gakpo 64'", 112, "Gordon 93'", 102), Awayscorer = c(10, 10, 9, 9) ) dev.

Continue reading

YNWA !! To get the same result as below, please contact me or clone my Github. much more things to do, though… Liverpool FC round 18 result Hometeam = 'Liverpool' Awayteam = 'Newcastle United' No_round = '19' route <- "202324/pl/" season <- "2023/24" cairo_pdf(file = paste(route, "PREMIER LEAGUE ROUND", " ", No_round, " ", Hometeam, " vs ", Awayteam, ".pdf", sep=""), width = 10, height = 8, family = "Comic Sans MS") Football_result( matchtype = paste(season, "PREMIER LEAGUE ROUND", No_round, sep=" "), Hometeam = Hometeam, Awayteam = Awayteam, Home = "4-3-3", HomeColour = "#FF0000", Home2Colour = "#FF0000", HomeGKColour = "#11CC00", HomeLineup = c( "Alisson", "Alexander-Arnold", "Konaté", "van Dijk", "Gomez", "Szoboszlai", "Endo", "Jones", "Salah", "Núñez", "Díaz" ), HomeSub = c("Mac Allister 75'", 72, "Gakpo 64'", 102, "Gravenberch 64'", 62, "Jota 65'", 112), Homescorer = c(9, 9, 8, 102), Away = "4-3-3", AwayColour = "#FFFFFF", Away2Colour = "#000000", AwayGKColour = "#11DDFF", AwayLineup = c( "Dúbravka", "Burn", "Botman", "Schär", "Livramento", "S Longstaff", "Bruno Guimarães", "Miley", "Joelinton", "Isak", "Gordon" ), AwaySub = c("Hall 82'", 22, "Almirón 54'", 82, "Lascelles 82'", 92), Awayscorer = c(10, 3) ) dev.

Continue reading

YNWA !! To get the same result as below, please contact me or clone my Github. much more things to do, though… Liverpool FC round 18 result Hometeam = 'Liverpool' Awayteam = 'Arsenal' No_round = '18' route <- "202324/pl/" season <- "2023/24" cairo_pdf(file = paste(route, "PREMIER LEAGUE ROUND", " ", No_round, " ", Hometeam, " vs ", Awayteam, ".pdf", sep=""), width = 10, height = 8, family = "Comic Sans MS") Football_result( matchtype = paste(season, "PREMIER LEAGUE ROUND", No_round, sep=" "), Hometeam = Hometeam, Awayteam = Awayteam, Home = "4-3-3", HomeColour = "#FF0000", Home2Colour = "#FF0000", HomeGKColour = "#000000", HomeLineup = c( "Alisson", "Alexander-Arnold", "Konaté", "van Dijk", "Tsimikas", "Szoboszlai", "Endo", "Jones", "Salah", "Gakpo", "Díaz" ), HomeSub = c("Elliott 68'", 112, "Núñez 68'", 102, "Gravenberch 68'", 82, "Gomez 35'", 52), Homescorer = c(9), Away = "4-3-3", AwayColour = "#BBFF00", Away2Colour = "#000000", AwayGKColour = "#11BBFF", AwayLineup = c( "Raya", "Zinchenko", "Gabriel", "Saliba", "White", "Havertz", "Rice", "Ødegaard", "Martinelli", "Gabriel Jesus", "Saka" ), AwaySub = c("Nketiah 78'", 102, "Trossard 68'", 92), Awayscorer = c(3) ) dev.

Continue reading

YNWA !! To get the same result as below, please contact me or clone my Github. much more things to do, though… Liverpool FC round 17 result Hometeam = 'Liverpool' Awayteam = 'Manchester United' No_round = '17' route <- "202324/pl/" season <- "2023/24" cairo_pdf(file = paste(route, "PREMIER LEAGUE ROUND", " ", No_round, " ", Hometeam, " vs ", Awayteam, ".pdf", sep=""), width = 10, height = 8, family = "Comic Sans MS") Football_result( matchtype = paste(season, "PREMIER LEAGUE ROUND", No_round, sep=" "), Hometeam = Hometeam, Awayteam = Awayteam, Home = "4-3-3", HomeColour = "#FF0000", Home2Colour = "#FF0000", HomeGKColour = "#000000", HomeLineup = c( "Alisson", "Alexander-Arnold", "Konaté", "van Dijk", "Tsimikas", "Szoboszlai", "Endo", "Gravenberch", "Salah", "Núñez", "Díaz" ), HomeSub = c("Elliott 78'", 102, "Gakpo 61'", 82, "Jones 78'", 112, "Gomez 61'", 62), Away = "4-2-3-1", AwayColour = "#FFFFFF", Away2Colour = "#FFFFFF", AwayGKColour = "#66FF66", AwayLineup = c( "Onana", "Shaw", "Varane", "Evans", "Dalot", "Amrabat", "Mainoo", "Garnacho", "McTominay", "Antony", "Højlund" ), AwaySub = c("Mejbri 82'", 72, "Pellistri 82'", 102, "Rashford 71'", 82) ) dev.

Continue reading

YNWA !! To get the same result as below, please contact me or clone my Github. much more things to do, though… UEFA Europa League Europa League group stage round 05 result Hometeam = 'Union Saint-Gilloise' Awayteam = 'Liverpool' No_round = '06' route <- "202324/europa/" season <- "2023/24" cairo_pdf(file = paste(route, "UEFA EUROPA LEAGUE Group Stage", " ", No_round, " ", Hometeam, " vs ", Awayteam, ".pdf", sep=""), width = 10, height = 8, family = "Comic Sans MS") Football_result( matchtype = paste(season, "UEFA EUROPA LEAGUE Group Stage", No_round, sep=" "), Hometeam = Hometeam, Awayteam = Awayteam, Home = "3-4-1-2", HomeColour = "#FFFF00", Home2Colour = "#222288", HomeGKColour = "#000000", HomeLineup = c( "Moris", "Mac Allister", "Burgess", "Machida", "Castro-Montes", "Amani", "Sadiki", "Lapoussin", "Puertas", "Nilsson", "Amoura" ), HomeSub = c("Eckert Ayensa 88'", 62, "Rodríguez 78'", 102, "Rasmussen 84'", 112), Homescorer = c(11, 9), Away = "4-3-3", AwayColour = "#FF0000", Away2Colour = "#FF0000", AwayGKColour = "#00AA00", AwayLineup = c( "Kelleher", "Chambers", "Quansah", "Konaté", "Bradley", "Jones", "Endo", "Elliott", "Doak", "Gakpo", "Gordon" ), AwaySub = c("Gomez 45'", 42, "Scalon 63'", 22, "Gravenberch 45'", 72, "McConnell 75'", 112, "Núñez 63'", 92), Awayscorer = c(3) ) dev.

Continue reading

YNWA !! To get the same result as below, please contact me or clone my Github. much more things to do, though… Liverpool FC round 16 result Hometeam = 'Crystal Palace' Awayteam = 'Liverpool' No_round = '16' route <- "202324/pl/" season <- "2023/24" cairo_pdf(file = paste(route, "PREMIER LEAGUE ROUND", " ", No_round, " ", Hometeam, " vs ", Awayteam, ".pdf", sep=""), width = 10, height = 8, family = "Comic Sans MS") Football_result( matchtype = paste(season, "PREMIER LEAGUE ROUND", No_round, sep=" "), Hometeam = Hometeam, Awayteam = Awayteam, Home = "4-3-3", HomeColour = "#0000FF", Home2Colour = "#FF0000", HomeGKColour = "#FF5500", HomeLineup = c( "Johnstone", "Ward", "Andersen", "Guéhi", "Clyne", "Hughes", "Richards", "Lerma", "J Ayew", "Édouard", "Schlupp" ), HomeSub = c("Matthews 87'", 12, "Ozoh 95'", 62, "Olise 68'", 82, "Mateta 45'", 102, "Ahamada 84'", 112), Homescorer = c(102), Away = "4-3-3", AwayColour = "#FFFFFF", Away2Colour = "#11EE88", AwayGKColour = "#000000", AwayLineup = c( "Alisson", "Tsimikas", "van Dijk", "Quansah", "Alexander-Arnold", "Gravenberch", "Endo", "Szoboszlai", "Díaz", "Núñez", "Salah" ), AwaySub = c("Konaté 57'", 42, "Elliott 74'", 102, "Jones 73'", 82, "Gakpo 57'", 62, "Gomez 45'", 72), Awayscorer = c(102, 11) ) dev.

Continue reading