diff --git a/R/shiny-ui-config.R b/R/shiny-ui-config.R
index c0e3332622e16c95b04aa94751345f3765fe49fa..cf718c4cc8b1b35fda1cb90c42641b5a23652b72 100644
--- a/R/shiny-ui-config.R
+++ b/R/shiny-ui-config.R
@@ -150,6 +150,18 @@ react_conf_f <- function(input,output,session,rv,rf) {
         message('Relative project path is: ',res)
         res
     })
+
+    rf$get_compounds <- react_f({
+        ## Consult the input text boxes for any files, then load the
+        ## compound tables.
+        rv$conf$compounds <- shiny::reactiveValues(known=input$known,
+                                                   unknown=input$unknown,
+                                                   sets=input$sets)
+        rv <- load_compound_input(rv)
+        rv$input$tab <- lst2rv_lst(rv$input$tab)
+        rv
+    })
+
     
     rf
 }