Commit 447a1704 authored by mmassaviol's avatar mmassaviol
Browse files

Update (open links in new tabs)

Limit threads available
parent 3e16c91b
......@@ -57,7 +57,7 @@ generate_page_input <- function(res, cnt) {
res <- res + '\t\tp("'+cnt$label+'")'
}
if(cnt$type == "link") {
res <- res + '\t\tp("'+cnt$label+'",a(href="'+cnt$href+'","'+cnt$href+'"))'
res <- res + '\t\tp("'+cnt$label+'",a(href="'+cnt$href+'","'+cnt$href+'",target="_blank"))'
}
if(cnt$type == "select") {
......@@ -722,7 +722,7 @@ generate_menu <- function() {
res <- res + '\ttags$br(),\n\n'
res <- res + '\tnumericInput("cores", label = "Threads available", min = 1, max = NA, step = 1, width = "auto", value = 4),\n'
res <- res + '\tnumericInput("cores", label = "Threads available", min = 1, max = 16, step = 1, width = "auto", value = 4),\n'
# select step to reach
choices = "list("
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment