| # Create facet page slider module UI | |
| facetPageUI <- function(id) { | |
| tagList( | |
| sliderInput( | |
| NS(id, "facet_page"), | |
| "Facet page:", | |
| value = 1, | |
| min = 1, | |
| max = 2, | |
| step = 1, |
| # remotes::install_github("coolbutuseless/eventloop") | |
| Pong <- R6::R6Class( | |
| "pong", | |
| public = list( | |
| initialize = function(width=10, height=7, speed=0.02) { | |
| require(grid) | |
| private$width <- width | |
| private$height <- height |
| 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 { |
| 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) |
| 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] |
| library(tidyverse) | |
| family <- list( | |
| list( | |
| "name" = "Bob", | |
| "age" = 46, | |
| "mother" = NA, | |
| "father" = "Big Bob", | |
| "siblings" = list(NA), | |
| "children" = list("Tina", "Gene", "Louise"), |
| <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() { |
| # load package | |
| library(ggplot2) | |
| # write function | |
| label_facets <- function(string){ | |
| len <- length(string) | |
| string = paste('(', letters[1:len], ') ', string, sep = '') | |
| return(string) | |
| } |
| #!/usr/bin/env bash | |
| # fetch_nike_puls_all_activities.bash | |
| # A simple bash script to fetch all activities and metrics from NikePlus. | |
| # See `nike_plus_api.md` for the API details. | |
| readonly bearer_token="$1" | |
| if [[ -z "$bearer_token" ]]; then | |
| echo "Usage: $0 bearer_token" | |
| exit |
This information is likely to quickly become outdated when Qualtrics next changes the formatting of the QSF file. This guide was started February 2017. I hope that it is a useful introduction to understanding the contents of the QSF file that one can download from Qualtrics.
This document includes:
