小编Pau*_*ula的帖子

我正在尝试将 Shiny 应用程序转换为 R 包，但我在处理有关 www 目录以及“松散”文件的所有问题时遇到了麻烦。

我闪亮的应用程序运行完美，但当我尝试“打包”它时，它不起作用。

我闪亮的应用程序目录：

+---my_shiny
|   +---app.R
|   +---utils.R
|   +---www
|       +---style.css
|       +---icon1.png
|       +---icon2.png
|       +---icon3.png
|       +---font.ttf

我的代码是这样开始的：

library(hrbrthemes)
library(tidyverse)
library(plotly)

source(here::here("utils.R"))

theme_set(theme_personalized())
update_geom_defaults("text", list(family = theme_get()$text$family))

ui <- navbarPage(
  "Example",
  id = "navbar",
  theme = "style.css",

现在我不知道如何将其转换为一个包，我可以在其中调用 myapp::appdemo() 并部署我的应用程序。

+---myapp
|   +---DESCRIPTION
|   +---NAMESPACE  
|   +---R
|       +---appdemo.R
|   +---inst
|       +---shiny/
|           +---app.R
|           +---utils.R
|           +---style.css
|           +---icon1.png
|           +---icon2.png
|           +---icon3.png
|           +---font.ttf

但它不起作用，我不知道如何做到这一点。

我有以下数据框：

df <- tribble(~ id,       ~ lon,              ~ lat,
                 1, -56.2112038,         -34.8358207,
                 2, -55.96403429999999,  -34.7260945,
                 3, -56.155449,          -34.9030824,
                 4, -55.2711453,         -34.8665964,
                 5, -56.210083,          -34.865306,
                 6, -56.0575984,         -34.8775368,
                 7, -54.9485448,         -34.9260087,
                 8, -56.146228,          -34.907991,
                 9, -56.1953583,         -34.8643363,
                 10, -56.1821508,        -34.8697975,
                 11, -56.1498662,        -34.8849854,
                 12, -56.1469807,        -34.9119864,
                 13, -56.155763,         -34.9154153,
                 14, -56.09861610000001, -34.8896448,
                 15, -56.15526680000001, -34.9189892,
                 16, -56.0582918,        -34.8873091,
                 17, -54.9529404,        -34.9221666,
                 19, -106.6971588,       -35.1366719,
                 20, -56.1616095,        -34.8937622)

我想要实现的是添加一个新列，说明在彼此相距 250 米的半径/距离内有多少个 ID。这个想法是取一行，“查看”坐标，看看该点是否在其他 id 的 250 米半径内以及它们中有多少。

我有这个向量：

vector <- c("XXXX-X-X", "---X-X-X", "--X---XX", "--X-X--X", "-X---XX-", "-X--X--X", "X-----XX", "X----X-X", "X---XX--", "XX--X---", "---X-XXX", "--X-XX-X")

我想检测出现 X 的最大连续次数。所以，我的预期向量是：

4, 1, 2, 1,2, 1, 2, 1, 2, 2, 3, 2

我有一个具有这些名称的数据框：

df <- tribble( ~ state, ~ county, ~ kfr_asian_pooled_p25, ~ kfr_asian_pooled_p75, 
               ~ kfr_black_pooled_p25, ~ kfr_black_pooled_p75, 
               ~ kfr_pooled_pooled_p25, ~ kfr_pooled_pooled_p75, ~ kfr_white_pooled_p25, 
               ~ kfr_white_pooled_p75, ~ kids_count, ~ kfr_asian_pooled_p25_se, 
               ~ kfr_asian_pooled_p75_se, ~ kfr_black_pooled_p25_se, 
               ~ kfr_black_pooled_p75_se, ~ kfr_white_pooled_p25_se, 
               ~ kfr_white_pooled_p75_se,
               1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17)

当然，数据集很大，但我想要实现的是利用其最大潜力来延长时间。我的意思是同时获取多个变量并旋转它们及其名称。

df <- tribble(~ state, ~ county, ~ kids_count,   ~ race, ~ percentile,   ~ se, ~ value,
                     1,       2,            3,  "asian",        "p25",   TRUE,   value,
                     2, …