inst/examples/rhandsontable_portfolio/ui.R

In jrowen/rhandsontable: Interface to the 'Handsontable.js' Library

library(rhandsontable)
library(dygraphs)

shinyUI(fluidPage(
  titlePanel("130/30 Portfolio Returns"),
  fluidRow(
    column(12,
           helpText("Change the position type and weights to recalculate the ",
                    "return stream."))
  ),
  fluidRow(
    column(4,
           rHandsontableOutput("hot"),
           checkboxInput("reweight", "Reweight?")
    ),
    column(6,
           dygraphOutput("plot")
    )
  )
))