inst/examples/uploadmapping1/ui.R

In uc-bd2k/shinyLi: LINCS functions for Shiny

library(shiny)
library(shinyLi)
   fluidPage(
       mainPanel(
         fileInput('uploadData', 'Import data', multiple = FALSE, accept = NULL, width = NULL)
         , actionLink('loadExample', 'Load Example')
#          , fluidRow(
#              column(3, DT::dataTableOutput("coltable"))
#          )
#          , fluidRow(
#            DT::dataTableOutput("dataset")
#          )
         , liDoseResponseGrid(anchorId="dose-response-grid-main")
	   # title("Examples")
          # , textInput("datasetScatterplot", NULL, value = "slisca/scatterplot_data.tsv")
          # , actionButton("goButtonScatterplot", "Go")
          # , liScatterplot(anchorId="main")
	        # , actionButton("goButtonCurves", "Go")
          # , liDoseResponseCurves(anchorId="dose-response-curves-main")
          #  , textInput("datasetGrid", NULL, value = "slisca/dose_response_data.tsv")
          # , actionButton("goButtonGrid", "Go")
          # , liDoseResponseGrid(anchorId="dose-response-grid-main")
     , width=12)
)