Как я могу использовать функцию "/% s" в блестящий г

Question

Я не могу открыть и показать HTML-файл в блестящий код в r

Я пытаюсь сделать это с помощью программы на R:

ui.R

tabItem(tabName = "ndvi",
  fluidPage(tags$style(type = "text/css", "#map{height: 800px !important;}"),
  fluidRow(
    column(2, 
      dateInput("date1", 
                label = "DATE",
                value = "2018-08-07")
    )
  ),

  fluidRow(
    htmlOutput("frame1")

server.R

 framePath <- reactive({
return(sprintf("http://10.0.6.179:5656/WEB_NKR/ndvi_shape_files/agro_priishimski//%s_agro_priishimski.html", input$date1))

  })  

  output$frame1 <- renderUI({
    tags$iframe(seamless="seamless", src=framePath(), height=800, width=1650)
  })

Я должен взять в результате: