jrosell

Cercador personalitzat en català a Firefox

1. Per tenir un cercador personalitzat a firefox, pots instal·lar l'extensió: https://addons.mozilla.org/ca/firefox/addon/add-custom-search-engine/
2. Per afegir google.cat en català com a cercador limitat a resultats en català, indica aquesta URL a la "Search URL": "https://www.google.cat/search?q=%s&&tbs=lr:lang_1ca&lr=lang_ca&hl=ca"

jrosell

# Ubuntu/debian: sudo apt-get install musescore
# pak::pak("flujoo/gm")
Sys.setenv(MUSESCORE_PATH = "/usr/bin/musescore")
library(gm)

(Music() +
  Meter(4, 4) +
  Line(
    pitches = c(
      c("G4", "A4", "G4", "F#4"),

jrosell

---
title: "robo violencia"
output: html_document
date: "2024-06-19"
editor_options: 
  chunk_output_type: console
---

## CCAA

jrosell

get_mode <- \(x) {
  r <- table(x)
  names(r[r == max(r)])
}
# For example:
# > get_mode(c(1,2,2,3,3,4))
# 2  3

jrosell

#!/usr/bin/env Rscript

cat("==========================================================================\n")
cat("Example of strategy patern in R: Multiple ways to show routes. \n")

# Problem:
# You build a navigation app for casual travelers and help users quickly orient themselves in any city.
# 
# - The first only build the routes over roads.
# - Next update, you added an option to build walking routes. 

jrosell

library(shiny)
library(shinyjs)

ui <- fluidPage(
    useShinyjs(),
    hidden(
        textInput("my_input", label = "my_input", value = "Initial value")
    ),
    textOutput("my_output"),
    actionButton("my_js_button","Update from JavaScript"),

jrosell

## Preparations

pkgs <- c("tidyverse", "pRecipe", "giscoR", "terra", "rayshader", "patchwork")
rlang::check_installed(pkgs)
suppressPackageStartupMessages({
    invisible(lapply(pkgs, library, character.only = TRUE, quietly = TRUE))
})

jrosell

# Dades per CCAA ===============================================================

library(tidyverse)
library(rvest)
theme_set(theme_minimal())
older_year <- 2002

region <- tibble(
    slug = c("andalucia", "aragon", "asturias", "canarias", "cantabria", "castilla-leon", 
                 "castilla-la-mancha", "cataluna", "ceuta", "melilla", "madrid", "valencia", 

jrosell

library(tidyverse)

x <- list(a = list(b = 1, c = NULL), d = NULL)

get_list_names <- \(x, y = c()){
  if (!is.null(names(x))){
    for (nm in names(x)) {
      y <- get_list_names(x[[nm]], c(y, nm))
    }
  }

jrosell

# Game of Life using {coro} generators in R
# Inspiration from Jack Diederich's Python implementation: https://gist.github.com/jhrr/2b5a60e9efcb573c9cc4

library(tidyverse)
library(coro)
library(zeallot)

generate_neighbors <- generator(function(point) {
    c(x, y) %<-% point
    yield(c(x + 1, y))