小编Cle*_*ang的帖子

我正在尝试在我部署的 Shiny 应用程序上使用 RSelenium 进行充电测试。多个用户连接到该地址并同时执行随机任务。

我已经搜索过，doParallel但并发进程的数量受核心数量的限制 - 1。

我尝试了以下命令行同时在后台启动 N 个进程。给出一个数字作为参数来定义浏览器的端口。它一直工作到 3 个进程，但在某些进程失败并且并不总是相同的。

'start /b "P1" Rscript R/run_tests.R 1 &
start /b "P2" Rscript R/run_tests.R 2 &
start /b "P3" Rscript R/run_tests.R 3 &
start /b "P4" Rscript R/run_tests.R 4 &
start /b "P5" Rscript R/run_tests.R 5'

run_tests 打开一个新的网络驱动程序并在网页上导航。

一个解决方案是让几个同事为 3 个进程运行此代码，但我想达到 20 个用户。

Windows 上的回答会更受欢迎，但 Linux 不是问题。您知道使用 RSelenium 执行此操作的正确方法吗？非常感谢任何线索。

我正在尝试创建一个空的，plotly并带有一条消息，说明为什么该情节为空作为标题。我想将消息水平和垂直居中。

我缺少垂直中心：

empty_plot <- function(title = NULL){
  p <- plotly_empty(type = "scatter", mode = "markers") %>%
    config(
      displayModeBar = FALSE
    ) %>%
    layout(
      title = title
    )
  return(p)
}

empty_plot("Why it is empty")

这是一个简单的问题，但我不明白为什么我的简单按钮按下不显示文本。

我有一个actionButtonID为“go”的。当用户按下按钮时，我只想在我的textOutput框中显示“按钮已按下”。我还想在R控制台窗口中显示一条消息。

library(shiny)
ui <- fluidPage(
    actionButton("go", "Go"),
    verbatimTextOutput("text", placeholder = TRUE)
)

server <- function(input, output) {
  displayText <- eventReactive(input$go, {
    output$text <- renderText("Button Pressed")
  })
}

shinyApp(ui, server)

现在，我的“GO”按钮已显示，在正下方我看到一个TextOutput框，里面什么也没有（如预期的那样）。但是，当我按下按钮时，什么也没有发生。我正在尝试显示“按下按钮”。

由于某种原因我不得不卸载Anaconda并重新安装。我正在尝试再次安装R，但它需要很长时间。我早上（上午 10 点）开始安装，但它仍然显示正在安装R（下午 5 点）。我没有使用Anaconda prompt但是Anaconda Navigator。我以前已经成功地完成过此操作，并且上次完成时并没有花费太多时间。大家觉得问题出在哪里呢？

我有两个数据要在散点图中进行比较。

data1 <-c(0.341, 0.655, 0.934, 1.741)
data2 <-c(1.8, 2, 2.4, 2.6)

通过下面的代码我得到了这个：

plot(data1, data2, main="Minute Max.", asp=1,
      xlab="Historical Values ", ylab="Disaggregated Values", pch=19)

我有三个愿望：

1）添加45度线

2）具有相同的坐标长度。对于上面的示例，您可以看到最大值。总价值为2.6。所以我希望我的散点图是正方形的。x 和 y 坐标长度都必须为 2.6。

3）我知道如何手动导出绘图。但是我应该使用哪个代码来导出绘图？

我想粘贴一个命名向量和一个字符串。有没有办法保留名字？

named <- c(first = "text 1", second = "text 2")
description <- c("description 1", "description 2")

预期结果是：

setNames(paste(named, description), names(named))

>                first                 second 
"text 1 description 1" "text 2 description 2" 

但这是重复的，因为名称已经在矢量中。还有其他方法可以保留名称而不重复访问变量吗？

paste(named, description)

> "text 1 description 1" "text 2 description 2"