190 lines
8.1 KiB
R
190 lines
8.1 KiB
R
#################
|
||
# Author: PMF #
|
||
#################
|
||
|
||
require(shiny)
|
||
require(DT)
|
||
|
||
# preperation:
|
||
# Get the status if r shiny is running in docker or not
|
||
readRenviron("./.status-docker")
|
||
statusDocker <- Sys.getenv("statusDockerENV")
|
||
|
||
|
||
# loading data from csv files
|
||
brews <- (read.csv(file = "./data/brews.csv", header = TRUE, sep = ",", row.names = 1))
|
||
machines <- (read.csv(file = "./data/machines.csv", header = TRUE, sep = ",", row.names = 1))
|
||
grinders <- (read.csv(file = "./data/grinders.csv", header = TRUE, sep = ",", row.names = 1))
|
||
coffees <- (read.csv(file = "./data/coffees.csv", header = TRUE, sep = ",", row.names = 1))
|
||
|
||
# get last used coffee
|
||
lastUsedParameters <- tail(brews, n=1)
|
||
|
||
ui <- navbarPage("EpriLog",
|
||
tabPanel("Brews",
|
||
sidebarLayout(
|
||
mainPanel(
|
||
h1('Brew History'),
|
||
DT::dataTableOutput('history')
|
||
),
|
||
sidebarPanel(
|
||
h1('New Entry'),
|
||
dateInput("date", "Date:"), #maybe better to automatically generate with time
|
||
selectInput("alias", "Whats the nick name of the coffee?", choices = coffees$alias, multiple = FALSE, selected = lastUsedParameters$Alias),
|
||
#selectInput("coffeeName", "Whats the name of the coffee?", coffees$coffeeName, multiple = FALSE),
|
||
# Taste Rating (sour = none, 10 = perfect, 20 = bitter)
|
||
sliderInput("taste", "Taste (0=Sour, 10=perfect, 20=bitter):", value = 10, min = 0, max = 20),
|
||
# Flow rate (0 = none, 10 = perfect, 20 = water)
|
||
sliderInput("flowResult", "Flow rate (10 is Perfect):", value = lastUsedParameters$FlowResult, min = 0, max = 20),
|
||
# Grind Time
|
||
sliderInput("grindTime", "Ginding Time", value = lastUsedParameters$GrindTime, min = 0, max = 30, step = 0.2),
|
||
# Grind Size (my Grinder can go up to 70 but thats no longer Espresso..)
|
||
sliderInput("grindSize", "Ginding Size", value = lastUsedParameters$GrindSize, min = 0, max = 30),
|
||
# WDT Tool
|
||
checkboxInput("wdt", "WDT Tool used?", value = TRUE),
|
||
# Brew Temp
|
||
numericInput("brewTemp", "Brew Temperature:", value = 94, min = 0, max = 110),
|
||
# Brew preinfusion time
|
||
numericInput("brewPreinfusion", "Brew Preinfusion Time", value =2, min = 0, max = 60),
|
||
# Brew wait Time after Preinfusion
|
||
numericInput("brewPreinfusionWait", "Brew Wait after Preinfusion Time", value = 5, min = 0, max = 60),
|
||
# Brew Time
|
||
numericInput("brewTime", "Brew Time after Preinfusion Time", value = 21, min = 0, max = 100),
|
||
# Grinder Device
|
||
selectInput("grinderDevice", "Which Grinder was used?", grinders$name, multiple = FALSE),
|
||
# Espresso Device
|
||
selectInput("machineDevice", "Which Espresso machine was used?", machines$name, multiple = FALSE),
|
||
# Siebeinsatz
|
||
numericInput("portaInsert", "Siever insert size", value = 12, min = 0, max = 100),
|
||
# Notes
|
||
textInput("notes", "Notes:", value = "I´m satisfied with my coffee."),
|
||
# submit
|
||
actionButton("createEntry", "Submit new entry!", icon("save")),
|
||
)
|
||
)
|
||
),
|
||
tabPanel("Configuration",
|
||
sidebarLayout(
|
||
mainPanel(
|
||
h1('Already available Coffees'),
|
||
DT::dataTableOutput('coffees')
|
||
),
|
||
sidebarPanel(
|
||
h2('Add New Coffees'),
|
||
textInput("brandName", "Brand Name", value = ""),
|
||
textInput("coffeeNameNew", "Coffee Name", value = ""),
|
||
textInput("aliasNew", "Nick Name", value = ""),
|
||
dateInput("expDate", "Expiration Date"),
|
||
numericInput("arabicaPercentage", "Arabica Percentage", value = "50"),
|
||
numericInput("robustaPercentage", "Robusta Percentage", value = "50"),
|
||
numericInput("sourPercentage", "Sourness Percentage", value = "50"),
|
||
numericInput("strongnessPercentage", "Strongness Percentage", value = "50"),
|
||
numericInput("roastDarknessPercentage", "Roast Darkness Percentage", value = 50),
|
||
textInput("originCountry", "Origin County of the Coffee", value = "Coffee World"),
|
||
actionButton("addCoffee", "Save new entry!", icon("save")),
|
||
)
|
||
)
|
||
))
|
||
|
||
|
||
server <- function(input, output, session){
|
||
|
||
# loading data from csv files
|
||
brews <- (read.csv(file = "./data/brews.csv", header = TRUE, sep = ",", row.names = 1))
|
||
machines <- (read.csv(file = "./data/machines.csv", header = TRUE, sep = ",", row.names = 1))
|
||
grinders <- (read.csv(file = "./data/grinders.csv", header = TRUE, sep = ",", row.names = 1))
|
||
coffees <- (read.csv(file = "./data/coffees.csv", header = TRUE, sep = ",", row.names = 1))
|
||
|
||
# get last used coffee
|
||
|
||
lastUsedParameters <- tail(brews, n=1)
|
||
|
||
# Render Brew History Table
|
||
output$history = DT::renderDataTable(
|
||
brews, server = TRUE,
|
||
options = list(order = list(3, "desc"),
|
||
list(scrollX = TRUE),
|
||
columnDefs = list(list(visible = FALSE, targets = c(1,2,3,5,10,11,12,13,14,15,16)))
|
||
))
|
||
|
||
# Creating new brew record
|
||
#
|
||
observeEvent(input$createEntry, {
|
||
# get currentTime
|
||
currentTime <- Sys.time()
|
||
# count up for new brew id
|
||
newID <- (runif(1, 1, 10000000000))
|
||
coffeeName <- "SEE_COFFEES_CSV"
|
||
|
||
# add new line entry to history
|
||
brews[nrow(brews) + 1, 1] <- newID
|
||
brews[nrow(brews), 2] <- input$date
|
||
brews[nrow(brews), 3] <- currentTime
|
||
brews[nrow(brews), 4] <- input$alias
|
||
brews[nrow(brews), 5] <- coffeeName
|
||
brews[nrow(brews), 6] <- input$grindTime
|
||
brews[nrow(brews), 7] <- input$grindSize
|
||
brews[nrow(brews), 8] <- input$flowResult
|
||
brews[nrow(brews), 9] <- input$taste
|
||
brews[nrow(brews), 10] <- input$wdt
|
||
brews[nrow(brews), 11] <- input$brewTemp
|
||
brews[nrow(brews), 12] <- input$brewPreinfusion
|
||
brews[nrow(brews), 13] <- input$brewPreinfusionWait
|
||
brews[nrow(brews), 14] <- input$brewTime
|
||
brews[nrow(brews), 15] <- input$grinderDevice
|
||
brews[nrow(brews), 16] <- input$machineDevice
|
||
brews[nrow(brews), 17] <- input$portaInsert
|
||
brews[nrow(brews), 18] <- input$notes
|
||
|
||
# save changes to .csv file
|
||
write.csv(brews, file = "./data/brews.csv")
|
||
showNotification("New Record added.")
|
||
session$reload()
|
||
})
|
||
|
||
# Render Coffees Table for Configuration Page
|
||
#
|
||
output$coffees = DT::renderDataTable(
|
||
coffees, server = TRUE,
|
||
options = list(scrollX = TRUE)
|
||
#colnames = c("ID", "Brand Name", "Coffee Name", )
|
||
#options = list(order = list(3, "desc")
|
||
#columnDefs = list(list(visible = FALSE, targets = c(1,2,10,11,12,13,14,15,16)))
|
||
)
|
||
|
||
|
||
# Add new Coffee entry
|
||
#
|
||
observeEvent(input$addCoffee, {
|
||
# get currentTime
|
||
creationDate <- Sys.time()
|
||
# count up for new brew id
|
||
newID <- (runif(1, 1, 10000000000))
|
||
|
||
# inserting new row
|
||
coffees[nrow(coffees) + 1, 1] <- newID
|
||
coffees[nrow(coffees), 2] <- input$brandName
|
||
coffees[nrow(coffees), 3] <- input$coffeeNameNew
|
||
coffees[nrow(coffees), 4] <- input$aliasNew
|
||
coffees[nrow(coffees), 5] <- input$expDate
|
||
coffees[nrow(coffees), 6] <- input$arabicaPercentage
|
||
coffees[nrow(coffees), 7] <- input$robustaPercentage
|
||
coffees[nrow(coffees), 8] <- input$sourPercentage
|
||
coffees[nrow(coffees), 9] <- input$strongnessPercentage
|
||
coffees[nrow(coffees), 10] <- input$roastDarknessPercentage
|
||
coffees[nrow(coffees), 11] <- input$originCountry
|
||
coffees[nrow(coffees), 12] <- creationDate
|
||
|
||
# save changes to .csv file
|
||
write.csv(coffees, file = "./data/coffees.csv")
|
||
showNotification("New Coffee added.")
|
||
session$reload()
|
||
})
|
||
|
||
}
|
||
|
||
if (statusDocker == "false") {
|
||
runApp(shinyApp(ui = ui, server = server, options = list(launch.browser = TRUE)))
|
||
} else {
|
||
shinyApp(ui = ui, server = server)
|
||
} |