Skip to content

Instantly share code, notes, and snippets.

View fbreitwieser's full-sized avatar

Florian Breitwieser fbreitwieser

104 followers · 18 following
View GitHub Profile
@fbreitwieser
fbreitwieser / app.R
Last active April 20, 2016 18:34
Example demonstrating dynamic resizing of d3heatmap uing renderUI
library(shiny)
library(d3heatmap)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
sliderInput("obs", "Number of rows:", min = 10, max = 100, value = 50)
),
mainPanel(uiOutput("hm_o"))
)
@fbreitwieser
fbreitwieser / app.R
Last active April 20, 2016 18:34
Example demonstrating dynamic resizing of d3heatmap using renderUI inside shinydashboard
library(shiny)
library(d3heatmap)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title="resizing d3heatmap"),
dashboardSidebar(
sliderInput("obs", "Number of rows:", min = 10, max = 100, value = 50)
),
dashboardBody(
@fbreitwieser
fbreitwieser / app.R
Last active April 20, 2016 22:19
resizing d3heatmap / renderUI / shinydashboard / DT
library(shiny)
library(d3heatmap)
library(shinydashboard)
library(DT)
ui <- dashboardPage(
dashboardHeader(title="resizing d3heatmap"),
dashboardSidebar(
sliderInput("obs", "Number of rows:", min = 10, max = 100, value = 50)
),
@fbreitwieser
fbreitwieser / app.R
Created May 1, 2016 23:36
Buttons in DT (ziyasaeed in https://github.com/rstudio/DT/issues/178)
library(shiny)
library(DT)
shinyApp(
ui <- fluidPage(
DT::dataTableOutput("data")
),
server <- function(input, output) {
@fbreitwieser
fbreitwieser / getdata.js
Last active March 23, 2019 16:23
Drag and drop Shiny file upload - http://stackoverflow.com/questions/36108705/drag-and-drop-data-into-shiny-app
var datasets = {};
var dragOver = function(e) { e.preventDefault(); };
var dropData = function(e) {
e.preventDefault();
handleDrop(e.dataTransfer.files);
};
var handleDrop = function(files) {
for (var i = 0, f; f = files[i]; i++) {
var reader = new FileReader();
@fbreitwieser
fbreitwieser / get_taxid_from_ac.R
Created September 27, 2016 14:46
Get taxID for NCBI AC, as well as tax path
library(rentrez)
library(taxize)
library(XML)
get_docsum_val <- function(top, val) {
sapply(getNodeSet(top,sprintf("/eSummaryResult/DocSum/Item[@Name='%s']", val)), xmlValue)
}
list_docsum_items <- function(top) {
@fbreitwieser
fbreitwieser / get_all_viral_sequences.sh
Last active October 24, 2017 17:46
#!/bin/bash
# Possible formats: fasta, xml, gb
function dl_nuc {
FMT=$1
TERM=$2
ESEARCH_URL="https://eutils.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi"
URL_PARAMS=`curl -g "$ESEARCH_URL?db=nuccore&usehistory=y&retmax=1&retmode=json&term=$TERM" | grep -e 'querykey' -e 'webenv' | sed -e 's/^ *"querykey": "/query_key=/' -e 's/^ *"webenv": "/WebEnv=/' -e 's/",//' | paste -sd\&`
curl "https://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?db=nuccore&query_key=1&$URL_PARAMS&rettype=fasta"
@fbreitwieser
fbreitwieser / index.html
Created March 25, 2018 19:27
test paths
<!DOCTYPE html>
<svg width="960" height="960"></svg>
<script src="https://d3js.org/d3.v4.min.js"></script>
<script>
var svg = d3.select("svg"),
width = +svg.attr("width"),
height = +svg.attr("height");
svg.append("defs").append("path").attr("id","p").attr("d","M 100 200 C 200 100 300 0 400 100 C 500 200 600 300 700 200");
svg.append("use").attr("xlink:href", "#p").attr("fill", "none").attr("stroke","red");
@fbreitwieser
fbreitwieser / d3.csv
Last active March 25, 2018 23:57
Hierarchical visualizations with D3
size path
d3
d3/d3-array
d3/d3-array/threshold
d3/d3-axis
d3/d3-brush
d3/d3-chord
d3/d3-collection
d3/d3-color
d3/d3-dispatch
@fbreitwieser
fbreitwieser / d3.csv
Created March 25, 2018 23:24
Test hierD3
d3
d3/d3-array
d3/d3-array/threshold
d3/d3-axis
d3/d3-brush
d3/d3-chord
d3/d3-collection
d3/d3-color
d3/d3-dispatch