???? ?? ?? ????? UI?? ??? ??? ???? ????? ??? ?? ???? (?? ?? ???)??? ?????.

Shinyui (fluidpage (…)) ??? ???? ??? ???? ?????. ? ?? ???? ?? ????? ??? ??? ? ?? ??? ??? ????. Shinyui (fluidpage (…))? ??? ? ??? ?? ??? ?????.
2. ???, ???? ??? ???? ? ?? ??? ??? ?????. ? ?? ???, ?? Spacelab ??? ???? ??? ??? ?? ?? ? ??? ???.

validate () ?? Validate ??? ???? ??? ?? ? ? ?? ?????. ????? Validate? ???? ????? ?? ??? ?? ? ? ?? ???? ??? ? ? ????. ? ??? ??, ?? ??? ?????? ????? ?? ? ? ?? ???? ????? ?? ?? ? ??? ??? ??? ?? ?????. ???? ???? ??? ?? ???? ?? ??????. ?????, ??? ???? ????? ????? ??? ??? ?? 1?? 100 ??? x ?? ?? ?????. ?? ?? ?? ? ??? 5 ??, ? 29 ? ??? ??? ?? ???? ???? ?? ?? y- ?? ?????. ????? ???? ?? ????? ???? ????? ???? ?? ??? ?? ??? ??? ??? ???? 29 ?? ?????. ??? ????? ??? ShinyUi? ??? ?? ???? ??? ?? ?????.

???? ?? ?? ??? ?? ??? ?? ? ??? ??? ?????.

?? ???? ?? ????? UI ? ?? ??? ??? ?????. ui

shinyUI(fluidPage(theme = shinytheme("cyborg")

??

?? ????, ??? ??? ?? ????? ?????

R ???? ??? ? ??? ??? ?? → Shiny Web App

shinyUI(fluidPage(theme = shinytheme("spacelab"),
tags$head(
  tags$style(HTML("
    .shiny-output-error-validation {
    color: red;
    }
    "))
),

?? ?? ?? ?? (UI.R ? Server.r ??) ?? ?? ?? (UI.R ? Server.R? ??? ????? ??)? ??? ??? ??? ??? ? ? ????. ???? ?? ??? ??? ????.

function(input, output) {
  output$algebra < - renderPlot({
    validate(
      need(input$lambda <= 28, "A value set at 29 or above produces a slope below 5. Please set a value below 29.")
    )

?? ?? UI ? ?? ??? ?? ??? ?? ?? RUN APP? ???? ????? ?????.

#Load libraries
library(shiny)
library(shinythemes)


#Define Shiny theme and specify shiny-output-error-validation
shinyUI(fluidPage(theme = shinytheme("spacelab"),


tags$head(
  tags$style(HTML("
    .shiny-output-error-validation {
    color: red;
    }
    "))
),


sidebarLayout(
  sidebarPanel(
    sliderInput("lambda",
      "Number of data points:",
      min = 1,
      max = 100,
      value = 1)
),


mainPanel(
  h3("Slope of a line", style = "font-family: 'Jura'; color: blue; font-size: 32px;"),
  HTML("<p>Excluding slope below 5 where y = 2x + 3"),
  plotOutput("algebra")
)
)
))

??? ????? ???? ??? ?? ?? ???? x ?? ??? ????? ??? ?? ? ? ????. ??? ????? 29 ???? ???? ?? ???? ????“29 ???? ??? ?? 5 ??? ??? ?????. >

• ??? ?? ???? ???? ?? ???? ??? ????? ???? ?? ????? ????? ? ? ?? ?? ? ? ????. ?? ??, ?? ???? ???? ?? ?? ???? ??? ???? ?? ??? ????? ?? ? ??? ?? ??? ????. ??? ????, ???? ?? ???? ??? ? ??? ?? ?? ?? ??? ?? ? ? ???, R ?????? ??? ?????. ??? ??? ?? ????.
. ?? ??, ???? ? ??? ??? Validate ??? ??? ??? ?????? ?? ?? ?????. UI? ??? ???? ?????? ????? ????? ???? ?? ??? ??? ??? ? ?? ???? ?????. ??? ???? Validate ??? ????? ?????. ?? ??? ???? ??, ?? ??? ?? ???? ??? ???? ???? ??? ? ? ????. ?? ?? ??? 5 ??? ??? ?????. ?? 29 ???? ??????.”

??, ??? ?? ??? ? ????? ????? ?? ??? ??? ? ????. ?? ??, ????? 35 : ?? ???? ?? ?? ??? ???? ????? 35 ???? ???? ?? ?? ?? ???? ???? ?????.“????? ?? 35?? ? ????!”

shinyUI(fluidPage(theme = shinytheme("cyborg")

?? ? ????? ???? ??? ???? ???? ?? ???? ???? ??? ??? ?? ??? ?? ? ? ??? ?? ??? ??? ???? ?? ???? ???? ??? ?????.

?????, Shiny? ??? R ? ???? ??? ?? ? ? ??? ????? ??? ? ??? ???? ????. ?? ?? ????? ?? ??? ???? ???? ??? ?? ??? ??? ????? ????. . Shiny and R?? ?? ?? ?? (FAQ) : ?? ? ?? ??? ??? ??

r?

? ???? ?? ??? ?? ? ??? ??? R?? ???? ?? ??? ???? ?? ??? ???????. ?? Shinythemes ???? ???????????. R ???? ?? ??? ?????? ?? ? ? ????. install.packages ( "Shinythemes") ? ????? (Shinythemes). ???????? FluidPage ?? NavbarPage ??? ?? ??? ???? ???? ?? ??? ?? ? ? ????. ?? ??, fluidpage (?? = shinytheme ( "cerulean")). ??? ???? ?? "cerulean"??? ???? ?? ?????. ???? ??? ?? ???? ??? ?? ? ? ?????

?, ???? ??? ?? ???? ??? ?? ? ? ????. Shiny? ?? ??? ???? ?? ??? ???? ?? ? ??? ?? ?? ???? ???? ? ??? ??? Validate?? ??? ?????. ?? ??, ???? ??? ?? ???? ?? ??? ?? ??? ??? ?? ?? ??? ?? ?? ???? ????? ?? ??? ?? ??? ?? ? ? ???? (revelate (is.numeric). ?? $ myNumber), "??? ??????")). ??? ?? ?? ?? ??“??? ??????”???? ?????.

???? ?? ? ???? ??? ??? ? ?????

? ? ??? ?? CSS? ???? ???? ?? ?? ? ? ????. UI ??? InclueEcss ??? ???? ?? CSS ??? ???? ? ????. ?? ??, ???? ( "Styles.css"). CSS ???? ?? ?? ??? ?? ??? ?? ? ? ????. ?? ??, ?? ???? ????? ????? CSS ??? ??? ???? ? ????. ???? ??? ??? ?? ??? ??? ? ?????

?, ???? ??? ??? ?? ??? ??? ? ????. ?? ?? CSS ??? ????? @font-face ??? ???? ??? ?? ??? ???? ?? ? ? ????. ?? ??, "myfont.woff"?? ??? ?? ?? ????? ?? ??? CSS ??? ???? ? ????. @font-face {font-family : "myfont"; src : url ( "myfont.woff");}. ?? ?? Font-Family ??? "MyFont"? ???? CSS? ??? ??? ? ????.

???? ?? ??? ?? ??? ?? ? ? ?????

??? ?? ?? ?? ???? ?? Navbarpage ??? ???? ??? ??? ???? ?? ? ? ????. ?? ??, navbarpage (title = "my app", windowtitle = "my app", taglist (tags $ img (src = "mylogo.png", height = "50px", width = "50px")). ????? ?? Navbar? ??? ?????.

???? ??? ?? ??? ??? ??? ? ?????

?, ???? ??? ?? ??? ??? ??? ? ????. Shinythemes ???? ??? ??? ? ?? ?? ?? ? ?? ??? ??? ?????. ?? ??? CSS ??? ???? ??? ?? ?? ??? ??? ??? ?? ????.

???? ?? ????? ????? ??? ???? ?? ????? ??? ? ????? Shiny? ???? ??? ???? ??? ???? ???????. ?? ??, ?? ? ? ??? ???? ??? ???? ?? ??? ? ?? ??, ??? ?? ?? ? MainPanel ??? ???? ??? ?? ????? ?? ? ? ????.

???? ??? javaScript? ??? ? ?????

?, ???? ??? JavaScript? ??? ? ????. Conturect Script ??? ???? ?? JavaScript ??? ?? ???? ??? JavaScript ??? ????? ?? ?? $ ???? ??? ???? ?? ? ? ????.

???? ?? ???? ??? ??

UI? FluidPage ??? ???? ???? ?? ???? ? ????. ? ??? ??? ?? ??? ???? ???? ????? ????. NavbarPage ???? Responsive = True ??? ???? Navbar Responsive? ?? ? ????.

? ??? ???? ??? ??? ? ?????

?, ??? ???? ??? ??? ? ????. . Shiny? ????, ??? ? ??? ??? ?? ??? ??? ???? ??? ??? ??? ???? ? ??? ? ????. UI ??? ?? ??? ???? ?? ??? ?? ? ? ????. ?? ??, SliderInput ( "Myslider", "My Slider", Min = 0, Max = 100, value = 50)? ?? ????? ?????.