wetqc_lot_view_server<-function(){
aLOT <- LLP::lotstore$new()
require(shiny)
require(ggplot2)
require(ggthemes)
require(plotly)
TBL <- new.env()
TBL$B <- "xfe24wetqc"
TBL$W <- "xfe96wetqc"
TBL$C <- "xfpwetqc"
TBL$Q <- "xf24legacy"
db <- adminKraken::con_mysql()
shinyServer(function(input, output, session) {
session$onSessionEnded(function() {
RMySQL::dbDisconnect(db)
stopApp()
})
selectedData <- reactive({
LLP::react_wetqc_lot_data(get(input$PLAT, envir = TBL), input$Variable, input$Lot, db)
})
observeEvent(input$PLAT, {
updateSelectInput(session, 'Lot', choices = aLOT$get(input$PLAT))
})
output$plot1 <- renderPlotly({
ggplot(selectedData(), aes(x = factor(sn), y = var)) +
geom_boxplot(
outlier.shape = NA,
outlier.alpha = 0.00001,
outlier.color = 'white'
) +
geom_jitter(
shape = 22,
alpha = .6,
size = 3.5,
color = "black",
aes(fill = Inst)
) +
xlab("Serial Number") +
ylab(input$Variable) +
theme_bw() +
ggtitle(input$Lot) +
scale_fill_gdocs()
})
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.