library(shiny)
library(dplyr)
ui <- fluidPage(
uiOutput("slider_periodo"),
tableOutput(outputId = "tabela")
)
server <- function(input, output, session) {
imdb <- readr::read_rds("../dados/imdb.rds")
output$slider_periodo <- renderUI({
sliderInput(
inputId = "periodo",
label = "Selecione o perĂodo",
min = min(imdb$ano, na.rm = TRUE),
max = max(imdb$ano, na.rm = TRUE),
value = c(2000, 2010),
step = 1,
sep = ""
)
})
output$tabela <- renderTable({
imdb %>%
filter(ano %in% input$periodo[1]:input$periodo[2]) %>%
mutate(lucro = receita - orcamento) %>%
select(
titulo,
ano,
`diretor(a)` = diretor,
receita,
orcamento,
lucro
) %>%
slice_max(order_by = lucro, n = 20) %>%
arrange(desc(lucro)) %>%
mutate(
across(
c(orcamento, receita, lucro),
scales::dollar
)
)
})
}
shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.