小编Pat*_*ada的帖子

受到这个答案的启发，我想在 R 中使用例如这个数据框

input <- data.frame(text = c("a", "b", "c"), 
                    page_number = c(3, 5, 6))

从文本中创建一个列表，该列表链接到不同的 page_numbers。该解决方案描述了如何在 Markdown 中使用 JavaScript，但不幸的是没有描述如何在代码块中使用它（这是动态创建列表所必需的）。

我的情况如下:我有一个动作按钮(下一个)和一些单选按钮.每次,我单击动作按钮,不应选择单选按钮,输入值,例如input $ radio应重置为NULL(如开头).我在服务器文件中的方法如下:

observeEvent(input$Next, {
   updateRadioButtons(session, "choice", label = "", choices = list("A" = 1, "B" = 2, "C" = 3), selected = FALSE)
})

这适用于我们称之为布局.每次按下按钮,都不再显示之前的选择.但是,输入$选项(从单选按钮输入)仍然具有与以前相同的值.但是,我想将它重置为NULL,因为我在单选按钮后面有一些条件面板,只有在输入$ choice!= null时才触发.我非常感谢任何帮助!

从以下字符串中仅提取数字2007的好方法是什么:

some_string <- "1_2_start_2007_3_end"

在我的情况下检测年份数的模式是:

• 4位数
• 被...围绕 "_"

我是使用正则表达式的新手.我尝试了以下方法:

 regexp <- "_+[0-9]+_"
 names <- str_extract(files, regexp)

但这并没有考虑到总有4位数字并输出下划线.

我是 puppeteer 的新手，一直在尝试单击 yahoo 上的某个按钮。我面临以下情况：

我尝试选择单击按钮，如下所示：

const [button] = await page.$x("//button[contains(., 'OK')]");
if (button) {
   await button.click();
}

可惜没有成功。我一般如何点击“确定”按钮？以及检查按钮是否存在的解决方案是什么。非常感谢您的帮助。

我有以下四个向量:

A <- c(5, 5, 5, 5, 5, 5, 5)
B <- c(6, 6, 6)
C <- c(7, 7, 7, 7)
D <- c(8, 8, 8, 8)

最后,我想将这个矢量列表(这里是4个矢量)转换成完整矢量的所有成对组合(即没有单个矢量的分裂)与最小长度为7的级联矢量.因此,一种可能的解决方案是:

s1 <- c(5, 5, 5, 5, 5, 5, 5, 6, 6, 6)
s2 <- c(7, 7, 7, 7, 8, 8, 8, 8)

我该怎么办？

假设我有以下网址：

http://linkinghub.elsevier.com/retrieve/pii/S1755534516300379

当我将其输入到我的标准桌面浏览器时，我被重定向到：

http://www.sciencedirect.com/science/article/pii/S1755534516300379?via%3Dihub

但是，我无法在 R 中实现这一点。我尝试了 httr 和 RCurl 包。在httr的文档中，它说函数GET的使用如下：

library(httr)
GET("http://linkinghub.elsevier.com/retrieve/pii/S1755534516300379")

应该会导致实际使用的网址（在任何重定向之后）。但是调用url时：

GET("http://linkinghub.elsevier.com/retrieve/pii/S1755534516300379")$url

我没有得到最终的重定向。我非常感谢您的帮助！

问题很简单。我开始使用dplyr，但无法提出如何对每一行中的值进行排名的解决方案。最终目标是为每个值和每一行分配一个等级。我尝试了以下无效的方法：

mat_agg %>% rowwise() %>% mutate_each(funs(rank))

一个例子是：

matrix(c(1,0,0.5,0.5, 0, 1),nrow=2)

理想的结果将是：

matrix(c(1,3,2,2, 3, 1),nrow=2)

我非常感谢您的帮助。谢谢！

有以下向量:

c("test1","test2","test3")

我想获取包含以下条目的列表或数据框:

"test1" "test2" "test3"
"test1" "test2" NA
"test1" NA "test3"
"test1"  NA NA
NA  "test2" "test3"
NA  "test2" NA
NA  NA "test3"

目标是获得所有可能的子集,而顺序无关紧要,即"text1""text2"NA等同于"text2""text1"NA.我非常感谢任何帮助!

我有两个数据框列表.我们称之为list_A和list_B.

df1 = data.frame(matrix(rnorm(4), nrow=2))
df2 = data.frame(matrix(rnorm(4), nrow=2))
df3 = data.frame(matrix(rnorm(4), nrow=2))
df4 = data.frame(matrix(rnorm(4), nrow=2))

list_A <- list(df1,df2)
list_B <- list(df3,df4)

我现在如何以元素方式在列表上应用一些自定义函数？例如,将df1与df3相乘,df2与df4相乘.然后,函数应该获取列表的前两个数据帧,将它们定义为矩阵并将它们相乘.我非常感谢任何帮助!

我对 Python 很陌生，刚刚开始使用字典。我有以下问题：

给定以下字典：

{'Berlin': {'Country': 'Germany', 'Population': 3.502},
'New York': {'Country': 'USA', 'Population': 8.406},
'Munich': {'Country': 'Germany', 'Population': 1.388}, ... }

我如何总结各国的人口？谢谢！

以下示例非常简单,可以更容易地解决.但是,我有兴趣让它发挥作用.以下示例基于sashelp-library的cars-dataset.首先,我有一个名为fun的宏:

proc contents data = sashelp.cars out = mycontents;
run;

%macro fun(var);
proc sql noprint;
        select count(distinct(&var.))
        into :obs
        from sashelp.cars;
quit;
%mend;

现在我想调用宏但只是更新obs(来自输入语句).我用:

data work.test;
set mycontents;
if name ne "Type" then do;
      call execute('%nrstr(%fun('||name||');');
      new = &obs;
end;
else new = 5;

跑;

简而言之,这应该迭代mycontents的行.然后根据名称调用一个(多个)宏,更新obs.然后我可以简单地用obs填充新列new.但是,obs对所有名称保持相同的值,这是最后一个变量的值.

问题很简单.首先,我在渲染图中尝试了if-else条件.就像是

if (input$Next > 0) {
   plot(...)
}
else {
   return()
}

这没用.即使尚未满足条件,也会显示稍后放置绘图的灰色区域.在下一步中,我尝试使用验证(请参阅 此处).我基本上复制了给定示例中的代码.但是,当实际上不满足条件时,它仍然显示灰色区域.我目前的尝试如下:

ui.R

shinyUI(fluidPage(
   sidebarPanel(
      plotOutput("test"),
      actionButton("Next", "Next")
))

server.R

shinyServer(function(input, output, session) {
function(input, output) {
  output$test <- renderPlot({
     validate(
        need(input$Next > 0)
     )
     pt <- plot(input$Next,2)
     print(pt)
  })
}
})

绘图功能仅用于说明.我看起来不一样.任何帮助都非常感谢!

我的情况如下.我有一个包含产品层次结构的表.下表是数据集的摘录:

child    parent
  1        2
  2        3
  4        5
  6        7

我想添加一个包含层次结构深度(子)的列.如下:

child    parent   depth
  1        2        2
  2        3        1
  4        5        1
  6        7        1

我怎么能在甲骨文那样做？谢谢!