coolbutuseless’s gists

coolbutuseless / pong.R

Created July 24, 2022 00:57 — forked from Enchufa2/pong.R

Pong in R

	# remotes::install_github("coolbutuseless/eventloop")

	Pong <- R6::R6Class(
	"pong",

	public = list(
	initialize = function(width=10, height=7, speed=0.02) {
	require(grid)
	private$width <- width
	private$height <- height

coolbutuseless / game-of-fits.R

Created June 17, 2022 05:57

Game of Fits



	#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	# Use x11() device as Rstudio device has "issues" with grid.locator()
	#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	library(grid)
	x11(type = 'cairo')

	#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	# Some linear-ish points in range/domain [0,1]

coolbutuseless / reactive.Rmd

Created May 5, 2022 21:09

Reactive objects with eventloop

	---
	title: "Reactive Objects"
	output: rmarkdown::html_vignette
	vignette: >
	%\VignetteIndexEntry{Reactive Objects}
	%\VignetteEngine{knitr::rmarkdown}
	%\VignetteEncoding{UTF-8}
	---

	```{r, include = FALSE}

coolbutuseless / 2048.R

Created November 14, 2021 09:58

2048

coolbutuseless / mutate.listframe

Created April 19, 2021 09:47 — forked from MyKo101/mutate.listframe

Application of the mutate method to a listframe


	listframe <- function(...){
	structure(
	tibble(...),
	class = c("listframe","tbl_df","tbl","data.frame")
	)
	}

	lf <- listframe(
	a = list(1,c("a","b","c"),matrix(1:4,2,2)),

coolbutuseless / ray-tracer.Rmd

Last active July 22, 2021 11:48

Simple ray tracer in Base R

	MIT Licensed. Copyright (c) 2021 [email protected]
	Share and Enjoy.

	## Introduction

	This code was a personal challenge to write a simple ray-tracer in pure R.

	Ray tracing is an example of something which is really silly to do in base R,
	and I'd be interested to see how others would approach this problem.

coolbutuseless / chess-game.R

Created November 5, 2020 20:33

Chess game in R using the stockfish engine

	#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	#' Convert a FEN string to a char matrix representing the chess board.
	#'
	#' @param fen fen string
	#'
	#' @return 8x8 character matrix representing the chess board
	#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	fen_to_matrix <- function(fen) {

	#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

coolbutuseless / RTriangle-bug.R

Created October 4, 2020 22:31

RTriangle bug reprex

coolbutuseless / RTriangle-segfault.R

Created October 1, 2020 10:26

Input that will segfault RTriangle

coolbutuseless / self-intersecting-polygon-triangulation.R

Last active September 13, 2020 07:10

Triangulation of self-intersecting polyons

	library(ggplot2)

	df <- data.frame(
	x = c(0, 1, 0, 1),
	y = c(0, 0, 1, 1)
	)

	p <- ggplot(df, aes(x, y)) +
	geom_polygon() +
	geom_point(colour = 'tomato', size = 3) +

mikefc coolbutuseless