Skip to content

Instantly share code, notes, and snippets.

Avatar

DATAUNIRIO DATAUNIRIO

View GitHub Profile
@DATAUNIRIO
DATAUNIRIO / server.R
Created Oct 20, 2018 — forked from withr/server.R
Encrypt password with md5 for Shiny-app.
View server.R
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) {