我有一个类似于这个的部署Shiny应用程序: https://menoretjl.shinyapps.io/MicroAnalysis/
我想跟随用户对应用的使用情况,因此我使用了Shiny信息中心中提供的衡量指标:主要是'用法' (在帐户/使用中),'连接'和'内存使用情况' (在应用程序/指标中)。
以下是一天的三个指标。它似乎与它们无关:在20:00有一个单一和短连接。或者有更多的内存使用,甚至更多的使用(今天超过一小时的使用!)。
基于这些事实,我的问题是:
我真的不明白这些指标的含义。特别是使用指标,或者这是结算计划的基础;
我真的不明白这三个指标之间的(第一个逻辑?!)链接。
答案 0 :(得分:1)
这对我有用。您必须已连接到RStudio |工具|全局选项|发布中的相关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"
)
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)