From 07d60f7427a71e3ee7da532b64a44cb7d72eca12 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Mon, 11 May 2020 07:49:50 +0200
Subject: [PATCH] api: fix load_compound_input
* R/api.R(load_compound_input): Works properly if tables are not
truthy.
---
R/api.R | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/R/api.R b/R/api.R
index 000e42c..85b57d9 100644
--- a/R/api.R
+++ b/R/api.R
@@ -48,8 +48,11 @@ gen_base_ftab <- function(m) {
##' @export
load_compound_input <- function(m) {
- if (shiny::isTruthy(m$conf$compounds$known)) m$input$tab$known <- file2tab(m$conf$compounds$known)
- if (shiny::isTruthy(m$conf$compounds$unknown)) m$input$tab$unknown <- file2tab(m$conf$compounds$unknown)
+ m$input$tab$known <- if (shiny::isTruthy(m$conf$compounds$known))
+ file2tab(m$conf$compounds$known) else EMPTY_KNOWN
+ m$input$tab$unknown <- if (shiny::isTruthy(m$conf$compounds$unknown))
+ file2tab(m$conf$compounds$unknown) else EMPTY_UNKNOWN
+
m$input$tab$setid <- read_setid(m$conf$compounds$sets,
m$input$tab$known,
m$input$tab$unknown)
--
GitLab