Skip to content
Snippets Groups Projects
Unverified Commit 8c9348fc authored by Todor Kondic's avatar Todor Kondic
Browse files

Replace rv_conf2conf with rv_lst2lst

* R/shiny-ui-base.R(rv_conf2conf,rv_lst2lst): Rename rv_conf2conf to
  rv_lst2lst and make it universal. Instead of acting on the fixed set
  of names expected inside conf, crawl through the nested list
  recursively and to the smart thing.
parent 8bf538dc
No related branches found
No related tags found
No related merge requests found
......@@ -89,10 +89,11 @@ txt_file_input <- function(inputId,input,fileB,label,volumes) {
}
rv_conf2conf <- function(rv) {
x <- shiny::reactiveValuesToList(rv$conf)
x$compounds<-shiny::reactiveValuesToList(rv$conf$compounds)
x
rv_lst2lst <- function(rv) {
## Take reactive values structure and convert them to nested
## lists.
if (class(rv) != "reactivevalues")
rv else lapply(shiny::reactiveValuesToList(rv),rv_lst2lst)
}
conf2rv_conf <- function(conf,rv) {
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment