public
/
eprilog
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

small clean up

This commit is contained in:
friedemann.blume 2024-01-13 16:05:49 +01:00
parent 43598d9e40
commit 13fdbbb4a8
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
eprilog.r
View File

@ -19,7 +19,6 @@ coffees <- (read.csv(file = "./data/coffees.csv", header = TRUE, sep = ",", row.
# get last used coffee # get last used coffee
lastUsedParameters <- tail(brews, n=1) lastUsedParameters <- tail(brews, n=1)
lastUsedParameters$Alias
ui <- navbarPage("EpriLog", ui <- navbarPage("EpriLog",
tabPanel("Brews", tabPanel("Brews",
@ -97,8 +96,8 @@ server <- function(input, output, session){
coffees <- (read.csv(file = "./data/coffees.csv", header = TRUE, sep = ",", row.names = 1)) coffees <- (read.csv(file = "./data/coffees.csv", header = TRUE, sep = ",", row.names = 1))
# get last used coffee # get last used coffee
lastUsedParameters <- tail(brews, n=1) lastUsedParameters <- tail(brews, n=1)
lastUsedParameters$Alias
# Render Brew History Table # Render Brew History Table
output$history = DT::renderDataTable( output$history = DT::renderDataTable(