ColinFay

library(tidyverse)
files <- list.files("../open-data/", pattern = "^2017", full.names = TRUE)
full <- map_df(files, read_csv)
dplyr::glimpse(full)

# With names 

files <- list.files("../open-data/", pattern = "^2017", full.names = TRUE) %>% 
  set_names(basename(.))
full <- map_df(files, read_csv, .id = "file")

padpadpadpad

# load package
library(ggplot2)

# write function
label_facets <- function(string){
  len <- length(string)
  string = paste('(', letters[1:len], ') ', string, sep = '')
  return(string)
}

Quiri

library(shiny)

shinyServer(function(input, output, session) {
	
	observe({
		if(input$tv == "All, but C") {
			updateCheckboxGroupInput(session, "check2", label = NULL, choices = NULL, 
				selected = c("A", "B", "D", "E"))
		}
		if(input$tv == "Only C or D") {

primaryobjects

library(markovchain)

text <- readLines('text.txt')
text <- text[nchar(text) > 0]

text <- gsub('.', ' .', text, fixed = TRUE)
text <- gsub(',', ' ,', text, fixed = TRUE)
text <- gsub('!', ' !', text, fixed = TRUE)
text <- gsub('(', '( ', text, fixed = TRUE)
text <- gsub(')', ' )', text, fixed = TRUE)

mrecos

library(shiny)
library(shinydashboard)
# devtools::install_github("nik01010/dashboardthemes")
library(dashboardthemes)
library(tidyverse)
library(sf)
library(leaflet)
library(usmap) # us counties and states as table
library(leaflet)

dublado

<i>{{.ReadingTime}}{{if gt (mul .ReadingTime 60) 60}}minutes{{else}}minutes or less{{end}} reading</i>

formula
(add .WordCount 212) 213

.ReadingTime

mpjdem

library(data.table)
library(keypress)

## Create the universe. Well, sort of.
dims <- c(49, 49)
universe <- CJ(x = seq(dims[1]), y = seq(dims[2]), k = 1, cell = FALSE)
universe[, cell := sample(c(FALSE, TRUE), prod(dims), TRUE)]

## Neighbourhood to consider for each cell
neighbours <- CJ(xd = -1:1, yd = -1:1, k = 1)[xd != 0 | yd != 0]

ivyleavedtoadflax

Connecting to MS SQL Server using RODBC

You may need to install the following libraries (if you don't already have them)

install.packages("RODBC")
install.packages("dplyr")

Load these packages

emitanaka

<script>
(function() {
  var divHTML = document.querySelectorAll(".details-open");
  divHTML.forEach(function (el) {
    var preNodes = el.getElementsByTagName("pre");
    var outputNode = preNodes[1];
    outputNode.outerHTML = "<details open class='output'><summary>Output</summary>" + outputNode.outerHTML + "</details>";
  })
})();
(function() {

moodymudskipper

makeActiveBinding("v", local({
  e <- NULL
  count <- 1
  
  function(value) {
    # increment or reinitialize counter
    exec_env <- sys.frame(-1)
    if(identical(e, exec_env)) {
      count <<- count + 1
    } else {