In erblast/oetteR: Collection of personal R functions

require(tidyverse)
require(shiny)

data = mtcars

shiny::numericInput('height'
                    , 'height'
                    , min = 100
                    , max = 2000
                    , value = 300)

f = function(data){


  renderPlot( height = function(){
      input$height
    } , expr = {

    ggplot(data) +
      geom_point( aes(x = disp, y = cyl))

  })

}

f(data)

erblast/oetteR documentation built on May 27, 2019, 12:11 p.m.