1 shiny.fluent 튜토리얼1

2 헬로월드

app.R 샤이니 파일에 ui, server를 한통에 담아 결과를 살펴본다.

2.1 코드

library(shiny)
library(shiny.fluent)

ui <- fluentPage(
    Text(variant = "xxLarge", "오픈 통계 팩키지")
)

server <- function(input, output, session) {}

shinyApp(ui, server)

2.2 실행결과

3 데이터셋

fluent.shiny 팩키지에는 iris, penguins 데이터처럼 샤이니 웹앱 개발을 위한 데이터셋이 내장되어 있다.

library(shiny.fluent)
library(tidyverse)

fluentSalesDeals  %>% 
  as_tibble() %>% 
  select("rep_name", "date", "deal_amount", "client_name", "city", "is_closed")
# A tibble: 100 x 6
   rep_name        date       deal_amount client_name        city      is_closed
   <chr>           <date>           <dbl> <chr>              <chr>         <int>
 1 Annie Lindqvist 2020-02-19      855987 JOHNSON & JOHNSON  NEW BRUN~         0
 2 Annie Lindqvist 2020-08-18      753174 MICROSOFT          REDMOND           1
 3 Annie Lindqvist 2020-10-14      702208 WELLS FARGO        SAN FRAN~         0
 4 Annie Lindqvist 2020-02-23      590190 MICROSOFT          REDMOND           0
 5 Annie Lindqvist 2020-10-12      405443 JOHNSON & JOHNSON  NEW BRUN~         0
 6 Annie Lindqvist 2020-10-18      714723 J.P. MORGAN CHASE  NEW YORK          0
 7 Annie Lindqvist 2020-11-22      455713 JOHNSON & JOHNSON  NEW BRUN~         0
 8 Annie Lindqvist 2020-05-08      809742 BANK OF AMERICA C~ CHARLOTTE         1
 9 Annie Lindqvist 2020-10-11      774241 J.P. MORGAN CHASE  NEW YORK          0
10 Annie Lindqvist 2020-04-22      678427 BANK OF AMERICA C~ CHARLOTTE         0
# ... with 90 more rows

  1. Appsilon, shiny.fluent 튜토리얼↩︎

 

데이터 과학자 이광춘 저작

kwangchun.lee.7@gmail.com