Shiny + Redis example

server.R

library(rredis)

shinyServer(function(input, output) {
    
    output$show <- renderText({
        redisConnect()
        res <- redisGet(input$key)
        redisClose()
        return(res)
    })
    
    observe({
        if (input$save == 0)
            return()
        
        isolate({
            redisConnect()
            redisSet(input$key, input$value)
            redisClose()
        })
    })
})

ui.R

shinyUI(bootstrapPage(
    selectInput("key", "Key:", LETTERS[1:5]),
    textInput("value", "Value:"),
    actionButton("save", "Save"),
    textOutput("show")
))