R/google_list2df.R

In statkclee/suggestK: Crawl and Visualize Related Search Terms from the Major Search Engines in Korea

#' Google List to Dataframe
#'
#' The function convert list to dataframe.
#' It receives the input from the Google related search terms
#' in the form of list data structure.
#' It convert the list datatype into the dataframe.
#'
#' The return ouput will be used for the subsequent data analysis and visualization
#'
#' @param input_list Google search terms result which must be list datatype.
#' @param keyword search terms, keywords which supports Korean as well.
#' @keywords google, search terms, list to dataframe, conversion
#' @export
#' @examples
#' korea_list <- google_keyword("korea")
#' google_list2df(korea_list, "korea")

google_list2df <- function(input_list, keyword) {

  if(length(list(input_list, keyword)) != 2) {
    stop("At least two arguments needed!!")
  }

  suggest_df <- list2df(input_list) %>%
    rename(from=X2, to=X1) %>%
    select(from, to)

  R0R1_df <- suggest_df %>%
    filter(from == keyword)

  suggest_df_list <- list(R0R1_df, suggest_df)

  return(suggest_df_list)
}