model {
faster_rcnn {
num_classes: 37
image_resizer {
keep_aspect_ratio_resizer {
min_dimension: 600
max_dimension: 1024
}
}
feature_extractor {
type: 'faster_rcnn_resnet101'
first_stage_features_stride: 16
}
如果我想在从csv文件中选择的作者中传递超过10000个名称,我该怎么做。
我希望在将结果“ n”绑定后将结果写入.csv文件。 像具有两列(名称,性别)和超过10000行(例如jyoti paswan,female)的表格形式
答案 0 :(得分:0)
仅将名字传递给API,因为它返回1: ffmpeg -i input.mp4 -filter_complex "[0:v]trim=0:1.8,setpts=PTS-STARTPTS[v1]; [0:v]trim=1.8:3,setpts=PTS-STARTPTS[v2]; [0:v]trim=start=3,setpts=PTS-STARTPTS[v3]; [v2]setpts=PTS/0.22[slowv]; [v1][slowv][v3]concat=n=3:v=1:a=0[out]" -map "[out]" -c:v libx264 -preset ultrafast output.mp4
2: ffmpeg -i output.mp4 -i overlay.png -filter_complex "[0:v][1:v]overlay=38:950" -codec:a copy output1.mp4
3: ffmpeg -i output1.mp4 -vf "fade=type=out:duration=0.5:start_time=8.5" -c:a copy output2.mp4
4: ffmpeg -y -i output2.mp4 -i output1.avi -filter_complex "[0:v:0][1:v:0]concat=n=2:v=1[outv]" -map "[outv]" output.mp4
带有空格或姓氏的名字
NULL
具有要传递给函数的名称向量
gender_value<-function(author) {
au <-sub("([^,]+),\\s*(.*)", "\\2 \\1", author)
first_name <- sub("(.*)\\s+.*", "\\1", au)
r <- GET(paste0("https://genderapi.io/api?name=",first_name))
g <- content(r)$gender
g <- if (is.null(g)) NA else g
data.frame(author_name = au, gender = g)
}
,然后使用author_names <- c("nandan,vivek","paswan, jyoti")
将功能应用于每个名称。如果您要在数据框中传递名称,请使用lapply
而不是dataframe_name$column_name
。
author_names
您现在可以使用df <- do.call(rbind, lapply(author_names, gender_value))
df
# author_name gender
#1 vivek nandan male
#2 jyoti paswan female
将df
写入csv
write.csv