小编Wil*_*Wil的帖子

构建 Docker 映像并指定端口后,闪亮的应用程序未显示

我目前正在尝试构建一个大型 Docker 映像并从中运行一个闪亮的应用程序,以便最终可以将其部署到 Unix 服务器。镜像构建成功;但是,当我去运行图像时,应用程序会运行并完全忽略指定的端口。

更奇怪的是,我首先构建了一个小型测试应用程序,并且这篇 SO 帖子(Shiny app docker 容器未在浏览器中加载)中的说明有效。我将测试应用程序中使用的相同样式复制到另一个 Shiny 应用程序中,但现在它不起作用。

我的 Docker 镜像的结构与 ShinyProxy 在其 Github 页面上使用的结构类似: https: //github.com/openanalytics/shinyproxy-template

|-- Dockerfile
|-- Rprofile.site
|-- app_stuff
    |-- app.R
    |-- accessory files called from app.R...
Run Code Online (Sandbox Code Playgroud)

我的Dockerfile如下:

# Install R version 3.5.1
FROM r-base:3.5.1

# system libraries of general use - I don't know if these are right ????
RUN apt-get update && apt-get install -y \
    default-jdk \
    libbz2-dev \
    zlib1g-dev \
    gfortran \ …
Run Code Online (Sandbox Code Playgroud)

r shiny docker dockerfile

6
推荐指数
1
解决办法
1774
查看次数

如何在 Rstudio 中创建一个分支的 git 分支以单独处理单个函数

我对 git 很陌生,但已经让我的开发和主分支正常工作并合并等。

我经常有独立和并行工作的单独功能,所以我不想将开发分支(可能有几个未完成的功能)合并到主分支,直到一切都完成。

所以问题是:对于每个函数,我应该创建一个单独的分支,它是开发分支的一个分支(以及我如何在 RStudio 中创建一个分支的这个分支?)还是应该简单地为每个合并的函数创建一个新分支直接进master?

git r rstudio

2
推荐指数
1
解决办法
1536
查看次数

如何查找一个向量中不在另一个向量中的元素(不使用setdiff)

我有两个向量

x <- c(1,2,2,3,4)

y <- c(1,2,3)
Run Code Online (Sandbox Code Playgroud)

而且我想获得x中不在y中的元素的另一个向量;因此在这种情况下(2,4)。

我已经尝试过使用setdiff()函数,但这没有考虑重复项(它只会返回4),因此我不确定该如何处理。

谢谢!

r set-difference

2
推荐指数
1
解决办法
67
查看次数

如何从 R 列值中删除前几个字符?

我有一列由“|”分隔的值组成 并生成了此代码,但它需要“|”之前的所有内容,而不是之后。请记住,此列是一个“因素”。

INV | Building One
BO | Building Twenty Five
VC | Corporate

sub("([A-Za-z]+).*", "\\1"
Run Code Online (Sandbox Code Playgroud)

如何删除“|”之前的第一部分 并在 R 中使用“sub”仅保留所有内容?

预期输出:

Building One
Building Twenty Five
Corporate

Run Code Online (Sandbox Code Playgroud)

regex r

2
推荐指数
1
解决办法
64
查看次数

编写 R 包时如何导入“%&gt;%”?

加载我正在编写的 R 包时遇到以下错误。

Error in nations %>% rvest::html_nodes(".x") %>% rvest::html_nodes(".y") %>%  : 
  could not find function "%>%"
Run Code Online (Sandbox Code Playgroud)

我不确定如何将它导入到我的 R 包中。这就是我的功能设置方式

 nations_url_odd<-nations %>%
    rvest::html_nodes('.x') %>%
    rvest::html_nodes('.y') %>%
    rvest::html_nodes('a')
Run Code Online (Sandbox Code Playgroud)

r pipe magrittr r-package

1
推荐指数
1
解决办法
116
查看次数

从军用时间转换为标准时间,表示 AM/PM,使用 Lubridate 包

我正在尝试将作为数据框一部分的列从军事时间转换为标准时间。我还想指出 AM/PM。我试图在 R 的 lubridate 包的能力范围内做到这一点。

从另一个名为“df”的数据框我创建了一个名为“out”的新数据框,代码如下:

out <- df %>% mutate(NewDate = parse_date_time(CreatedDate, orders = "mdy IMS p")) %>%
  select(CreatedDate, NewDate) 
Run Code Online (Sandbox Code Playgroud)

我使用 mutate 函数操作的“df”列(称为“CreatedDate”)具有如下所示的单元格:

01/01/2019 02:12:37 PM
01/01/2019 10:37:57 PM
01/02/2014 05:10:35 AM
Run Code Online (Sandbox Code Playgroud)

我操纵了该列以生成名为“NewDate”的新列,如下所示:

2018-04-12 11:11:26
2018-11-13 13:06:56
2018-04-16 05:30:13
Run Code Online (Sandbox Code Playgroud)

我正在尝试将“NewDate”列标准化,但要定期进行并包含 AM/PM 指定,就像在应用 parse_date_time 函数之前所做的那样。

我预计,通过在我的parse_date_time函数中包含“mdy IMS p” ,我会在我的 NewDate 列中生成如下所示的内容:

2018-04-12 11:11:26 AM
2018-11-13 01:06:56 PM
2018-04-16 05:30:13 AM
Run Code Online (Sandbox Code Playgroud)

r lubridate

0
推荐指数
1
解决办法
567
查看次数

标签 统计

r ×6

docker ×1

dockerfile ×1

git ×1

lubridate ×1

magrittr ×1

pipe ×1

r-package ×1

regex ×1

rstudio ×1

set-difference ×1

shiny ×1