In liao961120/pttR: Retrieve and Process Textual Data from PTT

knitr::opts_chunk$set(
    echo = FALSE,
    message = FALSE,
    warning = FALSE,
    collapse = TRUE,
    comment = "#>"
)
library(DependenciesGraphs)
devtools::load_all("..")
library(pttR)

lsp <- function(package, all.names = FALSE, pattern) 
{
  package <- deparse(substitute(package))
  ls(
      pos = paste("package", package, sep = ":"), 
      all.names = all.names, 
      pattern = pattern
  )
}

pkg_list <- lsp(pttR)

post_fc <- stringr::str_detect(pkg_list, "post")
idx_fc <- stringr::str_detect(pkg_list, "index|idx")

post_fc <- pkg_list[post_fc]
idx_fc <- pkg_list[idx_fc]

index2df()

dep <- funDependencies("package:pttR",
                       name.function = idx_fc)
plot(dep)

get_post()

dep <- funDependencies("package:pttR",
                       name.function = post_fc)
plot(dep)

liao961120/pttR documentation built on Dec. 16, 2019, 2:19 a.m.