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 |
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") |
<i>{{.ReadingTime}}{{if gt (mul .ReadingTime 60) 60}}minutes{{else}}minutes or less{{end}} reading</i>
formula
(add .WordCount 212) 213
.ReadingTime
# load package | |
library(ggplot2) | |
# write function | |
label_facets <- function(string){ | |
len <- length(string) | |
string = paste('(', letters[1:len], ') ', string, sep = '') | |
return(string) | |
} |