danlooo

danlooo

danlooo

#' Assignment expression operator
#'
#' Creates an object with name `lhs` with the value `lhs`
#' and finally returns the value e.g. to pipe and print it 
`%:=%` <- function(lhs, rhs, envir = parent.frame()) {
  assign(deparse(substitute(lhs)), rhs, envir = envir)
  rhs
}

# Create a varaible and print it's value

danlooo

library(tidyverse)
library(eulerr)
library(ggforce)

#' Area proportional venn diagrams
#'
#' This functions uses eulerr::euler to plot area proportional venn diagramms
#' but plots it using ggplot2
#'
#' @param combinations set relationships as a named numeric vector, matrix, or data.frame(See `eulerr::euler`)

danlooo

l <- list(
  list(
    list(
      a = 1
    )
  )
) %>%
  enframe()

# How to simplify this repetetive code?

danlooo

#!/usr/bin/env python3

def view_dict(d: dict):
    '''View a (nested) dictionary in a new VSCode paneas a temp file for inspection'''
    from yaml import dump
    from tempfile import NamedTemporaryFile
    from os import system
    from subprocess import call

    with NamedTemporaryFile(suffix=".yml") as f:

danlooo

using GeometryBasics, LinearAlgebra, GLMakie, FileIO, CoordinateTransformations, ColorSchemes

function intersect_line_sphere(p::Point3f, d::Point3f, c::Point3f, sphere_radius::Float32)
    # Use indexing to access point/vector components
    # Calculate coefficients of the quadratic equation (a*t^2 + b*t + c = 0)
    a = dot(d, d)
    b = 2 * dot(d, p .- c)
    c = dot(p .- c, p .- c) .- sphere_radius^2

    # Calculate discriminant