r - 谷歌翻译按钮 R 闪亮
问题描述
我正在尝试将 Google Translate 工具栏添加到 Shiny 应用程序,但我似乎无法利用https://www.w3schools.com/howto/howto_google_translate.asp上的代码获得正确的语法。
library(shiny)
ui <- fluidPage(
# tags$head(
tags$div(id="google_translate_element"),
HTML("<script type='text/javascript'>, function googleTranslateElementInit() {
new google.translate.TranslateElement({pageLanguage: 'en'}, 'google_translate_element');} </script>" ),
HTML("<script type='text/javascript', src='//translate.google.com/translate_a/element.js?cb=googleTranslateElementInit'></script>"),
# ),
HTML("<html lang='en'></html>"),
titlePanel("Old Faithful Geyser Data"),
sidebarLayout(
sidebarPanel(
sliderInput("bins",
"Number of bins:",
min = 1,
max = 50,
value = 30)
),
mainPanel(
plotOutput("distPlot")
)
)
)
server <- function(input, output) {
output$distPlot <- renderPlot({
x <- faithful[, 2]
bins <- seq(min(x), max(x), length.out = input$bins + 1)
hist(x, breaks = bins, col = 'darkgray', border = 'white')
})
}
shinyApp(ui = ui, server = server)
我已经尝试在 tags$head() 中进行包装,并尝试从项目的 www 文件夹中的 .js 文件中调用 javascript。
我感谢任何支持。谢谢!
解决方案
很酷的想法。这似乎有效。
library(shiny)
ui <- fluidPage(
HTML("<!DOCTYPE html><html lang='en-US'><body><h1>My Web Page</h1><p>Hello everybody!</p><p>Translate this page:</p><div id='google_translate_element'></div><script type='text/javascript'>function googleTranslateElementInit() {new google.translate.TranslateElement({pageLanguage: 'en'}, 'google_translate_element');}</script><script type='text/javascript' src='//translate.google.com/translate_a/element.js?cb=googleTranslateElementInit'></script></body></html>"),
titlePanel("Old Faithful Geyser Data"),
sidebarPanel(
sliderInput("bins",
"Number of bins:",
min = 1,
max = 50,
value = 30
)
),
mainPanel(
plotOutput("distPlot")
)
)
server <- function(input, output) {
output$distPlot <- renderPlot({
x <- faithful[, 2]
bins <- seq(min(x), max(x), length.out = input$bins + 1)
hist(x, breaks = bins, col = 'darkgray', border = 'white')
})
}
shinyApp(ui = ui, server = server)
推荐阅读
- sql-server - SQL Server 存储过程复杂性
- android - 是否可以无头打开 Android 模拟器并让它自动运行 apk?
- reactjs - React 虚拟化无限滚动渲染聚合数据
- c# - 如何实现 MailSystem.NET 组件作为参考?
- google-app-engine - 如何在部署阶段在 gitlab ci 中添加 .env 文件?
- c# - 静态属性 - 如何正确初始化它?
- mongodb - 如何将 Mongodb $lookup 包含为 Spring @Query("")
- javascript - 使用 javascript/jquery 将图像 SVG 转换为内联 SVG
- ruby - ruby 以变量为键访问哈希
- node.js - Gps 设备数据不可编辑