| library(shiny) | |
| library(dplyr) | |
| library(lubridate) | |
| # Load libraries and functions needed to create SQLite databases. | |
| library(RSQLite) | |
| library(RSQLite.extfuns) | |
| saveSQLite <- function(data, name){ | |
| path <- dplyr:::db_location(filename=paste0(name, ".sqlite")) |
| # adapted from http://is-r.tumblr.com/post/36660147376/dominant-color-palettes-with-k-means | |
| library(ggplot2) | |
| library(reshape2) | |
| library(EBImage) | |
| imageLoader <- function(lib) { | |
| rd <- readImage(lib) | |
| longImage <- melt(rd) | |
| rgbImage <- reshape(longImage, timevar="Var3", idvar=c("Var1", "Var2"), direction="wide") |
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: |
Attention: the list was moved to
https://github.com/dypsilon/frontend-dev-bookmarks
This page is not maintained anymore, please update your bookmarks.
| max_plots <- 5 | |
| ui <- fluidPage( | |
| headerPanel("Dynamic number of plots"), | |
| sidebarPanel( | |
| sliderInput("n", "Number of plots", value=1, min=1, max=5) | |
| ), |
| data_sets <- c("mtcars", "morley", "rock") | |
| shinyServer(function(input, output) { | |
| # Drop-down selection box for which data set | |
| output$choose_dataset <- renderUI({ | |
| selectInput("dataset", "Data set", as.list(data_sets)) | |
| }) | |
| # Check boxes |
| license: gpl-3.0 | |
| redirect: https://observablehq.com/@d3/hierarchical-bar-chart |
| license: gpl-3.0 | |
| redirect: https://observablehq.com/@d3/indented-tree |
