In lovetoken/rdevteam: R dev korea team package

library(rdevteam)
library(shiny)
library(flexdashboard)
library(dplyr)
library(DT)
library(networkD3)

Sidebar {.sidebar}

textInput("ui1", "Keyword", "banana")
actionButton("act", "Change apply")

d <- reactive({
  keyword <- input$ui1
  naverRelation(keyword, depth = 2)
})

Summary

Plot

renderForceNetwork({
  req(input$act)
  isolate({
    nr <- d()
    class(nr) <- append(class(nr), "nr", after = 0)
    plot(nr)
  })
})

Rawdata

renderDT({
  req(input$act)
  isolate({
    d() %>% datatable
  })
})

About

본 대쉬보드는 네이버 연관검색어 서비스를 기반으로 합니다.
사용된 도구는 R, Shiny package, flexdashboard package 등이 이용됩니다.

lovetoken/rdevteam documentation built on May 6, 2019, 9:54 a.m.