Commit 9aa6da52 authored by Jean-Karim Heriche's avatar Jean-Karim Heriche

Start one-variable plot with random order of points

parent 3d2416a7
......@@ -415,7 +415,7 @@ server <- function(input, output, session) {
quote = input$quote,
stringsAsFactors = FALSE)
rv$data[,"id"] <- c(1:nrow(rv$data)) # Used to uniquely identify data points
rv$data[,"idx"] <- c(1:nrow(rv$data)) # Used to reorder data points
rv$data[,"idx"] <- sample(c(1:nrow(rv$data))) # Used to reorder data points
rv$colsToHide <- c(rv$colsToHide, match("id", colnames(rv$data)), match("idx", colnames(rv$data)))
rv$currentRows <- c(1:nrow(rv$data))
},
......
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