fbreitwieser

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

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

library(shiny)
library(DT)

shinyApp(
  ui <- fluidPage(
    DT::dataTableOutput("data")
  ),

  server <- function(input, output) {

fbreitwieser

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

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

library(shiny)
library(d3heatmap)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput("obs", "Number of rows:", min = 10, max = 100, value = 50)
    ),
    mainPanel(uiOutput("hm_o"))
  )