@@ -26,10 +26,12 @@ html.viewHTML <- function() {
26
26
27
27
28
28
html.header <- function () {
29
- func.call <- deparse(getOption(" packagefinder.call" , " " ))
30
- call.info <- paste0(" <form>Original call: <input type=\" text\" readonly size=" , round(nchar(func.call )* 1.5 ,0 )," style=\" border:0px;font-family:'Cutive Mono';font-size:17px\" value='" , func.call ," ' id=\" code\" ><br><input type=\" button\" value=\" Copy to clipboard\" class=\" button\" onclick=\" var copyText=document.getElementById('code');copyText.select(); document.execCommand('copy')\" ></form>" )
31
- keywords.info <- paste(paste0(" <span style=\" font-weight:bold;\" >" , getOption(" packagefinder.keywords" , " " ), " </span>" ), collapse = paste0(" <span style=\" color:#cfcfcf;\" >" , getOption(" packagefinder.mode" , " " ), " </span> " ))
32
- html.code <- paste0("
29
+ func.call <- deparse(getOption(" packagefinder.call" , " " ))
30
+ call.info <- paste0(" <form>Original call: <input type=\" text\" readonly size=" , round(nchar(func.call )* 1.5 ,0 )," style=\" border:0px;font-family:'Cutive Mono';font-size:17px\" value='" , func.call ," ' id=\" code\" ><br><input type=\" button\" value=\" Copy to clipboard\" class=\" button\" onclick=\" var copyText=document.getElementById('code');copyText.select(); document.execCommand('copy')\" ></form>" )
31
+ keywords.info <- paste(paste0(" <span style=\" font-weight:bold;\" >" , getOption(" packagefinder.keywords" , " " ), " </span>" ), collapse = paste0(" <span style=\" color:#cfcfcf;\" >" , getOption(" packagefinder.mode" , " " ), " </span> " ))
32
+ if (getOption(" packagefinder.searchtype" , " " ) == " query" ) searchtype <- " (regular expression)"
33
+ else searchtype <- " (keywords)"
34
+ html.code <- paste0("
33
35
<table>
34
36
<tr>
35
37
<td style=\" width:20%\" >
@@ -38,7 +40,7 @@ html.header <- function() {
38
40
<td style=\" padding-left:20px; width:80%\" >
39
41
<p style=\" font-size:36px;\" >Search Results</p>
40
42
<p>" , call.info , " </p>
41
- <p>Search query : " , keywords.info , " </p>
43
+ <p>Search" , searchtype , " : " , keywords.info , " </p>
42
44
<p><span style=\" font-weight:bold\" >" , getOption(" packagefinder.num.results" , " " ) ," </span> of <span style=\" font-weight:bold\" >" , getOption(" packagefinder.num.cran" , " " ), " </span> CRAN packages found in <span style=\" font-weight:bold\" >" , getOption(" packagefinder.timediff" , " " ), " </span> seconds.</p>
43
45
</td>
44
46
</tr>
@@ -58,7 +60,7 @@ html.colorscore <- function(scores) {
58
60
red <- format(as.hexmode(255 - round(255 * scores / 100 ,0 )), width = 2 )
59
61
green <- format(as.hexmode(255 ), width = 2 )
60
62
blue <- format(as.hexmode(255 - round(255 * scores / 100 ,0 )), width = 2 )
61
-
63
+
62
64
return (paste0(" #" , red , green , blue ))
63
65
}
64
66
@@ -76,9 +78,9 @@ html.formatdf <- function(df) {
76
78
keywords <- getOption(" packagefinder.keywords" , NULL )
77
79
df [," Long Description" ] <- textutils :: HTMLencode(df [," Long Description" ])
78
80
df [,NCOL(df )] <- NULL # Cut-off GO number
79
- # df[, "Score"] <- paste0(format(df[, "Score"], nsmall=1), "<span style=\"padding-left:10px; color:", html.colorscore(df[, "Score"]),"\">", html.getbar(df[, "Score"]), "</span>")
81
+ # df[, "Score"] <- paste0(format(df[, "Score"], nsmall=1), "<span style=\"padding-left:10px; color:", html.colorscore(df[, "Score"]),"\">", html.getbar(df[, "Score"]), "</span>")
80
82
df [, " Score" ] <- paste0(format(df [, " Score" ], nsmall = 1 ), " <span style=\" padding-left:10px; color:#1ddb1d\" >" , html.getbar(df [, " Score" ]), " </span>" )
81
-
83
+
82
84
if (" Total Downloads" %in% colnames(df )) df [," Total Downloads" ] <- NULL
83
85
df [," Total Downloads" ] <- paste0(" <img src=\" https://cranlogs.r-pkg.org/badges/grand-total/" , df $ Name ," \" />" )
84
86
linkspart.manual <- paste0(" <a target=\" _blank\" href=\" https://cran.r-project.org/web/packages/" , df $ Name , " /" , df $ Name , " .pdf\" ><img style=\" align-vertical:middle; padding-right:5px; width:28px\" src=\" http://www.zuckarelli.de/files/pdf-col.png\" /></a>" )
@@ -87,13 +89,13 @@ html.formatdf <- function(df) {
87
89
df $ Links <- paste0(" <div>" , linkspart.manual , linkspart.cranpage , linkspart.google , " </div>" )
88
90
df [," Install code" ] <- paste0(" <form> <input type=\" button\" class=\" button\" value=\" Copy\" onclick=\" var copyText=document.getElementById('install_" ,df $ Name ," ');copyText.select(); document.execCommand('copy')\" ><input type \" text\" style=\" position: relative; left: -10000px;\" id=\" install_" , df $ Name ," \" value=\' install.packages(\" " ,df $ Name ," \" , dependencies = TRUE)'></form>" )
89
91
df $ Name <- paste0(" <a href=\" https://cran.r-project.org/package=" , df $ Name , " \" >" , df $ Name , " </a>" )
90
-
92
+
91
93
for (i in 1 : NROW(keywords )) {
92
94
df $ Name <- gsub(paste0(" (.*^=" ,keywords [i ]," )" ), " <span style=\" background-color:#e6f1ff\" >\\ 1</span>" , df $ Name , ignore.case = TRUE , perl = TRUE )
93
95
df [," Short Description" ] <- gsub(paste0(" (" ,keywords [i ]," )" ), " <span style=\" background-color:#e6f1ff\" >\\ 1</span>" , df [," Short Description" ], ignore.case = TRUE , perl = TRUE )
94
96
df [," Long Description" ] <- gsub(paste0(" (" ,keywords [i ]," )" ), " <span style=\" background-color:#e6f1ff\" >\\ 1</span>" , df [," Long Description" ], ignore.case = TRUE , perl = TRUE )
95
97
}
96
-
98
+
97
99
css.cols <- rep(" " , NCOL(df ))
98
100
css.cols [1 ] <- " border-bottom:1pt solid #d1d1d1; padding: 7px; vertical-align:top"
99
101
css.cols [2 ] <- " border-bottom:1pt solid #d1d1d1; padding: 7px; width:8%; vertical-align:top"
@@ -102,7 +104,7 @@ html.formatdf <- function(df) {
102
104
css.cols [5 ] <- " border-bottom:1pt solid #d1d1d1; padding: 7px; vertical-align:top; text-align:center"
103
105
css.cols [6 ] <- " border-bottom:1pt solid #d1d1d1; padding: 7px; width:10%; vertical-align:top; text-align:center"
104
106
css.cols [7 ] <- " border-bottom:1pt solid #d1d1d1; padding: 7px; vertical-align:top; text-align:center"
105
-
107
+
106
108
html.code <- htmlTable :: htmlTable(
107
109
df ,
108
110
align = paste0(c(rep(" l" , NCOL(df )- 2 )," c" , " c" )),
@@ -130,8 +132,8 @@ html.buildDoc <-function(body.html) {
130
132
</style>
131
133
</head>
132
134
<body style=\" font-family:'Hind Madurai'; color:#494949; backgroundcolor:#FFFFFF;\" >" ,
133
- body.html ,
134
- " </body>
135
+ body.html ,
136
+ " </body>
135
137
<html>" )
136
138
return (html.code )
137
- }
139
+ }
0 commit comments