Embed Webpage in Shiny App

Can somebody please check what wrong am I doing particularly with the 'Geographic' & 'Metadata' tabs? The output is blank.


# UI
ui <- fluidPage(
  titlePanel("PQDT LIS ETDs"),
             tags$h4("This dashboard is the result of the study conducted on LIS ETDs retrieved from PQDT Global database. It has 3 Tabs:"),
               tags$li("Geographical Analysis: It shows choropleth map for the analysis of Location field in the metadata"),
               tags$li("Metadata: It shows the number of ETDs for Department, University, and Location fields. Further, it shows the distribution of ETDs over the year and a table for all the titles of the ETDs."),
               tags$li("Data: You can download data for a particular University & Department using this tab.")
             tags$h4("How to Use"),
               tags$li("Go to Settings in your browser and click on Zoom to fit the visualization to your desktop"),
               tags$li("Refresh the webpage if the visualization is taking time to load")
             tags$h4("Data Citation"),
             tags$p("Lamba, Manika. (2023). PQDT LIS ETDs (Version 1.0).")
    tabPanel("Geographic Analysis",
             tags$iframe(src = "https://infogram.com/choropleth-map-of-pqdt-global-etds-for-us-states-1921-2020-1h7v4pjelmy84k0?live:showVizHome=no&amp;:embed=true", width="90%", height="4000")
    tabPanel("Metadata (1921-2020)",
             tags$iframe(src = "https://public.tableau.com/views/meta_16613991789930/Dashboard1?::showVizHome=no&amp;:embed=true", width="90%", height="400")
                 selectInput("University", label = 'University:', choices = unique(data$University)),
                 downloadButton("downloadNormal", label = "Download the data", class = "butt1")

# Server
server <- function(input, output) {
  # Load data
  data <- read.csv("H:\\My Drive\\Manuscripts - PhD\\Data Paper\\standardised_metadata.csv")
  data <- data.frame(data)
  dataset <- reactive({
    subset(data, University == input$University)
  output$mydata <- renderDT({
  # Download data for selected University & Department
  output$downloadNormal <- downloadHandler(
    filename = function() {
    content = function(file) {
      write.csv(dataset(), file, row.names = FALSE)

# Run the app
shinyApp(ui, server)

This topic was automatically closed 54 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.