Knut Behrends knbknb

Running docker-compose as a systemd service

Files

File	Purpose
`/etc/compose/docker-compose.yml`	Compose file describing what to deploy
`/etc/systemd/system/docker-compose-reload.service`	Executing unit to trigger reload on `docker-compose.service`
`/etc/systemd/system/docker-compose-reload.timer`	Timer unit to plan the reloads
`/etc/systemd/system/docker-compose.service`	Service unit to start and manage docker compose

VSCode

Bracket Pair Colorizer

Sublime Text

BracketHighlighter rainbowth for ST 3 rainbowth for ST 2

Eurostat, World Bank and others: https://ikashnitsky.github.io/2017/data-acquisition-two/
Star Wars data: in dplyr, http://dplyr.tidyverse.org/reference/starwars.html
Baby names data: babynames package, https://cran.r-project.org/web/packages/babynames/index.html
Movies data: https://cran.r-project.org/web/packages/ggplot2movies/index.html ggplot2movies package
Game of Thrones screen time: https://github.com/Preetish/GoT_screen_time
Open Bike Data: https://github.com/ropensci/bikedata
Tons of data through 538: https://cran.r-project.org/web/packages/fivethirtyeight/vignettes/fivethirtyeight.html
Public health data England: fingertipsR, https://cran.r-project.org/web/packages/fingertipsR/
Financial data via Quandl: https://www.quandl.com/tools/r
Cyclones: https://github.com/ropensci/rrricanesdat

Let's say you have streaming data, and you would like to update a DT::datatable in Shiny without completely re-rendering the table. Here is some code to illustrate how this might be accomplished. Hope it helps.

library(DT)
library(shiny)

ui <- tagList(
  tags$script(HTML(
"
Shiny.addCustomMessageHandler(

	library(shiny)
	library(httr)

	# OAuth setup --------------------------------------------------------

	# Most OAuth applications require that you redirect to a fixed and known
	# set of URLs. Many only allow you to redirect to a single URL: if this
	# is the case for, you'll need to create an app for testing with a localhost
	# url, and an app for your deployed app.

	library(tidyverse)
	library(magrittr)
	library(stringr)
	library(readxl)

	directory <- "bunch/of/excel/files"

	# Get an overview of all the Excel files and their sheets
	sheets <-
	data_frame(file = list.files(directory, full.names = TRUE),

	## GOAL:
	## re-create a figure similar to Fig. 2 in Wilson et al. (2018),
	## Nature 554: 183-188. Available from:
	## https://www.nature.com/articles/nature25479#s1
	##
	## combines a boxplot (or violin) with the raw data, by splitting each
	## category location in two (box on left, raw data on right)


	## call required packages