小编Moh*_*mad的帖子

我有一个字符串向量,我想用不同的子字符串替换所有字符串中的一个公共子字符串.我在R中这样做.例如:

input=c("I like fruits","I like you","I like dudes")
# I need to do something like this
newStrings=c("You","We","She")
gsub("I",newStrings,input)

以便输出看起来像:

"You like fruits"
"We like you"
"She like dudes"

但是,gsub只使用newStrings中的第一个字符串.有什么建议？谢谢

我在RSelenium中使用以下代码来打开浏览器.关闭浏览器,甚至通过运行remDr $ close()关闭处理程序后,该端口仍在使用中.我必须去终端并手动终止进程,以便相同的端口可用.是否有任何自动化方式使RSelenium在完成抓取后使端口自由？

所以这是我的代码:

library(RSelenium)
rD <- rsDriver(verbose = FALSE,port=4444L)
remDr <- rD$client
remDr$close()

谢谢

我有以下代码:

library(rvest)
s <- html_session("http://had.co.nz")
s %>% jump_to("thesis/")
s %>% follow_link("vita")

现在我想确保导航到正确的网页,如何在Rstudio中可视化网页？

我知道这应该很简单,我只是不确定为什么这不起作用!请帮忙.我有以下代码:

RSelenium::startServer()
require(RSelenium)
remDr <- remoteDriver(remoteServerAddr = "localhost" 
                  , port = 4444
                  , browserName = "safari"
)
remDr$open()
remDr$navigate("http://www.cs.ucr.edu/~mshok002/")

接下来,我需要点击页面顶部的"教学"链接,我被困在这里.html代码在这里,我只是不确定如何使用remDr $ findElement找到它.如何搜索"Teaching"链接和html代码"Teaching.html"？

<a href="Teaching.html">Teaching</a>

非常感谢

我在R中使用RSelenium软件包进行网络抓取。有时，加载网页后，需要检查对象是否在网页中可见。例如：

library(RSelenium)

#open a browser
RSelenium::startServer()
remDr <- remoteDriver$new()
remDr <- remoteDriver(remoteServerAddr = "localhost" 
                  , port = 4444
                  , browserName = "firefox")
remDr$open()

remDr$navigate("https://www.google.com")
#xpath for Google logo
x_path="/html/body/div/div[5]/span/center/div[1]/img"

我需要做这样的事情：

if (exist(remDr$findElement(using='xpath',x_path))){
print("Logo Exists")
}

我的问题是应该为“ exist”使用什么功能？上面的代码不起作用，它只是一个伪代码。我还找到了一个代码，可用于使用对象的“ id”检查对象，这里是：

remDr$executeScript("return document.getElementById('hplogo').hidden;", args = list())

上面的代码仅适用于“ id”，我应该如何使用“ xpath”执行相同的操作？谢谢

在R中,我有一个字符串的矢量"myVector",我希望将其插入到mysql表"myTable"的列"myColumn"中.我知道我可以编写sql查询并使用dbSendQuery在R中运行它.所以让我们先找出sql查询.这是一个例子:

myVector = c("hi","I", "am")

让我们在myTable的myColumn列中插入myVector,行号为3到5,这里是sql查询,除了最后一行我不知道:

UPDATE myTable t JOIN
       (SELECT id
        FROM myTable tt
        LIMIT 3, 3
       ) tt
       ON tt.id = t.id
    SET myColumn = myVector;

谢谢

这就是我的意思：

indexes=c(1,NA,4)

现在，如果我执行以下操作，显然会因为 NA 而出现错误：

mpg[,indexes]

所以对于 NA 索引，我需要一个空列，换句话说，我想看到：

manufacturer  unknown   year
     audi        ""     1999
     audi        ""     1999
     ...         ...     ...

我正在尝试从下图中检测一个斑点。我使用了 skimage 并使用了手册中解释的 3 种不同方法，但它无法检测到灰色斑点。这是原始图像：

所以我尝试了以下代码：

from math import sqrt
import cv2
from skimage.feature import blob_dog, blob_log, blob_doh
from skimage.color import rgb2gray
import matplotlib.pyplot as plt

image = cv2.imread("blob800_cropped.png")
image_gray = rgb2gray(image)

blobs_log = blob_log(image_gray, max_sigma=30, num_sigma=10, threshold=.05)

# Compute radii in the 3rd column.
blobs_log[:, 2] = blobs_log[:, 2] * sqrt(2)

blobs_dog = blob_dog(image_gray, max_sigma=30, threshold=.05)
blobs_dog[:, 2] = blobs_dog[:, 2] * sqrt(2)

blobs_doh = blob_doh(image_gray, max_sigma=30, threshold=.01)

blobs_list = [blobs_log, blobs_dog, blobs_doh]
colors = ['yellow', 'lime', 'red']
titles …

我在Rstudio中的代码中输入了一个密码,我只是想以某种方式使它不清楚所以当我向某人显示我的代码时他们看不到密码.有关如何做到这一点的任何建议？非常感谢

我有这个字符串:

myStr <- "I am very beautiful btw"
str <- c("very","beauti","bt")

现在我想检查是否myStr包含所有字符串str,如何在R中执行此操作？例如上面应该是TRUE.非常感谢

我有两个相同长度的向量,我正在尝试将它们组合起来,以便它们填写彼此缺少的值.例如:

a=c("",1,2,"")
b=c(5,"","",6)

我正在寻找这个输出:

5 1 2 6

非常感谢

我有一个具有复杂格式的字符串,如何使用complex()将其视为复数？例如:

myStr="0.76+0.41j"

现在我想做某事:

myStr_complex=complex(myStr) # my question is how should I do this part?

终于

Im(myStr_complex)

应该打印

0.41

我有几个包含日期的文件名,我需要按数字顺序对它们进行排序,例如:

dates=c("8_18_2016.xlsx","8_25_2016.xlsx","8_4_2016.xlsx")

我想把它整理成:

> dates
"8_4_2016.xlsx"  "8_18_2016.xlsx"  "8_25_2016.xlsx"

谢谢