small clean up

2024-01-13 16:05:49 +01:00
parent 43598d9e40
commit 13fdbbb4a8
1 changed files with 1 additions and 2 deletions
--- a/eprilog.r
+++ b/eprilog.r
@@ -19,7 +19,6 @@ coffees <- (read.csv(file = "./data/coffees.csv", header = TRUE, sep = ",", row.

 # get last used coffee
 lastUsedParameters <- tail(brews, n=1)
-lastUsedParameters$Alias

 ui <- navbarPage("EpriLog",
    tabPanel("Brews", 
@@ -97,8 +96,8 @@ server <- function(input, output, session){
    coffees <- (read.csv(file = "./data/coffees.csv", header = TRUE, sep = ",", row.names = 1))

    # get last used coffee
+
    lastUsedParameters <- tail(brews, n=1)
-    lastUsedParameters$Alias

    # Render Brew History Table
    output$history = DT::renderDataTable(