r - 了解 Shiny 应用程序中的测量指标及其链接

标签 r shiny

我有一个与此类似的已部署 Shiny 应用程序: https://menoretjl.shinyapps.io/MicroAnalysis/

我想跟踪用户对应用程序的使用情况,因此我使用 Shiny 仪表板中提供的测量指标:主要是“使用情况”(在帐户/使用情况中)、“连接”和“内存使用情况”(在应用程序/指标)。

以下是一天的三个指标。看起来他们是无关的:20:00有一个单一的短连接。或者有更多的内存使用量,甚至更多的使用量(今天使用了一个多小时!)。

基于这些事实,我的问题是:

  • 我不太了解这些指标中的每一个衡量的是什么。尤其是使用指标,或者这是计费计划的基础;

  • 我不太理解这三个指标之间的(第一个逻辑?!)联系。

Connection

Usage

最佳答案

这对我有用。您必须在 RStudio|Tools|Global Options|Publishing 中连接到相关的 shinyapps.io 帐户。

# download metrics from shinyapps.io

library(tidyverse)
library(lubridate)

# http://docs.rstudio.com/shinyapps.io/metrics.html#ApplicationMetrics
df <- rsconnect::showMetrics("container_status",
                             c("connect_count", 
                               "connect_procs"),
                             appName="pasture_embed",
                             server="shinyapps.io",
                             from="12w",
                             interval="1m"
                             ) 
df <- df %>%
  magrittr::set_colnames(c("connect_count", "dummy", "connect_procs", "timestamp")) %>%
  mutate(across(everything(), as.numeric))

df1 <- df %>% 
  mutate(date=as_datetime(timestamp)) %>% 
  select(-timestamp) %>% 
  arrange(date) %>% 
  mutate(
    n_count=cumsum(connect_count),
    n_procs=cumsum(connect_procs),
    new_connect=case_when(
      connect_count>lag(connect_count,1) ~ connect_count-lag(connect_count,1),
      TRUE ~ 0),
    n_connect=cumsum(new_connect) # approximate
  ) %>% 
  filter(n_count>0)

df2 <- df1 %>%  
  select(n_connect, date) %>% 
  gather(key="key", value="value", -date)

p2 <- ggplot(df2) +
  labs(title="Cumulative Connections", x="", y="") +
  geom_line(aes(x=date, y=value, colour=key)) +
  facet_wrap(~key)

print(p2)

关于r - 了解 Shiny 应用程序中的测量指标及其链接,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48044097/

相关文章:

r - 可拖动交互式条形图 R Shiny

r - 我可以在 Shiny 的 onSessionEnded 事件中访问 session 值吗?

r - 如何在 Shiny 的服务器中缓存数据?

javascript - Google Analytics for Shiny Dashboard App

r - 访问 SD 构造中的列名

r - rmarkdown 中的增量嵌套列表

r - 如何使我的 Shiny LeafletOutput 在 navbarPage 内具有高度 ="100%"?

r - 在包安装期间执行 R 脚本

r - 列是字符而不是因子有什么好的理由吗?

r - 通过单击 Shiny 应用程序中的链接打开不同的 Shiny 应用程序