diff --git a/R/api.R b/R/api.R
index 7735b599ca518a2ce690491252ec2121ffa294e0..9e6dd16f62b48a09cb1961269fa83f1bb6c1b816 100644
--- a/R/api.R
+++ b/R/api.R
@@ -46,8 +46,7 @@ gen_base_ftab <- function(m) {
 }
 
 ##' @export
-load_inputs <- function(m) {
-    m$input$tab$mzml <- file2tab(m$conf$data)
+load_compound_input <- function(m) {
     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))
@@ -58,6 +57,18 @@ load_inputs <- function(m) {
     m
 }
 
+load_data_input <- function(m) {
+    m$input$tab$mzml <- file2tab(m$conf$data)
+    m
+}
+
+##' @export
+load_inputs <- function(m) {
+    m <- load_compound_inputs(m)
+    m <- load_data_input(m)
+    m
+}
+
 ##' @export
 mk_comp_tab <- function(m) {
     message("Started assembling the lists of knowns and unknowns into the `comprehensive' table.")