R Notebook

Packages

if("shiny" %in% installed.packages("shiny") == FALSE)install.packages("shiny")
library(shiny)
if("shinyjs" %in% installed.packages("shinyjs") == FALSE)install.packages("shinyjs")
library(shinyjs)

shinyApp()

rps <- function(x){
  # 가위 1, 바위 2, 보 3
  # a - b = 0 비김
  # a - b = 1,-2 b 패배
  # a - b = -1,2 b 승리
  comp <- sample(1:3,1,replace = T)
  user <- x
  result <- comp - user
  print(result) #과정이 궁금할 때  
  return(if(result == 1|result == -2)'패배'
         else if(result == -1|result == 2)'승리'
         else '비김')
}
rps(2)
ui <- shiny::fluidPage(
  useShinyjs(),
  numericInput("num1","첫번째 수 :",1,min = 1,max=3),
  shiny::actionButton("btn","클 릭")
)

server <- function(input, output, session){
  onclick("btn", info({rps(input$num1)
}))
 }

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