forked from dreamRs/shinyWidgets
-
Notifications
You must be signed in to change notification settings - Fork 0
/
wNumbFormat.Rd
86 lines (67 loc) · 1.87 KB
/
wNumbFormat.Rd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/input-noUiSlider.R
\name{wNumbFormat}
\alias{wNumbFormat}
\title{Format numbers in noUiSliderInput}
\usage{
wNumbFormat(decimals = NULL, mark = NULL, thousand = NULL,
prefix = NULL, suffix = NULL, negative = NULL)
}
\arguments{
\item{decimals}{The number of decimals to include in
the result. Limited to 7.}
\item{mark}{The decimal separator. Defaults to \code{'.'}
if thousand isn't already set to \code{'.'}.}
\item{thousand}{Separator for large numbers. For example: \code{' '}
would result in a formatted number of 1 000 000.}
\item{prefix}{A string to prepend to the number. Use cases
include prefixing with money symbols such as \code{'$'} or \code{'€'}.}
\item{suffix}{A number to append to a number. For example: \code{',-'}.}
\item{negative}{The prefix for negative values. Defaults to \code{'-'}.}
}
\value{
a named list.
}
\description{
Format numbers in noUiSliderInput
}
\note{
Performed via wNumb JavaScript library : \url{https://refreshless.com/wnumb/}.
}
\examples{
\dontrun{
if (interactive()) {
library( shiny )
library( shinyWidgets )
ui <- fluidPage(
tags$h3("Format numbers"),
tags$br(),
noUiSliderInput(
inputId = "form1",
min = 0, max = 10000,
value = 800,
format = wNumbFormat(decimals = 3,
thousand = ".",
suffix = " (US $)")
),
verbatimTextOutput(outputId = "res1"),
tags$br(),
noUiSliderInput(
inputId = "form2",
min = 1988, max = 2018,
value = 1988,
format = wNumbFormat(decimals = 0,
thousand = "",
prefix = "Year: ")
),
verbatimTextOutput(outputId = "res2"),
tags$br()
)
server <- function(input, output, session) {
output$res1 <- renderPrint(input$form1)
output$res2 <- renderPrint(input$form2)
}
shinyApp(ui, server)
}
}
}