Discussion :

[Jérémy Lesot]

Bonjour, nouveau sur ce forum et en apprentissage du langage, j'ai besoin d'aide au sujet de Shiny.

Pour faire simple, je charge un fichier Excel et j'aimerais pouvoir en modifier certaines cellules grâce à une ShinyApp.
Je ne suis pas encore tout à fait à l'aise avec la notion de réactivité (observe, reactive,...).
Typiquement, j'aimerais pouvoir changer la valeur de certaines cellules qui prendraient la valeur d'une checkbox par exemple (ou d'un selectInput), et enregistrer ce fichier modifié.
J'ai manipulé un peu ce fichier avec Rhandsontable pour ceux qui connaissent et le principe me plaît mais j'aimerais pouvoir m'en passer.

D'avance, merci.

[Jérémy Lesot]

Bonjour, finalement je vais utiliser une handsontable, mais pas moyen de trouver comment ajouter un filtre au menu déroulant.
Quelqu'un a t'il la solution?

D'avance, merci.

[Awaf80]

Bonjour,
Je suis nouveau sur ce site mais aussi dans l'utilisation du langage R et du package Shiny (et dans le développement en général) .
Comme toi, "j'aimerais pouvoir changer la valeur de certaines cellules qui prendraient la valeur d'une checkbox par exemple (ou d'un selectInput), et enregistrer ce fichier modifié".

As-tu trouvé la solution ? As-tu un exemple de code ?

Merci d'avance
Awaf80

[Jérémy Lesot]

Bonjour,

apparemment cet fonctionnalité (de filtre) n'est malheureusement pas disponible dans RHandsontable.

Ci-joint un exemple de code pour créer (et enregistrer) une RHandsontable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
library(shiny)
library(rhandsontable)
 
ui<-fluidPage(
  fluidRow(column(width = 4,
    rHandsontableOutput("table")),
    column(width = 4,
           h3("Enregistrer la table"), 
           div(class='row', 
               div(class="col-sm-6", 
                   tags$head(tags$script(src = "message-handler.js")),
                   actionButton("save", "Enregistrer"))
           ))
  )
)
server<-function(input,output){
 
  iris<-iris
  iris$logical<-logical(length = length(iris))
  output$table<-renderRHandsontable({
    rhandsontable(iris)
  })
 
  data = reactive({
    if (!is.null(input$table)) {
      DF = hot_to_r(input$table)
    } else {
      DF =data
    }
    DF
  })
 
  observeEvent(input$save, {
    write.table(data(), file = "iris.csv", append = FALSE,quote = FALSE, sep = ";",
                eol = "\n", na = "NA", dec = ".", row.names = FALSE,
                col.names = TRUE, qmethod = c("escape", "double"),
                fileEncoding = "")
  })
 
}
 
shinyApp(ui=ui,server=server)

Cordialement.

Jérémy Lesot.