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)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.