inst/application/ui/ui_bond_current_yield.R

tabPanel('Current Yield', value = 'tab_bond_cyield',

	fluidPage(

		includeCSS("mystyle.css"),

		fluidRow(

								column(2, offset = 2,

									numericInput(
										inputId = "bond_cyield_face_value",
										label   = "Face Value:",
										value   = 100
									)
								),

								column(2, 

									numericInput(
										inputId = "bond_cyield_price",
										label   = "Price:",
										value   = 100
									)
								)

								
							),

							fluidRow(

								column(2, offset = 2,

									numericInput(
										inputId = "bond_cyield_coupon_rate",
										label   = "Coupon Rate:",
										value   = 0.10,
										min     = 0,
										max     = 1,
										step    = 0.01
									)
								)
							),

							br(),
							br(),


							fluidRow(

								column(2, offset = 2,

									actionButton(
										inputId = "bond_cyield_submit",
										label   = "Submit",
										width   = '150px'
									),

									br()
								),

								column(2, 

									actionButton(
										inputId = "bond_cyield_reset",
										label   = "Reset",
										width   = '150px'
									),

									br()
								)

							),

							fluidRow(

					            column(4, offset =2, align = 'center',

					                br(),
					                br(),

					                verbatimTextOutput('bond_cyield_output')

					            )

							)

		
	)
)
rsquaredacademy/investorr documentation built on May 14, 2019, 2:12 p.m.