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
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/hooks.R
\name{log_shiny_input_changes}
\alias{log_shiny_input_changes}
\title{Auto logging input changes in Shiny app}
\usage{
log_shiny_input_changes(
input,
level = INFO,
namespace = NA_character_,
excluded_inputs = character()
)
}
\arguments{
\item{input}{passed from Shiny's \code{server}}
\item{level}{log level}
\item{namespace}{the name of the namespace}
\item{excluded_inputs}{character vector of input names to exclude from logging}
}
\description{
This is to be called in the \code{server} section of the Shiny app.
}
\examples{
\dontrun{
library(shiny)
ui <- bootstrapPage(
numericInput("mean", "mean", 0),
numericInput("sd", "sd", 1),
textInput("title", "title", "title"),
textInput("foo", "This is not used at all, still gets logged", "foo"),
passwordInput("password", "Password not to be logged", "secret"),
plotOutput("plot")
)
server <- function(input, output) {
logger::log_shiny_input_changes(input, excluded_inputs = "password")
output$plot <- renderPlot({
hist(rnorm(1e3, input$mean, input$sd), main = input$title)
})
}
shinyApp(ui = ui, server = server)
}
}
|
