git clone [email protected]:YOUR-USERNAME/YOUR-FORKED-REPO.git
cd into/cloned/fork-repo
git remote add upstream git://github.com/ORIGINAL-DEV-USERNAME/REPO-YOU-FORKED-FROM.git
git fetch upstream
git clone [email protected]:YOUR-USERNAME/YOUR-FORKED-REPO.git
cd into/cloned/fork-repo
git remote add upstream git://github.com/ORIGINAL-DEV-USERNAME/REPO-YOU-FORKED-FROM.git
git fetch upstream
People
![]() :bowtie: |
😄 :smile: |
😆 :laughing: |
---|---|---|
😊 :blush: |
😃 :smiley: |
:relaxed: |
😏 :smirk: |
😍 :heart_eyes: |
😘 :kissing_heart: |
😚 :kissing_closed_eyes: |
😳 :flushed: |
😌 :relieved: |
😆 :satisfied: |
😁 :grin: |
😉 :wink: |
😜 :stuck_out_tongue_winking_eye: |
😝 :stuck_out_tongue_closed_eyes: |
😀 :grinning: |
😗 :kissing: |
😙 :kissing_smiling_eyes: |
😛 :stuck_out_tongue: |
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") { |
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) |
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:
#!/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 |
# load package | |
library(ggplot2) | |
# write function | |
label_facets <- function(string){ | |
len <- length(string) | |
string = paste('(', letters[1:len], ') ', string, sep = '') | |
return(string) | |
} |
<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() { |
library(tidyverse) | |
family <- list( | |
list( | |
"name" = "Bob", | |
"age" = 46, | |
"mother" = NA, | |
"father" = "Big Bob", | |
"siblings" = list(NA), | |
"children" = list("Tina", "Gene", "Louise"), |