This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
I am looking for an enthusiastic self-motivated junior data programmer or student to help with my projects. | |
You are needed to work on an exciting backlog of innovation projects with me and the rest of the team at IIH Nordic. | |
Ideally you will be knowledgeable in R, Python, JS, Google Cloud and experience working with digital marketing APIs, | |
but if you only know one of those and are willing to learn that's a good start - that’s how I started. | |
Please be ready to show some practical experience, thoughts or projects based on the above. | |
IIH Nordic offers a 4 day workweek and exciting prospects. | |
Will consider remote or based out of our office in Copenhagen, Denmark. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<html> | |
<head> | |
<script src="https://apis.google.com/js/api.js"></script> | |
<script> | |
function start() { | |
gapi.client.init({ | |
'apiKey': 'XXXX', | |
'discoveryDocs': ['https://language.googleapis.com/$discovery/rest?version=v1beta1'] | |
}).then(function() { | |
return gapi.client.language.documents.analyzeSentiment({ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(googleAnalyticsR) | |
library(xml2) | |
library(dplyr) | |
ga_auth() | |
## date range of URLs to test | |
dates <- c(Sys.Date() - 30, Sys.Date()) | |
##GA View ID |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#' Email a user a report is ready | |
#' | |
#' Requires an account at Mailgun: https://mailgun.com | |
#' Pre-verification can only send to a whitelist of emails you configure | |
#' | |
#' @param email Email to send to | |
#' @param mail_message Any extra info | |
#' | |
#' @return TRUE if successful email sent | |
#' @import httr |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
snippet module | |
#' ${1:module_name} UI | |
#' | |
#' Shiny Module for use with \link{${1:module_name}} | |
#' | |
#' @param id Shiny id | |
#' | |
#' @return Shiny UI | |
${1:module_name}UI <- function(id){ | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
sudo: required | |
dist: trusty | |
group: edge | |
language: ruby | |
services: | |
- docker | |
cache: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(shiny) | |
dynamicSelectInput <- function(id, label, multiple = FALSE){ | |
ns <- shiny::NS(id) | |
shiny::selectInput(ns("dynamic_select"), label, | |
choices = NULL, multiple = multiple, width = "100%") | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(shiny) | |
#' Safe subset | |
#' | |
#' @param df Dataframe | |
#' @param column One name of column to subset within | |
#' @param subset Vector of entries in column to subset to | |
#' | |
#' If column not in df, returns back the df | |
safeSubset <- function(df, column, subset){ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Rscript -e "setwd('/srv/shiny-server/xxxxx/'); zz<-file('rscript.log', open='wt');sink(zz, type = 'm'); rmarkdown::render('getData.Rmd')" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# devtools::install_github("hrbrmstr/vegalite") | |
library(vegalite) | |
library(htmltools) | |
dat <- jsonlite::fromJSON('[ | |
{"a": "A","b": 28}, {"a": "B","b": 55}, {"a": "C","b": 43}, | |
{"a": "D","b": 91}, {"a": "E","b": 81}, {"a": "F","b": 53}, | |
{"a": "G","b": 19}, {"a": "H","b": 87}, {"a": "I","b": 52} | |
]') |