javieroot

# load other helper files
# load textMiningTools function
source("textMiningTools.R", local=TRUE)

plotText <- function(fPath, 
                     minWords, 
                     scaleVec, 
                     wordFreq, 
                     plotType, 
                     plotOptions, 

javieroot

library(shiny)
library(rmarkdown)

shinyServer(function(input, output) {

    output$html = reactive({

        t <- tempfile()
        cat(input$markdown, file = t)

withr

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) {