Add a link back to the GitHub repository

Author: coatless

app.R

@@ -18,7 +18,8 @@ ui <- fluidPage(
       fileInput("file", "Choose CSV File", accept = ".csv"),
       tags$hr(),
       checkboxInput("header", "Header", TRUE),
-      checkboxInput("stringAsFactors", "Convert strings to factors", TRUE)
+      checkboxInput("stringAsFactors", "Convert strings to factors", TRUE),
+      tags$a(href = "https://github.com/coatless-tutorials/convert-shiny-app-r-shinylive", "See source on GitHub!")
     ),
 
     # Show CSV data
@@ -47,4 +48,4 @@ server <- function(input, output) {
 }
 
 # Run the application
-shinyApp(ui = ui, server = server)
+shinyApp(ui = ui, server = server)