Unable to see this error log under the logs directory. Is there anything I am missing here ?
Listening on
http://127.0.0.1:7517Warning: Error in $.shinyoutput: Reading from shinyoutput object is not allowed.
50: stop
49: $.shinyoutput
47: server [/Users/sarvani/abc_def.R#41]
Error in `$.shinyoutput`(output, abc) :
Reading from shinyoutput object is not allowed.
Reprex:
library(shiny)
library(shinylogs)
ui <- fluidPage(
headerPanel("Iris k-means clustering"),
sidebarLayout(
sidebarPanel(
selectInput(
inputId = "xcol",
label = "X Variable",
choices = names(iris)
),
selectInput(
inputId = "ycol",
label = "Y Variable",
choices = names(iris),
selected = names(iris)[[2]]
),
numericInput(
inputId = "clusters",
label = "Cluster count",
value = 3,
min = 1,
max = 9
)
),
mainPanel(
plotOutput("plot1")
)
)
)
server <- function(input, output, session) {
# Store JSON with logs in the temp dir
track_usage(
storage_mode = store_json(path = "logs/"),what = c("session", "error")
)
output$abc
# classic server logic
selectedData <- reactive({
iris[, c(input$xcol, input$ycol)]
})
clusters <- reactive({
kmeans(selectedData(), input$clusters)
})
output$plot1 <- renderPlot({
palette(c(
"#E41A1C", "#377EB8", "#4DAF4A", "#984EA3",
"#FF7F00", "#FFFF33", "#A65628", "#F781BF", "#999999"
))
par(mar = c(5.1, 4.1, 0, 1))
plot(selectedData(),
col = clusters()$cluster,
pch = 20, cex = 3
)
points(clusters()$centers, pch = 4, cex = 4, lwd = 4)
})
}
shinyApp(ui = ui, server = server)