Inclure un fichier javascript dans Brillante application

J'ai besoin d'inclure une bibliothèque js dans mon Brillant app. Actuellement, je utiliser includeHTML pour inclure le script directement dans les codes html. par exemple,

includeHTML('URL.js')

Le navigateur affiche "introuvable" lorsque j'essaie de navigateur, le fichier js si j'utilise les balises de script$, par exemple,

http://127.0.0.1:7106/URL.js

tags$script(src = 'URL.js')

Maintenant je l'ai mis URL.js dans le même dossier de l'interface utilisateur.r et le serveur.r.

Où je devrais stocker les URL.js fichier? Ou existe-il d'autres façons d'inclure un fichier js?

Merci pour toutes les suggestions.

InformationsquelleAutor Bangyou | 2014-05-12

javascript r shiny

50

Ce que vous devez faire est de:
1. créer www dossier dans le même dossier que server.R et ui.R
2. mettre fichier javascript dans www dossier.
3. mettre tags$head(tags$script(src="hoge.js")) dans l'INTERFACE utilisateur.
Le dossier ressemble à:
```
├── server.R
├── ui.R
└── www
    └── hoge.js
```
La ui.R est quelque chose comme
```
library(shiny)
shinyUI(pageWithSidebar(
  headerPanel("New Application"),
  sidebarPanel(
    sliderInput("obs", 
                "Number of observations:", 
                min = 1, 
                max = 1000, 
                value = 500)
  ),
  mainPanel(
    plotOutput("distPlot"),
    tags$head(tags$script(src="hoge.js"))
  )
))
```
et server.R
```
library(shiny)
shinyServer(function(input, output) {
  output$distPlot <- renderPlot({
    dist <- rnorm(input$obs)
    hist(dist)
  })
})
```
Noter que ce sont des modèles générés par Rstudio.

Maintenant head de html ressemble à:
```
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
  ... snip ...
  <script src="shared/slider/js/jquery.slider.min.js"></script>
  <script src="hoge.js"></script>
</head>
```
- Ou utiliser includeScript qui prend un argument path le chemin de base étant le Brillant répertoire de l'application. includeScript toutefois aura lieu le javascript dans le fichier en ligne.
- Merci @kohske. C'est exactement ce dont j'ai besoin.
- Pensez-vous qu'il est possible de ad Réagir à une Brillante application?
- il est possible d'ajouter un script dans la première position de tous les script avant tout le paquet de script ? Par exemple, j'ai voulu faire un dépliant carte avec beaucoup de couches, donc j'ai besoin d'ajouter <script>L_PREFER_CANVAS = true;</script> avant d'ajouter le <script src="leaflet.js"></script> mais la solution que vous fournissez ajouter le script à la fin
InformationsquelleAutor kohske
8

Une autre façon est d'utiliser:
```
includeScript("mapManipulator.js"),
```
InformationsquelleAutor Stanislav

 └──shiny
    ├── server.R
    ├── ui.R
    └── www
        ├── stylesheet.css
        └── js
             └── hoge.js

de l'interface utilisateur.R

Soit l'un d'eux va travailler

1. tags$head(HTML("<script type='text/javascript' src='js/hoge.js'></script>"))

2. HTML('<head>
              <link  type="text/css" href="stylesheet.css">
              <script type="text/javascript" src="js/hoge.js"></script>
          </head>')

InformationsquelleAutor Sathish

2

Une autre option pas encore discuté, c'est que vous venez de supprimer l'interface utilisateur.R fichier entièrement, puis du code de la chose entière sous forme de fichier HTML. Les détails ici https://shiny.rstudio.com/articles/html-ui.html

Dans cet article, la valeur par défaut des éléments de formulaire HTML sont automatiquement utilisés comme intrants dans le serveur.R, mais vous pouvez également personnaliser l'entrée (ou sortie) des éléments pour brillant avec ce guide https://shiny.rstudio.com/articles/building-inputs.html

InformationsquelleAutor Colin D
1

Mon manière préférée est comme ceci:

de l'interface utilisateur.R:
```
    extendShinyjs(script = "app.js", functions = c("alerta")),
```
app.js:
```
shinyjs.alerta = function(text){
  alert(text);
}
```
serveur.R
```
  js$alerta("alerta alerta antifascista")
```
Vous pouvez également inclure un code comme ceci:

de l'interface utilisateur.R après la bibliothèque importations:
```
jsCode <- "shinyjs.alerta = function(text){alert(text);}"
```
de l'interface utilisateur.R à l'intérieur de fluidPage:
```
extendShinyjs(text = jsCode, functions = c("alerta")),
```
l'appel à partir du serveur.R serait la même

InformationsquelleAutor ill

Vous devez vous connecter pour publier un commentaire.