gXcloud xwydq

xwydq / shiny-oauth.r

Created April 20, 2018 02:38 — forked from hadley/shiny-oauth.r

Sketch of shiny + oauth

	library(shiny)
	library(httr)

	# OAuth setup --------------------------------------------------------

	# Most OAuth applications require that you redirect to a fixed and known
	# set of URLs. Many only allow you to redirect to a single URL: if this
	# is the case for, you'll need to create an app for testing with a localhost
	# url, and an app for your deployed app.

xwydq / server.R

Created February 20, 2018 09:44 — forked from trestletech/server.R

A Shiny app combining the use of dplyr and SQLite. The goal is to demonstrate a full-fledged, database-backed user authorization framework in Shiny.


	library(shiny)
	library(dplyr)
	library(lubridate)

	# Load libraries and functions needed to create SQLite databases.
	library(RSQLite)
	library(RSQLite.extfuns)
	saveSQLite <- function(data, name){
	path <- dplyr:::db_location(filename=paste0(name, ".sqlite"))

xwydq / server.R

Created February 21, 2017 13:06 — forked from withr/server.R

Encrypt password with md5 for Shiny-app.

	library(shiny)
	library(datasets)
	Logged = FALSE;
	PASSWORD <- data.frame(Brukernavn = "withr", Passord = "25d55ad283aa400af464c76d713c07ad")
	# Define server logic required to summarize and view the selected dataset
	shinyServer(function(input, output) {
	source("www/Login.R", local = TRUE)

	observe({
	if (USER$Logged == TRUE) {