Bookmarking & Commenting App Template

app.R

#
# Bookmarking 
# Annotations & Commenting
# Gitlink
#

library(shiny)
library(gitlink)

# Define UI for application that draws a histogram
ui <- function(request){
    
    fluidPage(
        ribbon_css("https://github.com/kellobri/mastering-shiny", text = "Link to the code"),
        tags$head(HTML('<script src="https://hypothes.is/embed.js" async></script>')),
        #tags$head(HTML('<link rel="canonical" href="UPDATE POST-PUBLISH" />')),
        
        # Application title
        titlePanel("Old Faithful Geyser Data"),
        
        # Sidebar with a slider input for number of bins 
        sidebarLayout(
            sidebarPanel(
                sliderInput("bins",
                            "Number of bins:",
                            min = 1,
                            max = 50,
                            value = 30)
            ),
            
            # Show a plot of the generated distribution
            mainPanel(
                plotOutput("distPlot")
            )
        )
    )   
    
}

# Define server logic required to draw a histogram
server <- function(input, output, session) {

    output$distPlot <- renderPlot({
        # generate bins based on input$bins from ui.R
        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)

        # draw the histogram with the specified number of bins
        hist(x, breaks = bins, col = 'darkgray', border = 'white')
    })
    
    # Automatically bookmark every time an input changes
    observe({
        reactiveValuesToList(input)
        session$doBookmark()
    })
    
    # Update the query string
    onBookmarked(updateQueryString)
}

# Run the application 
shinyApp(ui = ui, server = server, enableBookmarking = "url")