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

api: fix load_compound_input 

* R/api.R(load_compound_input): Works properly if tables are not
  truthy.
parent 891fbd4e
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 5 additions and 2 deletions
R/api.R
+ 5
− 2
View file @ 07d60f74
...@@ -48,8 +48,11 @@ gen_base_ftab <- function(m) { ...@@ -48,8 +48,11 @@ gen_base_ftab <- function(m) {
##' @export ##' @export
load_compound_input <- function(m) { load_compound_input <- function(m) {
if (shiny::isTruthy(m$conf$compounds$known)) m$input$tab$known <- file2tab(m$conf$compounds$known) m$input$tab$known <- if (shiny::isTruthy(m$conf$compounds$known))
if (shiny::isTruthy(m$conf$compounds$unknown)) m$input$tab$unknown <- file2tab(m$conf$compounds$unknown) 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$setid <- read_setid(m$conf$compounds$sets,
m$input$tab$known, m$input$tab$known,
m$input$tab$unknown) m$input$tab$unknown)
......
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