add package cache for code_get function

Author: mrchypark

NAMESPACE

@@ -22,5 +22,5 @@ importFrom(rvest,html_attr)
 importFrom(rvest,html_nodes)
 importFrom(rvest,html_text)
 importFrom(stringr,str_sub)
-importFrom(tibble,as.tibble)
 importFrom(tibble,as_tibble)
+importFrom(tibble,tibble)

R/code_get.R

@@ -2,10 +2,14 @@
 #'
 #' Get code for korea finance market
 #'
-#' @return a [tibble][tibble::tibble-package]
+#' @param fresh get code on internet. Default is FALSE.
+#' @return a [tibble][tibble::tibble-package] with market, name, code column.
 #' @export
 #' @importFrom purrr map_dfr
-code_get <- function() {
+code_get <- function(fresh = FALSE) {
+  if (!fresh) {
+    return(code)
+  }
   c("stockMkt", "kosdaqMkt", "konexMkt") %>%
   purrr::map_dfr( ~ get_corps_info(.x)) %>%
   return()
@@ -45,7 +49,7 @@ get_corps_info <- function(market) {
     stringr::str_sub(22, 26) -> code
 
   return(
-    tibble::tibble(
+    tibble(
       market = market_name, name, code
     )
   )

R/sysdata.rda

@@ -2,5 +2,6 @@
 "_PACKAGE"
 
 ## usethis namespace: start
+#' @importFrom tibble tibble
 ## usethis namespace: end
 NULL

R/tqk-package.R

@@ -9,7 +9,6 @@
 #' @export
 #' @importFrom curl curl_fetch_memory
 #' @importFrom jsonlite fromJSON
-#' @importFrom tibble as.tibble
 #' @importFrom httr add_headers user_agent GET content
 #' @importFrom purrr transpose
 #' @importFrom tibble as_tibble
@@ -52,7 +51,7 @@ tqk_get <-
 
       dl <- lapply(cont, function(x)
         jsonlite::fromJSON(x)$list)
-      df <- tibble::as.tibble(do.call(rbind, dl))
+      df <- tibble::as_tibble(do.call(rbind, dl))
       if (tqform) {
         df <-
           df[, c("tradeDt",

R/tqk_get.R

@@ -0,0 +1,7 @@
+## code to prepare `code` dataset goes here
+
+library(tqk)
+
+code <- code_get(fresh = TRUE)
+
+usethis::use_data(code, overwrite = TRUE, internal = TRUE)