trestletech

library(shiny)

shinyServer(function(input, output, session) {

  output$summary <- renderText({
    ls(env=session$request)
  })
  
  output$headers <- renderUI({
    selectInput("header", "Header:", ls(env=session$request))

trestletech

#!/bin/bash                                                                        
                                                                                   
echo "Getting list of Availability Zones"                                          
all_regions=$(aws ec2 describe-regions --output text --query 'Regions[*].[RegionName]' | sort)
all_az=()                                                                          
                                                                                   
while read -r region; do                                                           
  az_per_region=$(aws ec2 describe-availability-zones --region $region --query 'AvailabilityZones[*].[ZoneName]' --output text | sort)
                                                                                   
  while read -r az; do                                                             

trestletech

library(shiny)

# Create a reactive object here that we can share between all the sessions.
vals <- reactiveValues(count=0)

shinyServer(function(input, output, session) {
  # Increment the number of sessions when one is opened.
  # We use isolate() here to:
  #  a.) Provide a reactive context

trestletech

library(shiny)
library(ggplot2)

# Get the current day of the month
dom <- 25

# Define the target for salespeople in our organization.
salesTarget <- 15000

# Set the seed so we always get the same data.

trestletech

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"))

trestletech

---
title: "hidden"
output: html_document
---

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>.

When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

```{r}

trestletech

library(shiny)

shinyServer(function(input, output, session) {
  output$shinyVer <- reactive({
      packageVersion("shiny")
    })

  output$rmarkdownVer <- reactive({
      packageVersion("rmarkdown")
    })

trestletech

Bioconductor Shiny Example #1

Simple app comparing the expression of genes between Tumor and Normal tissue.

This is an example Shiny app featuring some basic analysis of Ovarian Cancer gene expression data collected on the Affymetrix U133A platform. We filter the available genes and samples down to a much smaller matrix to make reproducibility simpler for a broader audience. The R code involved in sampling the data is available in this Gist as an R-Markdown file, and the sampled data are available in this Gist as Rds files.

To run the application, install shiny (install.packages("shiny")) then run the following command:

library(shiny)

trestletech

---
title: "Integration Testing in Shiny"
output: github_document
editor_options:
  chunk_output_type: console
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

trestletech

Bioconductor Shiny Example #2

A demonstration of Shiny's text widget support.

This is an example Shiny app featuring some basic analysis of Ovarian Cancer gene expression data collected on the Affymetrix U133A platform. We filter the available genes and samples down to a much smaller matrix to make reproducibility simpler for a broader audience. The R code involved in sampling the data is available in this Gist as an R-Markdown file, and the sampled data are available in this Gist as Rds files.

To run the application, install shiny (install.packages("shiny")) then run the following command:

library(shiny)