Je débute avec Shiny. J'essaie d'enregistrer des données avec Shiny. Ce que j'ai trouvé jusqu'à maintenant est l'utilisation de l"actionButton" mais lors de l'ouverture de shiny,l'enregistrement se fait sans avoir cliquer sur le bouton (actionButton). Pour enregistrer les données suivantes, il faut bien cliquer sur le bouton(actionButton). En résumé, j'ai un enregistrement non demandé.
Code : Tout sélectionner
library(shiny)
ui<-fluidPage(
fluidRow(column(3,textInput("titre","titre","quoi")),
column(3,textInput("auteur","auteur","qui")),
column(3,actionButton("goButton", "Enregistrer", class = "btn-success"))),
dataTableOutput(outputId="livres")
)
server<-function(input,output,session){
output$livres<-renderDataTable({
load("D://biblio//Ta.Rdata")
input$goButton
A<-isolate(c(input$titre,input$auteur))
Ta<-rbind.data.frame(Ta,A)
save(Ta,file="D://biblio//Ta.Rdata")
Ta
})
}
print(shinyApp(ui, server))je ne sais pas comment mettre le data.frame Ta sur ce document
Le voici quand je demande à R de l'afficher :
Ta
titre auteur
1 Le soleil des morts Clavel, Bernard
2 statisques avec R François Husson
3 Marcas Giacometti et Ravenne
4 Séries temporelles avec R Yves Aragon
5 Misereré Bernard Clavel
6 Initiation à la statistique avec R Frédéric Bertrand
7 Réseaux bayésiens avec R J-B. Denis et M. Scutari
8 les suppliciés du Rhône Coline Galet
9 La bourelle Bernard Clavel
10 Théorie de la musique Danhauser
Lors du lancement de shiny, j'ai un 11ième enregistrement
quoi qui
Comment faire pour que l'actionButton commande le 1er enregistrement?
ou y a-t-il une autre façon d'enregistrer des données par shiny?
merci de votre aide
cordialement
Michel