如何使用“ /％s”功能转换为闪亮的R

Question

我无法在r中打开HTML文件并将其显示为闪亮的代码

我正在尝试通过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)
  })

我必须接受结果：