R/mod_04_content.R

In tbradley1013/connectAnalytics: Rstudio Connect Analytics

# Module UI
  
#' @title   mod_04_content_ui and mod_04_content_server
#' @description  A shiny Module.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_04_content
#'
#' @keywords internal
#' @export 
#' @importFrom shiny NS tagList 
mod_04_content_ui <- function(id){
  ns <- NS(id)
  tagList(
    
  )
}
    
# Module Server
    
#' @rdname mod_04_content
#' @export
#' @keywords internal
    
mod_04_content_server <- function(input, output, session, r){
  ns <- session$ns
  
  observe({
    req(r$client, r$username)
    
    r$content <- connectapi::get_content(r$client, limit = Inf)
    
    r$user_content <- r$content %>% 
      dplyr::filter(owner_username == r$username)
  })
  
  observe({
    req(r$client, r$user_content, r$username)
    # browser()

    r$shiny_usage_all <- connectapi::get_usage_shiny(
      r$client,
      # content_guid = r$user_content$guid,
      from = r$from,
      to = (r$to + lubridate::days(1)),
      limit = Inf
    )

    r$static_usage_all <- connectapi::get_usage_static(
      r$client,
      # content_guid = r$user_content$guid,
      from = r$from,
      to = (r$to + lubridate::days(1)),
      limit = Inf
    )

    r$shiny_usage <- r$shiny_usage_all %>%
      dplyr::filter(content_guid %in% r$user_content$guid)

    r$static_usage <- r$static_usage_all %>%
      dplyr::filter(content_guid %in% r$user_content$guid)

  })
  
  
}
    
## To be copied in the UI
# mod_04_content_ui("04_content_ui_1")
    
## To be copied in the server
# callModule(mod_04_content_server, "04_content_ui_1")