b-rodrigues

options(reactable.theme = reactable::reactableTheme(
          color = "hsl(233, 9%, 87%)",
          backgroundColor = "#002b36",
          borderColor = "#eee8d5",
          stripedColor = "#586e75",
          highlightColor = "#6c71c4",
          inputStyle = list(backgroundColor = "hsl(233, 9%, 25%)"),
          selectStyle = list(backgroundColor = "hsl(233, 9%, 25%)"),
          pageButtonHoverStyle = list(backgroundColor = "hsl(233, 9%, 25%)"),
          pageButtonActiveStyle = list(backgroundColor = "hsl(233, 9%, 28%)")

djnavarro

unpack_double <- function(x) {
  binary <- numToBits(x)    # little-endian binary representation
  structure(
    list(
      sign = binary[64],        # 1-bit sign
      exponent = binary[63:53], # 11-bit exponent
      mantissa = binary[52:1]   # 52-bit mantissa
    ),
    class = "unpacked_double"

ColinFay

# To do the first time
# git remote add upstream https://github.com/original-repo/goes-here.git
git fetch upstream
git rebase upstream/master
git push origin master --force

MilesMcBain

## apply a function to square a list of numbers
square <- function(x) {
  x^2
}

lapply(list(1,2,3), square)

## save some code and declare 'square' anonymously - i.e. never assign it anywhere
## using the name 'square'

olihawkins

# Functions for downloading data on Coronavirus cases in the UK by country, 
# region, NHS region, and local authority from the government dashboard API.
#
# The developer guide is here:
#
# https://coronavirus.data.gov.uk/developers-guide
# 
# The code below is based on the example code shown there.
# 
# Run ...

erdavis1

ID,name,long,lat,region
1,'31 Market Place',-1.021284,53.429981,england
1,'The Commercial Hotel',-2.364444,53.752023,england
3,'The Park Inn ',-2.358299,53.747997,england
5,0 degrees North,-0.0309,53.560872,england
6,012 Bar And Grill,0.004034,51.544232,england
7,1 In 12 Club,-1.758029,53.794847,england
8,1 Step Social Limited,-1.633635044,54.81035995,england
9,1 Town Hall Square,-3.4474502,51.4620403,wales
10,100 Acre Catering Ltd,-1.838364,51.063689,england

malcolmbarrett

# install.packages(c("here", "fs", "stringr", "purrr", "git2r"))

# to add invisibly in your R profile, open with usethis::edit_r_profile()
# then define it in an environment, e.g.
# .env <- new.env()
# .env$move_slides_to_web <- {function definition}

move_slides_to_web <- function(folder = NULL, index = NULL) {
  
  if (is.null(folder)) {

matt-dray

# Plotting a UK local authorities geojson with sf and ggplot2
# Feb 2019
# Matt Dray

# Packages needed

library(sf)  # spatial features package for working with geographies
library(geojsonio)  # for working with GeoJSON files
library(ggplot2)  # for plotting

bennuttall

Remote GPIO

GPIO Zero allows you to create objects representing GPIO devices. As well as running it on a Raspberry Pi, you can also install GPIO Zero on a PC and create objects referencing GPIO pins on a Pi over the network.

To do this, you'll need to do a few things to get set up:

1. Enable Remote GPIO on the Pi in the Raspberry Pi Configuration Tool.

2. Run the pigpio daemon on the Pi:

DianaEromosele

$ git remote rm origin
$ git remote add origin git@github.com:aplikacjainfo/proj1.git
$ git config master.remote origin
$ git config master.merge refs/heads/master