Commit fd9a95ca authored by jlopez's avatar jlopez
Browse files

clean space

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