uiWellReport <- function(csite, img_frmt) {
fluidRow(
shinydashboard::box(width = 3, title = "Settings",
status = "warning",
div(style = "margin-bottom:30px",
"Exclude contaminants and wells by selecting and pressing the Delete key. Use Ctrl and Shift to select multiple elements."),
selectInput("solute_select_wr", 'Substances', choices = csite$ui_attr$solute_names,
selected = csite$ui_attr$solute_select_wr, multiple = TRUE, selectize = TRUE),
selectInput("sample_loc_select_wr", 'Wells', choices = csite$ui_attr$sample_loc_names,
selected = csite$ui_attr$sample_loc_select_wr, multiple = TRUE, selectize = TRUE),
radioButtons("logscale_wr", label = "Use Log-Scale",
choices = list("Yes", "No"),
selected = csite$ui_attr$logscale_wr),
actionButton("update_wellreport_plot" ,"Update Plot", icon("refresh"),
class = "btn btn-primary")
), # end box
shinydashboard::box(width = 9, status = "primary",
plotOutput("well_report_plot", height = 600),
div(style = "display: inline-block;",
selectInput("export_format_wr", label = "Image format",
choices = img_frmt[-which(img_frmt == "tif")],
selected = img_frmt[[1]]
)
),
div(style = "display: inline-block; vertical-align:top; margin-top: 25px; margin-right: 10px",
downloadButton("save_wellreport_plot", label = "Save Plot")
)
)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.