rshinyshinydashboard
Using inputs to reactively call a dataframe in a reactive list?
I have a simple shiny app that has lists loaded into it. I am trying to use some user inputs to call the data needed. Although when I use a paste0 to create the name of the list and dataframe it is not being called.
As you can see below: I have two valueboxes. The first one I am just calling the full list/dataframe which is Store1_2021$Bakery %>% nrow().
The second 1 I am using a paste0() function to try to replicate but its printing as text instead of calling the dataframe.
I'm not sure if this is best practice but if anyone has any solutions I would appreciate it.
## app.R ##
library(shiny)
library(shinydashboard)
Store1_2021 <- list(Bakery = structure(list(Sales = c(23, 33, 124, 133), Item = c("Bread",
"Bread", "Bread", "Torillas"), Units = c(1, 3, 2, 4)), row.names = c(NA,
-4L), class = "data.frame"), Electronics = structure(list(Sales = c(23,
33, 124, 133), Item = c("Tv", "Tv", "Tv", "Speaker"), Units = c(1,
3, 2, 4)), row.names = c(NA, -4L), class = "data.frame"))
Store2_2021 <- list(Bakery = structure(list(Sales = c(23, 133, 124, 23), Item = c("Bread",
"Torillas", "Bread", "Bread"), Units = c(1, 3, 2, 4)), row.names = c(NA,
-4L), class = "data.frame"), Electronics = structure(list(Sales = c(23,
33, 124, 12), Item = c("Speaker", "Tv", "Tv", "Speaker"), Units = c(1,
3, 2, 4)), row.names = c(NA, -4L), class = "data.frame"))
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
selectInput("store","Select Store:", choices = c(1,2)),
selectInput("department", "Select Department:", choices = c("Bakery","Electronics"))
),
dashboardBody(
fluidRow(
valueBoxOutput("box1"),
valueBoxOutput("box2")
)
)
)
server <- function(input, output) {
output$box1 <- renderValueBox({
valueBox(
Store1_2021$Bakery %>% nrow()
,
"No of Transactions (rows)",
icon = icon("users"),
color = "blue"
)
})
output$box2 <- renderValueBox({
valueBox(
paste0("Store",input$store,"_2021","$",input$department)
,
"No of Transactions (rows)",
icon = icon("users"),
color = "blue"
)
})
}
shinyApp(ui, server)
Solution
Try this
## app.R ##
library(shiny)
library(shinydashboard)
Store1_2021 <- list(Bakery = structure(list(Sales = c(23, 33, 124, 133), Item = c("Bread",
"Bread", "Bread", "Torillas"), Units = c(1, 3, 2, 4)), row.names = c(NA,
-4L), class = "data.frame"), Electronics = structure(list(Sales = c(23,
33, 124, 133), Item = c("Tv", "Tv", "Tv", "Speaker"), Units = c(1,
3, 2, 4)), row.names = c(NA, -4L), class = "data.frame"))
Store2_2021 <- list(Bakery = structure(list(Sales = c(23, 133, 124, 23), Item = c("Bread",
"Torillas", "Bread", "Bread"), Units = c(1, 3, 2, 4)), row.names = c(NA,
-4L), class = "data.frame"), Electronics = structure(list(Sales = c(23,
33, 124, 12), Item = c("Speaker", "Tv", "Tv", "Speaker"), Units = c(1,
3, 2, 4)), row.names = c(NA, -4L), class = "data.frame"))
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
selectInput("store","Select Store:", choices = c(1,2)),
selectInput("department", "Select Department:", choices = c("Bakery","Electronics"))
),
dashboardBody(
fluidRow(
valueBoxOutput("box1"),
valueBoxOutput("box2")
)
)
)
server <- function(input, output) {
output$box1 <- renderValueBox({
valueBox(
Store1_2021$Bakery %>% nrow()
,
"No of Transactions (rows)",
icon = icon("users"),
color = "blue"
)
})
mystore <- reactive({get(sprintf("Store%s_2021",input$store))})
mydept <- eventReactive(c(mystore(),input$department), {
mystore()[[input$department]]
})
output$box2 <- renderValueBox({
valueBox(
nrow(mydept())
,
"No of Transactions (rows)",
icon = icon("users"),
color = "red"
)
})
}
shinyApp(ui, server)
- How to add a hover-over tooltip to rhandonstable header cell?
- How to detect the right encoding for read.csv?
- Rcpp Rf_warningcall compiler warnings
- Modify the name of factor variables in lm function(summary function)
- Extreme value analysis and quantile estimation using log Pearson type 3 (Pearson III) distribution - R vs Python
- How to hide NAs when using xlsx::saveWorkbook?
- How do I retrieve a simple numeric value from a named numeric vector in R?
- Adding an image in navbar and adjusting alignment in Rmarkdown
- Matching pair-wise columns from left to right across rows in one dataframe to another dataframe and adding new columns with matching values
- Income to outcome flow chart in Sankey plotly R
- color mapping in geom_conn_bundle not showing correctly
- Print R package startup message AFTER automatic package conflict messages instead of before
- Summing a set of R dataframe rows (column-wise), while retaining the first n columns
- Added variable / partial regression plots for groups in an interaction?
- how to make a topoplot in R with coordinates variable distribution
- List of all functions in base R?
- Plotting multiple plots for different initial conditions in one graph
- Printing repetitively on the same line in R
- Generating UI/Server based on initial selection
- Subset dataframe based on pickerInput
- How to let user pick the data in R-shiny?
- Couldn't show my simple bar charts separately on Shiny R dashboardBody
- How to programmatically filter contents of a second shiny app displayed via iframe
- How to select specific interesting groups for the boxplot in R Shiny app?
- Crosstable and Plot grouping with reactive values
- Is there a way to make multiple Shiny picker inputs where the selections must be disjoint?
- Delay/avoid duplication of shiny server side functions until after credentials
- Predictions only returns value "1"
- How to display a busy indicator in a shiny app?
- Append doesn't work when writing to CSV in R