Skip to content

Instantly share code, notes, and snippets.

View cecilialee's full-sized avatar

Cecilia Lee cecilialee

44 followers · 85 following
  • Hong Kong
View GitHub Profile
@cecilialee
cecilialee / assign_multiple_variables.py
Last active February 19, 2018 07:03
Assign multiple variables in loop in Python. #python
d = {}
for x in range(1, 10):
d["string{0}".format(x)] = "Hello"
d["string5"]
#'Hello'
d
#{'string1': 'Hello',
# 'string2': 'Hello',
@cecilialee
cecilialee / assign_multiple_variables.R
Last active February 19, 2018 07:04
Assign multiple variables in loop in R. #r
var_names <- paste0("p", 1:10)
values <- seq(100, 1000, by = 100)
for (i in seq_along(var_names)) assign(var_names[[i]], values[[i]])
mget(var_names)
# $p1
# [1] 100
#
# $p2
@cecilialee
cecilialee / unnest_dataframe.R
Created February 19, 2018 07:33
Unnest nested dataframes in R. #r
unnest_dataframes <- function(x) {
y <- do.call(data.frame, x)
if ("data.frame" %in% sapply(y, class)) unnest_dataframes(y)
y
}
@cecilialee
cecilialee / get_airtable_tables.R
Last active February 19, 2018 08:26
Get all Airtable tables with API in R. #r #jsonlite #httr
library(tidyverse)
library(httr)
library(jsonlite)
# API set up
api <- "https://api.airtable.com/v0/apphVdH23b9rXFd1p/"
api_key <- "keyL1Ja4L6pg3Uu9Q" # fake api_key
tables <- c("products", "brands", "stores")
# GET request
@cecilialee
cecilialee / input_module.R
Last active February 20, 2018 10:19
Return reactiveValues in Shiny module. #r #shiny
inputModuleUI <- function(id){
ns <- NS(id)
wellPanel(textInput(ns('text1'), "First text"),
textInput(ns('text2'), "Second text"))
}
inputModule <- function(input, output, session){
vals <- reactiveValues()
observe({vals$text1 <- input$text1})
observe({vals$text2 <- input$text2})
@cecilialee
cecilialee / return_module.R
Created February 20, 2018 10:28
Store the returned values from a module in reactiveValues in Shiny. #r #shiny
# UI ==========================================================================
returnUI = function(id) {
ns <- NS(id)
tagList(
textInput(ns("txt"), "Write something")
)
}
@cecilialee
cecilialee / select_today.sql
Created February 22, 2018 07:38
Select where date is today in SQL. #sql
select *
from my_status
where date(enter_time) = date(now());
@cecilialee
cecilialee / load_every_file.R
Created February 22, 2018 10:41
Load every file in a folder in Shiny. #r #shiny
library(shiny)
for (file in list.files("modules", full.names = TRUE)) source(file)
@cecilialee
cecilialee / create_circle.js
Last active February 22, 2018 23:41
Create a circle in D3. #javascript #d3
// create y in linear scale
var y = d3.scaleLinear().domain([15, 90]).range([250, 0]);
// create x in log scale
var x = d3.scaleLog().domain([250, 100000]).range([0, 600]);
// create r in radius scale
var r = d3.scaleSqrt().domain([52070, 1380000000]).range([10, 50]);
// append circle and attr to svg
@cecilialee
cecilialee / dbDisconnect_onSessionEnded.R
Last active February 23, 2018 07:47
Disconnect database on session ended in Shiny. #r #shiny #dbi
library(shiny)
library(DBI)
library(RPostgreSQL)
ui = basicPage(
)
server = function(input, output, session) {
con <- dbConnect(PostgreSQL(),
dbname = "myDB",