library(glouton)
library(shiny)

ui <- function(request){
  tagList(
    use_glouton(),
    textInput("cookie_name", "cookie name"),
    textInput("cookie_content", "cookie content"),
    actionButton("setcookie", "Add cookie"),
    actionButton("getcookie", "get cookie"),
    actionButton("rmcookies", "remove cookie(s)"),
    verbatimTextOutput("cook"),
    verbatimTextOutput("one")
  )
}

server <- function(input, output, session){
  
  r <- reactiveValues()
  
  observeEvent( input$setcookie , {
    add_cookie(input$cookie_name, input$cookie_content)
  })
  observeEvent( input$getcookie , {
    r$cook <- fetch_cookies()
  })
  observeEvent(input$rmcookies , {
    cookienames <- names(r$cook)
    for(cname in cookienames){
      remove_cookie(cname)
    }
  })
  output$cook <- renderPrint({
    r$cook
  })
}

shinyApp(ui, server)