#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(
    titlePanel("Moja aplikacja Shiny"),
    sidebarLayout(
        sidebarPanel(
            h1('Instalacja'),
            p('Shiny jest w repozytorium CRAN, więc możesz zainstalowac go w zwykły sposób z konsoli R:'),
            code("install.packages('shiny')"),
            img(src = "rstudio.png", height = 70, width = 200),
            p('Shiny jest produktem ', span('RStudio', style = "color:red"))
        ),
        mainPanel(
            h1('Wprowadzenie do Shiny'),
            p('Shiny jest nowym pakietem RStudio, ktory' , em('bardzo ułatwia'), 'tworzenie interaktywnych aplikacji internetowych w R'),
            p('Dużo informacji i przykładów znajduje się na',  a('stronie Shiny')),
            h2('Ficzery'),
            p('- Twórz użyteczne aplikacje internetowe zaledwie kilkoma liniami kodu - nie jest wymagana znajomość JavaScript'),
            p('- Aplikacje Shiny aktualizują się tak samo szybko jak arkusze danych np. Excel. Wyniki zmieniają się natychmiast - gdy uzytkownicy modyfikują dane wejściowe, nie ma konieczności ponownego przeładowania strony')
            
        )
    )
)

# Define server logic required to draw a histogram
server <- function(input, output) {


}

# Run the application 
shinyApp(ui = ui, server = server)