Shiny Widget Example

hist_widget.R

library(shiny)

hist_widget <- function() { 
  shinyApp(
    ui = fluidPage(
      sidebarLayout(
        sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)),
        mainPanel(plotOutput("hist"))
      )
    ), 
    server = function(input, output) {
      output$hist <- renderPlot( 
        hist(faithful[[2]], breaks = input$n,
             col = "skyblue", border = "white") 
      )
    }
  )
}

hist_widget()

tsne_widget.R

library(shiny)
library(ggplot2)
library(plotly)

test <- readRDS("tsnedf.rds")

tsne_widget <- function(dataset) {
  clusterChoice <- colnames(dataset)[3:ncol(dataset)]
  dataset$Sample <- rownames(dataset)
  shinyApp(
    ui = fluidPage(
      sidebarLayout(
        sidebarPanel(selectInput("colorClusters", "Color Clusters By", clusterChoice)),
        mainPanel(plotlyOutput("clusterPlot"))
      )
    ), 
    server = function(input, output) {
      output$clusterPlot <- renderPlotly({
        ggplotly(ggplot(dataset, aes(X1, X2, label=Sample, color=dataset[,input$colorClusters]))+geom_point())
      })
    }
  )
}

tsne_widget(test)

tsnedf.rds