Shiny + mongoDB example

server.R

library(rmongodb)

shinyServer(function(input, output) {
    
    key <- reactive({
        paste(input$key, "data", sep = ".")
    })
    
    output$show <- renderText({
        
        m <- mongo.create()
        if (mongo.is.connected(m)) {
            res <- mongo.find.one(m, key())
            mongo.disconnect(m)
        }
        
        if (!is.null(res))
            mongo.bson.value(res, "data")
    })
    
    observe({
        if (input$save == 0)
            return()
        
        isolate({
            m <- mongo.create()
            if (mongo.is.connected(m)) {
                mongo.insert(m, key(), list(data = input$value))
                mongo.disconnect(m)
            }
        })
    })
})

ui.R

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