Add support for Bioplex MFI outputs, including guessing the type of machine...

SHINY_APP.R

@@ -56,7 +56,7 @@ ui <- fluidPage(
              p("The Pv SeroTAT Tool has been developed by Ivo Mueller's research groups at the Institut Pasteur and Walter and Eliza Hall Institut of Medical Research. The tool is a patented diagnostic test based on validated serological markers of recent",tags$em("Plasmodium vivax")," infections and hypnozoite carriage. The tool uses machine learning classification algorithms (Random Forest (RF) and Support Vector Machine (SVM)) to predict sero-positivity with varying performance."),
              p("Validation of this tool using Random Forest can be found in the", a("Nature Medicine Publication", href="https://www.nature.com/articles/s41591-020-0841-4")),
              p("Please contact on how to cite this tool in publications."),
-             p(em("Follow steps 1 - 6 to process Luminex MFI or Relative Antibody Unit (RAU) data and run the diagnostic test.")),
+             p(em("Follow steps 1 - 6 to process Luminex/BioPlex MFI or Relative Antibody Unit (RAU) data and run the diagnostic test.")),
              hr()),
     tabPanel("Biomarkers of exposure",
              br(),
@@ -216,7 +216,7 @@ ui <- fluidPage(
                               fileInput("MFI_file",
                                         h5("4.1 Load raw MFI file (required)"),
                                         accept = c(".csv", ".xlsx")),
-                              helpText("Note: a (.csv) or (.xlsx) file of raw outputs of the Luminex-MagPix machine.
+                              helpText("Note: a (.csv) or (.xlsx) file of raw outputs of the Luminex-MagPix or BioPlex machine.
                                        If you encounter errors when loading a (.csv) file, convert it to (.xlsx) in Excel and load the (.xlsx) file instead.")),
              conditionalPanel("input.radio_data == 1",
                               textInput("MFI_num_antigens",