Commit fd9a95ca authored by jlopez's avatar jlopez
Browse files

clean space

parent 9f9dcc83
...@@ -34,10 +34,6 @@ UI <- dashboardPage( ...@@ -34,10 +34,6 @@ UI <- dashboardPage(
server <- function( input, output, session) { server <- function( input, output, session) {
tutu <<- NULL
listM <<- c()
source("./server/opt_home.R", local=TRUE) source("./server/opt_home.R", local=TRUE)
} }
......
...@@ -69,8 +69,6 @@ observeEvent(input$filterMosquito, { ...@@ -69,8 +69,6 @@ observeEvent(input$filterMosquito, {
maxM <- max(findM$time) maxM <- max(findM$time)
newt_uuid <- c() newt_uuid <- c()
if(length(uuid) > 1) { if(length(uuid) > 1) {
...@@ -83,18 +81,12 @@ observeEvent(input$filterMosquito, { ...@@ -83,18 +81,12 @@ observeEvent(input$filterMosquito, {
} }
} }
FilterUUID <- unique(c(newt_uuid, listM)) FilterUUID <- unique(c(newt_uuid, listM))
updateSelectInput(session, "pathMosquito",
label = "Construct path mosquito",
updateSelectInput(session, "pathMosquito", choices = FilterUUID,
label = "Construct path mosquito", selected = listM)
choices = FilterUUID,
selected = listM)
} else { } else {
updateSelectInput(session, "pathMosquito", updateSelectInput(session, "pathMosquito",
label = "Construct path mosquito", label = "Construct path mosquito",
...@@ -131,13 +123,10 @@ observeEvent(input$filterMosquito, { ...@@ -131,13 +123,10 @@ observeEvent(input$filterMosquito, {
if(uuid[index] %in% vertical_id) { if(uuid[index] %in% vertical_id) {
p1 <- p1 +geom_vline(aes(xintercept = time), size=0.5, mosquito, linetype = "dashed", colour = color_mosquito[index]) p1 <- p1 +geom_vline(aes(xintercept = time), size=0.5, mosquito, linetype = "dashed", colour = color_mosquito[index])
} }
} }
} }
} }
p1 <- p1 + scale_y_continuous(breaks=uuid) p1 <- p1 + scale_y_continuous(breaks=uuid)
p1 p1
......
Supports Markdown
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