Сохранить изменения в sqlite db через блестящие

Question

Возможно ли запустить приложение Shiny, которое подключается к базе данных sqlite и может вносить изменения и сохранять в эту базу данных? Мой вопрос аналогичен этим вопросам - R script do not write in sqlite db if I run the script in shiny, но ответа не было, поэтому не уверен, работает он или нет.

Answer 1

Да. Можно и вот пример:

Создание простой БД:

library(RSQLite) 
con <- dbConnect(SQLite(), dbname="sample.sqlite") 
dbWriteTable(con, "test", data.frame(value1 = letters[1:4], value2 = letters[5:8])) 
dbDisconnect(con) 

Блестящая App:

library(shiny) 
library(RSQLite) 

runApp(list(
    ui = bootstrapPage(
    textInput("value1", label = "Value 1"), 
    textInput("value2", label = "Value 2"), 
    actionButton("action", label = "Write to DB"), 
    hr(), 
    tableOutput("table") 
), 
    server = function(input, output){ 
    data <- eventReactive(input$action, { 
    con <- dbConnect(SQLite(), dbname="sample.sqlite") 
    dbWriteTable(con, "test", data.frame(value1 = input$value1, value2 = input$value2, stringsAsFactors = FALSE), append = TRUE) 
    data <- dbReadTable(con, "test") 
    dbDisconnect(con) 
    return(data) 
    }) 
    output$table <- renderTable(data()) 
})) 

Answer 2

Да, это возможно. Вы можете использовать пакет RSQlite. Вам нужно сначала установить SQLite на свой компьютер и создать базу данных. Вам необходимо убедиться, что как файл базы данных, так и папка, содержащая его, имеют права на запись для пользователя shiny (или любого пользователя, использующего блестящие приложения) - пользователь по умолчанию - shiny).

Это, как вы бы подключиться и сохранить данные:

db <- dbConnect(SQLite(), file) 
query <- sprintf("INSERT INTO %s (%s) VALUES ('%s')", TABLE_NAME, 
    paste(names(data), collapse = ", "), paste(data, collapse = "', '")) 
dbGetQuery(db, query) 
dbDisconnect(db) 

Вот Блестящая приложение, которое содержит более полные примеры того, как использовать SQLite и несколько других баз данных с блестящими в случае, если это помогает. Отказ от ответственности: я написал это приложение. http://daattali.com/shiny/google-form-mock/