132 lines
4.3 KiB
R
132 lines
4.3 KiB
R
#####
|
|
#
|
|
# Author: PMF
|
|
#
|
|
#####
|
|
|
|
require(shiny)
|
|
#theme_set(theme_minimal())
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# preperation
|
|
# Get the status if r shiny is running in docker or not
|
|
readRenviron("./.status-docker")
|
|
statusDocker <- Sys.getenv("statusDockerENV")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ui <- navbarPage("EpriLog",
|
|
tabPanel("Eprilog",
|
|
sidebarLayout(
|
|
mainPanel(
|
|
h1('Brew History'),
|
|
DT::dataTableOutput('history')
|
|
),
|
|
sidebarPanel(
|
|
h1('New Entry'),
|
|
dateInput("date", "Date:"), #maybe better to automatically generate with time
|
|
selectInput("coffeeName", "Whats the name of the coffee?", coffees$coffeeName, multiple = FALSE),
|
|
# Grind Time
|
|
sliderInput("gindTime", "Ginding Time", value = 14, min = 0, max = 30),
|
|
# Grind Size
|
|
sliderInput("gindSize", "Ginding Size", value = 7, min = 0, max = 70),
|
|
# Flow rate (0 = none, 10 = perfect, 20 = water)
|
|
sliderInput("flowResult", "Flow rate (10 is Perfect):", value = 10, min = 0, max = 20),
|
|
# Taste Rating (sour = none, 10 = perfect, 20 = bitter)
|
|
sliderInput("taste", "Taste (0=Sour, 10=perfect, 20=bitter):", value = 10, min = 0, max = 20),
|
|
# 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 = "Keine Notizen"),
|
|
# submit
|
|
actionButton("createEntry", "Submit new entry!", icon("save")),
|
|
)
|
|
)
|
|
),
|
|
tabPanel("Configuration",
|
|
mainPanel(
|
|
h1('Add Coffees'),
|
|
h3('coming soon!')
|
|
)
|
|
)
|
|
)
|
|
|
|
|
|
|
|
server <- function(input, output){
|
|
|
|
# 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")
|
|
grinders <- read.csv(file = "./data/grinders.csv")
|
|
coffees <- read.csv(file = "./data/coffees.csv")
|
|
|
|
# Render History Table
|
|
output$history = DT::renderDataTable(
|
|
brews, server = TRUE,
|
|
options = list(order = list(3, "desc")))
|
|
# columnDefs = list(list(visible = FALSE, targets = c(4)))))
|
|
|
|
|
|
# insert new entry
|
|
observeEvent(input$createEntry, {
|
|
# load current brews history
|
|
brews <- (read.csv(file = "./data/brews.csv", header = TRUE, sep = ",", row.names = 1))
|
|
# get currentTime
|
|
currentTime <- Sys.time()
|
|
# add new line entry to history
|
|
brews[nrow(brews) + 1,] = list(
|
|
(brews$id + 1),
|
|
input$date,
|
|
currentTime,
|
|
input$coffeeName,
|
|
input$grindTime,
|
|
input$grindSize,
|
|
input$flowResult,
|
|
input$taste,
|
|
input$wdt,
|
|
input$brewTemp,
|
|
input$brewPreinfusion,
|
|
input$brewTime,
|
|
input$grinderDevice,
|
|
input$machineDevice,
|
|
input$portaInsert,
|
|
input$notes
|
|
)
|
|
# save changes to .csv file
|
|
print(brews)
|
|
write.csv(brews, file = "./data/brews.csv")
|
|
})
|
|
|
|
}
|
|
|
|
if (statusDocker == "false") {
|
|
runApp(shinyApp(ui = ui, server = server, options = list(launch.browser = TRUE)))
|
|
} else {
|
|
shinyApp(ui = ui, server = server)
|
|
} |