--All,I know have my shiny app working at least I have an idea to lay out the app and pass information around. So, below is the code to shiny. Everything in the nominal example seems to be working okay. BondLab can be installed from my github site if you want to run the app. My question is as follows. Before moving on to graphics some tabular output is required. For example, MBS.data is a S4 object containing slots with cusip information while PassThrough.1 is a S4 class of analytic results. The reactive part is worked-out (thanks Joe) . In the Bond Details tab (it is reactive) I would like to have a table or something likeBond Name: bondlabMBS4Cusip : xxxxxxFirst Pmt Date: mm/dd/yyyyLast Pmt Date: mm/dd/yyyy... some other stuffIn the yield table tab I would like to do the following (the yield table is reactive). Any suggestions, this is my first day on shiny and I have not seen any examples I can follow doing what I would like. Is this an exercise in java and html or can I accomplish this with the current widgets and shiny capabilities.CPR1 CPR2Yield xx.xx xx.xxAvg. LifeDurationMod. DurationFirst Pmt DateLast Pmt DateSpread to curveZ-V spreadlibrary(BondLab)shinyServer(function(input,output){})})shinyServer(function(input, output) {original.bal = input$OrigFace,price = 105,trade.date = "01-10-2013",settlement.date = "01-13-2013",scenario.set = "NC",PrepaymentAssumption = "CPR",CPR = input$CPR1)})output$text1 <- renderText({PassThrough.1()@YieldToMaturity * 100})output$text2 <- renderText({PassThrough.1()@WAL})})shinyUI(fluidPage(titlePanel("Bond Lab Mortgage Analytics"),sidebarLayout(sidebarPanel(helpText("Mortgage Analytics"),textInput("bond.id",label = "Cusip"),numericInput("OrigFace",label = "Original Face",value = NULL,min = 1000,max = 1000000),numericInput("Price",label = "Price",value = 100,min = 0,max = 200,step = 1/128),dateInput("Trade.Date",label = "Trade Date"),dateInput("Settlement.Date",label = "Settlement Date" )),mainPanel(tabsetPanel(tabPanel("Bond Details"),tabPanel("Yield Table",fluidRow(column(1, numericInput("CPR1", label = "CPR", value = 6, min = 0, max = 100),textOutput("text1"),textOutput("text2")),column(1, offset = 2, numericInput("CPR2", label = "CPR", value = 0, min = 0 , max = 100)),column(1, offset = 2, numericInput("CPR3", label = "CPR", value = 0, min = 0, max = 100)))),tabPanel("Scenario Return Analysis"),tabPanel("Option Adjusted Spread Analysis"),tabPanel("Prepayment Analysis"))))))
You received this message because you are subscribed to the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discus...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/5d3921ee-ec49-4ca3-8f96-6ac9601cf4d5%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/02c0b4fa-e50e-41f8-8925-5bb71d627fbb%40googlegroups.com.