CRAN Package Check Results for Package Diderot

Last updated on 2024-06-20 00:59:30 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.13 8.00 62.91 70.91 OK
r-devel-linux-x86_64-debian-gcc 0.13 5.74 47.42 53.16 OK
r-devel-linux-x86_64-fedora-clang 0.13 85.64 OK
r-devel-linux-x86_64-fedora-gcc 0.13 80.70 OK
r-devel-windows-x86_64 0.13 6.00 90.00 96.00 OK
r-patched-linux-x86_64 0.13 7.57 60.29 67.86 OK
r-release-linux-x86_64 0.13 5.19 60.51 65.70 OK
r-release-macos-arm64 0.13 37.00 OK
r-release-macos-x86_64 0.13 50.00 OK
r-release-windows-x86_64 0.13 7.00 366.00 373.00 ERROR
r-oldrel-macos-arm64 0.13 36.00 OK
r-oldrel-macos-x86_64 0.13 56.00 OK
r-oldrel-windows-x86_64 0.13 8.00 103.00 111.00 OK

Check Details

Version: 0.13
Check: examples
Result: ERROR Running examples in 'Diderot-Ex.R' failed The error most likely occurred in: > ### Name: plot_publication_curve > ### Title: Function to plot publication count timeseries > ### Aliases: plot_publication_curve 'Publication Timeseries' > > ### ** Examples > > ## Don't show: > # Generate corpora > corp1<-data.frame(Authors=paste("Author",round(runif(45,1,20)),sep=""),Title=paste("Title",seq(1,45), sep=""), Year=round(runif(45,1990,2018)), References=NA,stringsAsFactors=FALSE) > corp2<-data.frame(Authors=paste("Author",round(runif(65,15,35)),sep=""),Title=paste("Title",seq(46,110), sep=""), Year=round(runif(65,1990,2018)), References=NA, stringsAsFactors=FALSE) > > len1<-length(corp1$Authors) > len2<-length(corp2$Authors) > lnall<-len1+len2 > > for (i in seq(1:lnall)) { + str<-"" + for (j in seq(1:round(runif(1,1,4)))) { + rn<-round(runif(1,1,lnall)) + if (rn > len1) { + str<-sprintf("%s %s. %d. %s;", str, corp2$Authors[rn-len1], corp2$Year[rn-len1], corp2$Title[rn-len1]) + } else { + str<-sprintf("%s %s. %d. %s;", str, corp1$Authors[rn], corp1$Year[rn], corp1$Title[rn]) + } + } + if (i>len1) { + corp2$References[i-len1]<-str + } else corp1$References[i]<-str + } > > # Create joint references > for (i in seq(1:5)) { + corp1<-rbind(corp1, corp2[runif(1,1,len2),]) + corp2<-rbind(corp2, corp1[runif(1,1,len1),]) + } > > # Add duplicate entry > corp1<-rbind(corp1, corp1[1,]) > > tempfi1<-file.path(tempdir(),"corpus1.csv") > tempfi2<-file.path(tempdir(),"corpus2.csv") > write.csv(corp1, tempfi1) > write.csv(corp2, tempfi2) > ## End(Don't show) > > labels<-c("Corpus1","Corpus2") > > # Build a bibliographical dataset from Scopus exports > db<-create_bibliography(corpora_files=c(tempfi1,tempfi2), + labels=labels, keywords=NA) [1] "File D:\\temp\\RtmpSIxW0W/corpus1.csv contains 51 records" [1] "File D:\\temp\\RtmpSIxW0W/corpus2.csv contains 70 records" > ## Don't show: > unlink(c(tempfi1, tempfi2)) > ## End(Don't show) > > # Build graph > gr<-build_graph(db=db,small.year.mismatch=TRUE, attrs=c("Corpus","Year","Authors"), nb.cores=1) Error in makePSOCKcluster(names = spec, ...) : Cluster setup failed. 1 worker of 1 failed to connect. Calls: build_graph -> <Anonymous> -> makePSOCKcluster Execution halted Flavor: r-release-windows-x86_64