R/mod_table1_utils_r_table.R

In mxblsdl/tableApp: PKG_TITLE

#' reactTable Template
#'
#' @param table Unfiltered datatable from
#' @param key Filter key, will be index in practice
#' @param bg background color specs
#'
#' @export
#'
r_table <- function(table, key, bg) {
  t <- table[table["Keyword"] == key, ]
  t <- stats::setNames(t["Topic"], "Details")

  reactable(
    t,
    wrap = T,
    theme = reactableTheme(backgroundColor = bg)
  )
}

#' Create Data
#'
#' @param url website to visit
#'
#' @importFrom rvest read_html html_table
#' @import dplyr
#' @export
#'
create_table_data <- function(url) {
  table <- read_html(url) %>%
    html_table() %>%
    as.data.frame()

  table <-
    table %>%
    select(Topic, Replies, Views, Activity) %>%
    filter(!grepl("Post Jobs", Topic)) %>%
    mutate(
      Topic = gsub("\n.*", "", Topic),
      Keyword = case_when(
        grepl("Shiny", Topic, ignore.case = T) ~ "Shiny",
        grepl("Data Scien.*", Topic, ignore.case = T) ~ "Data Scientist",
        grepl("Analyst", Topic, ignore.case = T) ~ "Analyst",
        grepl("database", Topic, ignore.case = T) ~ "Database",
        grepl("Engineer", Topic, ignore.case = T) ~ "Engineering",
        T ~ "Other"
      )
    )
  return(table)
}