сюжетно HTML встроен в блестящий

Вы также можете использовать

ax = plt.gca()
ax.set_yticklabels(ax.get_yticks())

. Хотя мне нравится, что ответ @ HYRY лучше.

0
задан Daves 6 March 2019 в 20:54
поделиться

1 ответ

Вы можете использовать для этого iframe - посмотрите также addResourcePath:

ui = fluidPage(
  titlePanel("opening web pages"),
  sidebarPanel(selectInput(
    inputId = 'test',
    label = 1,
    choices = c("sample", "zoo", "product")
  )),
  mainPanel(htmlOutput("inc"))
)

server = function(input, output) {
  myhtmlfilepath <- getwd() # change to your path
  addResourcePath('myhtmlfiles', myhtmlfilepath)

  getPage <- function() {
    return(tags$iframe(src = paste0("myhtmlfiles/", input$test, ".html"), height = "100%", width = "100%", scrolling = "yes"))
  }

  output$inc <- renderUI({
    req(input$test)
    getPage()
  })
}

shinyApp(ui, server)
.
0
ответ дан ismirsehregal 6 March 2019 в 20:54
поделиться
Другие вопросы по тегам:

Похожие вопросы: