typo in function(input, output, server) (#456)

senad01 · web-flow · commit a3134ae8c84b · 2021-03-25T16:40:19.000-05:00
diff --git a/action-feedback.Rmd b/action-feedback.Rmd
@@ -260,7 +260,7 @@ ui <- fluidPage(
   textOutput("out")
 )
 
-server <- function(input, output, server) {
+server <- function(input, output, session) {
   output$out <- renderText({
     if (input$x < 0 && input$trans %in% c("log", "square-root")) {
       validate("x can not be negative for this transformation")

Original file line number	Diff line number	Diff line change
`@@ -260,7 +260,7 @@ ui <- fluidPage(`
`260`	`260`	`textOutput("out")`
`261`	`261`	`)`
`262`	`262`
`263`		`-server <- function(input, output, server) {`
	`263`	`+server <- function(input, output, session) {`
`264`	`264`	`output$out <- renderText({`
`265`	`265`	`if (input$x < 0 && input$trans %in% c("log", "square-root")) {`
`266`	`266`	`validate("x can not be negative for this transformation")`