Server.R ( och shiny)

gistfile1.txt

#library(shiny) #load shiny at beginning of both scripts

shinyServer(function(input, output) { # define application in here
  
  output$textDisplay <- renderText({ # mark function as reactive
    # and assign to output$textDisplay for passing to ui.R
    
    paste0("You said '", input$comment,           # from the text
           "'. There are ", nchar(input$comment), # input control as
           " characters in this.")                # defined in ui.R
    
  })
  
})

ui.R -> a minimal example

shinyUI(fluidPage( # flexible layout function

Title

titlePanel("Den minimala applikationen"),

sidebarLayout(
sidebarPanel(
textInput(inputId = "comment", # this is the name of the
# variable- this will be passed to server.R
label = "Säg något", # display label for the variable
value = "" # initial value

  )),

# Show a plot of the generated distribution
mainPanel( # main output configuration
  h3("This is you saying it"), # title with HTML helper
  textOutput("textDisplay")    # this is the name of the output
  # element as defined in server.R
)

)
))