Error : tags$iframe() "(Site Name) Refused to Connect."


library(shiny)
members <- data.frame(name=c("Name 1", "Name 2", "Name 3", "Name 4"), nr=c('ryo-en', 'ryo-cn', 'ryo-tw', 'ryo-jp'))

ui <- fluidPage(titlePanel("Getting Iframe"), 
                sidebarLayout(
                  sidebarPanel(
                    fluidRow(
                      column(6, selectInput("Member", label = h5("Choose a option"), choices = c('ryo-en', 'ryo-cn', 'ryo-tw', 'ryo-jp'))
                      ))),
                  mainPanel(fluidRow(
                    htmlOutput("frame")
                  )
                  )
                ))

server <- function(input, output) {
  observe({ 
    query <- members[which(members$nr==input$Member),2]
    lnk <<- paste0("https://rpubs.com/englianhu/",query)
  })
  output$frame <- renderUI({
    input$Member
    ui_lnk <- tags$iframe(src=lnk, height=600, width=535, frameborder = "no")
    print(ui_lnk)
    ui_lnk
  })
}

shinyApp(ui, server)

Noticed the error shows above.


and then whats wrong with the logo states RPubs by RStudio since using rstudio packages, embed rpubs link to post on shiny...


References

Citation : Error: embed sidebar & css background inside html file doesn't work (shiny) · Issue #2 · scibrokes/owner · GitHub