git clone git@github.com: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) |
| [alias] | |
| # Delete any branches that have been merged except master, development and the current branch | |
| cleanup = !git remote prune origin && git branch --merged | egrep -v '(^\\*|master|develop)' | xargs git branch -d |
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() { |