Using shiny to make input

Using shiny lession 3

Creating ui.R

cat('library(shiny)
shinyUI(fluidPage(
  titlePanel("Sử dụng textInput widgit trong shiny"),
  sidebarLayout(
    sidebarPanel(("Nhập thông tin cá nhân"),
                 textInput("name", "Nhập tên", ""),
                 textInput("age", "Nhập tuổi", "")),
    mainPanel(("Thông tin cá nhân"),
    textOutput("myname"),
    textOutput("myage"))
  )
))'
)

## library(shiny)
## shinyUI(fluidPage(
##   titlePanel("Sử dụng textInput widgit trong shiny"),
##   sidebarLayout(
##     sidebarPanel(("Nhập thông tin cá nhân"),
##                  textInput("name", "Nhập tên", ""),
##                  textInput("age", "Nhập tuổi", "")),
##     mainPanel(("Thông tin cá nhân"),
##     textOutput("myname"),
##     textOutput("myage"))
##   )
## ))

go to … home.

Tạo file server.R

cat("library(shiny)
shinyServer(function(input, output){
  output$myname <- renderText(input$name)
  output$myage <- renderText(input$age)
  })"
)

## library(shiny)
## shinyServer(function(input, output){
##   output$myname <- renderText(input$name)
##   output$myage <- renderText(input$age)
##   })

go to … home.