小编use*_*808的帖子

我正在构建一个闪亮的应用程序,用户点击图像,然后将它们推进到另一个图像.这似乎相对简单,但在用户查看第一张图片之前,他们需要输入他们的电子邮件地址.为了实现这一点,我一直在使用conditionalPanel只有在用户点击动作按钮后才显示第一张图像的地方.但是,当图像的面板嵌入其中时conditionalPanel,click参数imageOutput似乎停止工作.

我有一个目录images,其中包含9个图像,带有文件名1.png, 2.png...9.png(顺便说一句,如果有一种上传这个目录的方法,使这个例子更容易复制,我很乐意接受建议!).以下MWE - 不包含该conditionalPanel元素 - 效果很好:

library(shiny)

## User interface
ui <- fluidPage(
  h1("MWE",align="center"),
  fluidRow(
    column(4, conditionalPanel(condition = "input.signingo == 0", 
                               wellPanel(
                             textInput("who",label = "Please enter your email address.", value=""),
                             actionButton("signingo",label="Go.")
                           ))
),

column(6, align="center",
                        wellPanel(
                          imageOutput("image", height = 175, width = 116, click = "photo_click")
                        )
)
  )

) 

server <- function(input, output){

  values <- reactiveValues(i = 0, selections = sample(1:9,1))

  ## Load image …

虽然这个细节当然是应用程序特定的,但在SO精神中,我试图尽可能地保持这一点!基本问题是当一个data.frame具有特定日期而另一个具有日期范围时,如何按日期合并data.frames.其次,问题是如何处理给定变量的多个观察,以及如何将它们包含在最终输出data.frame中.我敢肯定其中一些是标准的,但一个非常完整的搜索几乎没有透露.

我正在尝试合并的mre对象如下.

# 'Speeches' data.frame
structure(list(Name = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("BBB", 
"AAA"), class = "factor"), Date = structure(c(12543, 12404, 12404, 
12404, 12373, 12362, 12345, 12320, 12207, 15450, 15449, 15449, 
15449, 15449, 15449, 15449, 15449, 15448, 15448, 15448), class = "Date")), .Names =     c("Name", 
"Date"), row.names = c("1", "1.1", "1.2", "1.3", "1.4", "1.5", 
"1.6", "1.7", "1.8", "2", "2.1", "2.2", "2.3", "2.4", "2.5", …

我正在运行此代码:

devtools::install_github("ropensci/RSelenium")
require(RSelenium)
RSelenium::checkForServer(update=T)
RSelenium::startServer()
remDr <- remoteDriver()
remDr$open()

并收到此错误:

[1] "Connecting to remote server"
Error:   Summary: UnknownError
     Detail: An unknown server-side error occurred while processing the command.
     class: org.openqa.selenium.WebDriverException

尽管搜索(诚实!),但我无法找出为什么会发生这种情况.任何人都可以提供的任何帮助将不胜感激.

谢谢!

我正在使用 Quarto 使用 RStudio 制作一些 Revealjs 幻灯片，并一直在使用该code-line-numbers选项来选择性地突出显示代码行。例如：

```{r, echo = TRUE}
#| code-line-numbers: "1|3"
x <- 1
y <- 2
x + y
x * y
```

允许我突出显示演示文稿中的第一行和第三行代码。

我还希望能够突出显示输出中的某些行。例如，如果我只想突出显示x+y但不突出显示结果x*y，有没有办法这样做？我想知道是否有一个选项output-line-number或类似的选项可以达到预期的效果，但找不到这样的东西。

任何指示表示赞赏！

如果我有一个数字向量[1 2 3 4 7 8 9 10 15 16 17],我该如何拆分它以便我返回多个向量来分隔该向量的连续元素？即[1 2 3 4] [7 8 9 10] [15 16 17].我在matlab中找到了如何做到这一点的答案,但我只使用了R.

谢谢.

我正在尝试使用包中的read_html函数rvest,但遇到了我正在努力解决的问题.

例如,如果我试图阅读此页面上显示的底部表格,我将使用以下代码:

library(rvest)
html_content <- read_html("https://projects.fivethirtyeight.com/2016-election-forecast/washington/#now")

通过检查浏览器中的HTML代码,我可以看到我想要的内容包含在<table>标记中(具体来说,它都包含在内<table class="t-calc">).但是当我尝试使用以下方法提取时:

tables <- html_nodes(html_content, xpath = '//table')

我检索以下内容:

> tables
{xml_nodeset (4)}
[1] <table class="tippingpointroi unexpanded">\n  <tbody>\n    <tr data-state="FL" class=" "> ...
[2] <table class="tippingpointroi unexpanded">\n  <tbody>\n    <tr data-state="NV" class=" "> ...
[3] <table class="scenarios">\n  <tbody/>\n  <tr data-id="1">\n    <td class="description">El ...
[4] <table class="t-desktop t-polls">\n  <thead>\n    <tr class="th-row">\n      <th class="t ...

其中包括页面上的一些表格元素,但不包括我感兴趣的表格元素.

关于我哪里出错的任何建议都将非常感谢!