#' Simple function to format HTML output to pass back to shiny
#'
#' @description{
#' output_HTML Called by the server.R script to send HTML output to screen
#' }
#'
#' @export
#'
#' @examples
#'
output_HTML <- function(){
output$total_profit <- renderUI({
HTML(paste0("Total return: $", print_money(tot_profit)))
})
output$avg_prof_trade <- renderUI({
HTML(paste0("Average return/trade: $", print_money(round(avg_profit, digits = 2))))
})
output$avg_days <- renderUI({
HTML(paste0("Average # days held: ", round(avg_days, digits = 0)))
})
output$avg_prof_day <- renderUI({
HTML(paste0("Average return/day: $", print_money(round(avg_prof_day, digits = 2))))
})
output$percent_winners <- renderUI({
HTML(paste0("Percent winners: ", percent_winners))
})
output$exit.profit.target <- renderUI({
HTML(paste0("Profit target: ", exit_profit_target))
})
output$exit.loss.limit <- renderUI({
HTML(paste0("Loss limit: ", exit_loss_limit))
})
output$exit.expiration <- renderUI({
HTML(paste0("Expiration: ", exit_expiration))
})
output$exit.gamma.risk <- renderUI({
HTML(paste0("Gamma risk: ", exit_gamma_risk))
})
# output$exit.earnings <- renderUI({
# HTML(paste0("Earnings: ", exit.earnings))
# })
output$max_loss <- renderUI({
HTML(paste0("Max loss: $", print_money(maximum_loss)))
})
output$max_win <- renderUI({
HTML(paste0("Max win: $", print_money(max_win)))
})
# output$avg.exit.roc <- renderUI({
# HTML(paste0("Avg Exit ROC: ", round(avg.exit.roc, digits = 2), "%"))
# })
output$avg_entry_margin <- renderUI({
HTML(paste0("Avg Entry Margin: $", print_money(round(avg_entry_margin, digits = 2))))
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.