From 339a0b0ef0e66388b361e0d3d0295ecd3a08ea8a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Thu, 7 May 2020 12:39:17 +0200
Subject: [PATCH] Observer input$restoreConfB: remove unnecesary conversion
* R/shiny-ui-config.R <input$restoreConfB>: list2rev call removed.
---
R/shiny-ui-config.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/shiny-ui-config.R b/R/shiny-ui-config.R
index d3c1602..576de0f 100644
--- a/R/shiny-ui-config.R
+++ b/R/shiny-ui-config.R
@@ -196,7 +196,7 @@ server_conf <- function(input,output,session,rv,rf,roots) {
obsrv_e(input$restoreConfB,{
fn <- shinyFiles::parseFilePaths(roots=roots$get,input$restoreConfB)[["datapath"]]
assert(file.exists(fn), msg="The file is unreadable.")
- rv$m$conf <- list2rev(read_conf(fn))
+ rv$m$conf <- read_conf(fn)
for (nm in names(rv$m$conf$compounds)) {
shiny::updateTextInput(session=session,
inputId=nm,
--
GitLab