Permalink
Browse files

ok

Signed-off-by: systematicinvestor <thesystematicinvestor@gmail.com>
  • Loading branch information...
1 parent bbcbc63 commit 3e27330c4ba1031b8d14d2d079ace27be27535ff @systematicinvestor committed Mar 1, 2013
View
@@ -47,7 +47,7 @@ tableColor <- function(data, header.col='LightGray', row.col='yellow', negative.
}
# get HTML table
- temp = reactiveTable(function() data, add.to.row=add.to.row, ...)
+ temp = renderTable(data, add.to.row=add.to.row, ...)
temp = temp()
# negative numbers
@@ -21,7 +21,7 @@ shinyUI(pageWithSidebar(
tabPanel("Main",
h3("Big January", align="center"),
- plotOutput("seasonalityPlot", height="100%"),
+ plotOutput("seasonalityPlot"),
tableOutput("seasonalityTable"),
downloadButton("downloadReport", "Download Report"),
View
@@ -20,13 +20,13 @@ shinyUI(pageWithSidebar(
mainPanel(
tabsetPanel(
tabPanel("Main",
- plotOutput("strategyPlot", height="100%"),
+ plotOutput("strategyPlot"),
br(),
tableOutput("sidebysideTable"),
h4("Annual Perfromance"),
tableOutput("annualTable"),
h4("Transition Map"),
- plotOutput("transitionPlot", height="100%"),
+ plotOutput("transitionPlot"),
h4("Last 20 Trades"),
tableOutput("tradesTable"),
downloadButton("downloadReport", "Download Report"),
View
@@ -17,7 +17,7 @@ shinyUI(pageWithSidebar(
mainPanel(
tabsetPanel(
tabPanel("Main",
- plotOutput("stockPlot", height="100%"),
+ plotOutput("stockPlot"),
HTML('<table border=0 width="100%"><tr bgcolor="#f5f5f5"><td>'),
div(style="width:80%;max-width:300px;",
sliderInput(inputId="dateRange", label=strong('Date Range(# days): '), min=100, max=5000, value=2000, step=100)
View
@@ -17,7 +17,7 @@ shinyUI(pageWithSidebar(
mainPanel(
tabsetPanel(
tabPanel("Main",
- plotOutput("stockPlot", height="100%"),
+ plotOutput("stockPlot"),
HTML('<table border=0 width="100%"><tr bgcolor="#f5f5f5"><td>'),
div(style="width:80%;max-width:300px;",
sliderInput(inputId="dateRange", label=strong('Date Range(# days): '), min=100, max=2000, value=2000, step=50)
@@ -24,13 +24,13 @@ shinyUI(pageWithSidebar(
mainPanel(
tabsetPanel(
tabPanel("Main",
- plotOutput("strategyPlot", height="100%"),
+ plotOutput("strategyPlot"),
br(),
tableOutput("sidebysideTable"),
h4("Annual Perfromance"),
tableOutput("annualTable"),
h4("Transition Map"),
- plotOutput("transitionPlot", height="100%"),
+ plotOutput("transitionPlot"),
h4("Last 20 Trades"),
tableOutput("tradesTable"),
downloadButton("downloadReport", "Download Report"),
View
BIN sit.gz
Binary file not shown.
View
Binary file not shown.

0 comments on commit 3e27330

Please sign in to comment.