Make simple data entry using shiny

Using shiny lession 3

Creating file 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.

Creating filefile 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.