#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com/
#
library(shiny)
library(ggplot2)
library(ggupset)
library(thematic)
library(tidyverse, warn.conflicts = FALSE)
thematic_shiny(font = "auto")
# Define UI for application that draws a histogram
ui <- fluidPage(
# Application title
titlePanel("Old Faithful Geyser Data"),
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
sliderInput("bins",
"Number of bins:",
min = 1,
max = 50,
value = 30)
),
# Show a plot of the generated distribution
mainPanel(
plotOutput("distPlot")
)
)
)
# Define server logic required to draw a histogram
server <- function(input, output) {
output$distPlot <- renderPlot({
# generate bins based on input$bins from ui.R
tidy_movies %>%
distinct(title, year, length, .keep_all=TRUE) %>%
ggplot(aes(x=Genres)) +
geom_bar() +
ggupset::scale_x_upset(n_intersections = 20)
})
}
# Run the application
shinyApp(ui = ui, server = server)
Describe the problem
The following shiny app will produce an error message
But if comment out
thematic_shiny(font = "auto")
. The app can run without no problem.The theme element is defined in https://github.com/const-ae/ggupset/blob/ae2cc9287eb0cdd613b1d6cd6b8776435b287997/R/theme_combmatrix.R.
Session Info