Commit 7bfb667d authored by Stephanie's avatar Stephanie

ToDo Comments

parent 3aa50746
...@@ -52,7 +52,7 @@ server <- function(input, output) { ...@@ -52,7 +52,7 @@ server <- function(input, output) {
lastCoCoQuest lastCoCoQuest
}) })
# Getting #TODO: Getting HEADER out of json to select it
output$input_hist_x <- renderUI({ output$input_hist_x <- renderUI({
selectInput("in1", "x-axis:", as.list(coconut.df),multiple=TRUE, selectize=TRUE) selectInput("in1", "x-axis:", as.list(coconut.df),multiple=TRUE, selectize=TRUE)
}) })
......
...@@ -65,7 +65,6 @@ ui <- dashboardPage( ...@@ -65,7 +65,6 @@ ui <- dashboardPage(
tabItem(tabName = "controlls", tabItem(tabName = "controlls",
h2("Controlls here:"), h2("Controlls here:"),
#TODO: SelectInput --> Get data out of loaded json to select it
checkboxInput("histogram", "Histogram", FALSE), checkboxInput("histogram", "Histogram", FALSE),
uiOutput("input_hist_x"), uiOutput("input_hist_x"),
uiOutput("input_hist_y"), uiOutput("input_hist_y"),
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment