20181006 Shiny

if("shiny" %in% installed.packages("shiny") == FALSE)install.packages("shiny")
library(shiny)
ui <- shiny::fluidPage(
  sliderInput(
    inputId = "num1",
    label = "숫자를 선택하세요",
    value = 25,
    min =1,
    max = 50,
    step = 1
  ),
  plotOutput("hist")
)
server <- function(input, output){
          output$hist <- renderPlot({
          hist(rnorm(input$num1),
          maing = "50 범위내에서 선택")
    })
}

shiny::shinyApp(ui, server)

Shiny BMI

library(shiny)
bmi <- function(t,w){
  t <- t/100
  x <- w/(t*t)
  return ( if(x>=40){'고도 비만'}else
  if(x>=35 & x<40){'중등도 비만 (2단계 비만)'}else
  if(x>=30 & x<35){'경도 비만 (1단계 비만)'}else
  if(x>=25 & x<30){'과체중'}else
  if(x>=18.5 & x<25){'정상'}else
  {'저체중'})
}

bmi(180, 10)

ui <- fluidPage(
  numericInput("t","키 :",10, min=1, max=100),
  numericInput("w","몸무게 :",10, min=1, max=100),
  verbatimTextOutput("value")
)

server <- function(input, output, session) {
  output$value <- renderText({bmi(input$t,input$w)})
}

shinyApp(ui, server)

RPS

library(shiny)
library(shinyjs)

rps <- function(x){
  # 가위 1, 바위 2, 보 3
  # a - b = 0 비김
  # a - b = 1, -2 b 패배
  # a - b = -1, 2 b 승리
  if(x=='가위'){
    user <- 1
  }else if(x=='바위'){
    user <- 2
  }else{
    user <- 3
  }
  comp <- sample(1:3,1,replace = T)
  result <-  comp - user
  print(result)
  return (if(result == 1 | result == -2)'패배'
          else if(result == -1 | result ==2) '승리'
          else '비김')
}

ui <- fluidPage(
  titlePanel("가위바위보 게임"),
  sidebarLayout(
    sidebarPanel(
      helpText("가위, 바위, 보 중에서 선택하세요"),
      selectInput("var",
                  label = "가위바위보",
                  choices = c("가위","바위","보"),
                  selected = "가위")
      ),
      mainPanel(
        textOutput("selectedVar")
    )
  )
)

server <- function(input, output, session) {
  output$selectedVar <-  renderText(
    paste("경기결과 :",rps(input$var))
  )
}

if(interactive()){
  shinyApp(ui, server)  
}

pop

if("plotly" %in% installed.packages("plotly") == FALSE)install.packages("plotly")
library(plotly)
library(shiny)
data <- data.frame(
  Population <- sample(1:20,10,replace = T),
  HouseHolds <- sample(1:20,10,replace = T),
  year <- sample(c(2000,2010),10,replace = T)
)

ui <- fluidPage(
  titlePanel(
  title = h4("인구 조사", align = "center")
),
  sidebarPanel(
   sidebarLayout(
    radioButtons("YEAR","10년 주기선택",
                 choices = c("2000", "2010"),
                 selected = "2000"
                 )
   )
  ),
  mainPanel(
    plotOutput("bar",height=500)
  )
)

server <- function(input, output, session){
  reactive_data <- reactive({
    selected.year <- as.numeric(input$YEAR)
    return(data[data$year == selected_year])
  })
  output$bar <- renderPlot({
    color <- c("blud", "red")
    our_data <- reactive_data()
    barplot(colSums(our_data[,c("Population","HouseHolds")]),
      ylab <- "Total",
      xlab <- "Census Year",
      names.arg = c("Population","HouseHolds"),
      col = color)
  })
}

shinyApp(ui, server)