jansim

# Set the directory containing the PDF files
pdf_directory <- "path/to/dir/with/pdfs"

# Get a list of all PDF files in the directory
pdf_files <- list.files(path = pdf_directory, pattern = "\\.pdf$", full.names = TRUE)

# Iterate through each PDF file and embed fonts
for (pdf_file in pdf_files) {
  print(paste("Embedding fonts in:", pdf_file))

jansim

I recently received the following error when rendering the vignettes for an R package I'm developing as part of R CMD CHECK.

The function xfun::isFALSE() will be deprecated in the future. Please consider using base::isFALSE(x) or identical(x, FALSE) instead.

As it wasn't clear which package exactly was calling the offending function (xfun::isFALSE), I just wanted an easy way of upgrading all packages that may be using it. The following snippet does just that.

jansim

# This is the function itself
pwr.t2n.ratio <- function(n_ratio = 1, d, sig.level, power, alternative) {
  if (power >= 1) {
    return(Inf)
  }
  fn <- Vectorize(function(n1) {
    effN <- n1 * n_ratio / (1 + n_ratio)
    df <- n1 * (1 + n_ratio) - 2
    ncp <- sqrt(effN) * d
    if (alternative == "two.sided") {

jansim

library(sp)
library(rworldmap)

#' Get country from coordinates
#' based on: https://stackoverflow.com/questions/14334970/convert-latitude-and-longitude-coordinates-to-country-name-in-r/14342127#14342127
#'
#' @param lng Contains the longitude in degrees
#' @param lat Contains the latitude in degrees
#' @param export What to return, options: 'name' => country name (default), 'iso3' => ISO3 country code, 'continent6' => continent (6 continent model), 'continent7' => continent (7 continent model), 'raw' => whole spatial indices object
#'

jansim

// Vulgar fractions are Unicode characters for specific fractions i.e. ½

// List of fractions from: https://stackoverflow.com/questions/35012491/parse-%C2%BD-as-0-5-in-python-2-7
// See also: http://unicodefractions.com/

// Calculate fractions on-the-fly
const vulgar_fractions = {
  '\u2189': 0/3,
  '\u2152': 1/10,
  '\u2151': 1/9,

jansim

sudo kill -9 `ps ax|grep 'coreaudio[a-z]' | awk '{print $1}'`

jansim

var Event = function () {
  var self = this

  self.queue = {}
  self.fired = []

  return {
    fire: function (event) {
      var queue = self.queue[event]

jansim

#!/usr/bin/env osascript -l JavaScript

// Add reminders to the macOS Reminders.App from the command line

const RemindersApp = Application('Reminders');

// - Examples -
// Add a new item:
// ./reminder.js add "My cool new reminder"
// Show all available lists: