43 lines
1.5 KiB
R
43 lines
1.5 KiB
R
|
#
|
||
|
|
# 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)
|