- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我需要一些关于如何在 RShiny 中正确地将查询发送到我的数据库的说明...
我构建了一个应用程序,任何人都可以在其中创建一个帐户,然后在将这些行保存到我的数据库之前在数据框中写入一些信息。
该应用程序在单个用户测试时运行良好,但在多个用户同时向我的数据库发送数据时会出现一些问题。所有发送的信息在 postgresql 中重复 2 到 10 次...
例如,如果我在 2 月 25 日添加观察日期为“A”的 5 个个体的独特观察,我将在我的数据库中得到 3 行(有时最多可以重复 10 行)而不是一行。 (如下表所示):
ID species date number username latitude longitude
1 A 2022-02-25 5 Wanderzen 45.2 2.6
2 A 2022-02-25 5 Wanderzen 45.2 2.6
3 A 2022-02-25 5 Wanderzen 45.2 2.6
这是我第一次构建与数据库交互的 Shiny 应用程序,我很确定我没有正确使用 pool
包......
** 我该怎么做才能解决这个问题?我应该为每个查询打开和关闭连接吗?**
这是一个显示我的问题的粗略代码示例:
library(shiny)
library(leaflet)
library(pool)
library(DT)
library(shinycssloaders)
library(RPostgres)
library(shinyjs)
pool <- DBI::dbConnect(
drv = dbDriver("PostgreSQL"),
dbname = "my_database",
host = "99.99.999.999",
user = Sys.getenv("userid"),
password = Sys.getenv("pwd")
)
ui <- fluidPage(
fluidRow(column(width=10,
wellPanel(
leafletOutput(outputId = "map", height = 470) %>% withSpinner(color="#000000"),
wellPanel(useShinyjs(),
fluidRow(DT::dataTableOutput(outputId ="obs_user") %>% withSpinner(color="#000000"))
)))))
server <- function(input, output, session){
values <- reactiveVal(NULL)
observe({
invalidateLater(1000)
query <- "select species, date, number, username, latitude, longitude from rshiny.data"
ret <- dbGetQuery(pool, query)
values(ret)})
dataframe1 <- reactiveValues(species = character(), date= character(), number = integer(), username=character(), latitude=numeric(), longitude=numeric())
observeEvent(input$map_click, {
click <- input$map_click
showModal(modalDialog(title = "add a new observation",
selectInput("species", "Species", choices = ''),
dateInput("date", "Observation date:"),
numericInput("number", "Number:",1),
textInput("username", "Username:"),
textInput("latitude", "Latitude:",click$lat),
textInput("longitude", "Longitude:",click$lng),
actionButton(inputId = "save_BDD",label = "Send to the database", style = "width:250px",
easyClose = TRUE, footer = NULL )))})
observeEvent(input$map_click, {
shinyjs::disable("latitude")
shinyjs::disable("longitude")
})
observeEvent(input$save_BDD, {
dataframe1$dm <- isolate({
newLine <- data.frame(species=input$species,
date=input$date,
number = input$number,
username = input$username,
latitude = input$latitude,
longitude =input$longitude)
rbind(dataframe1 $dm,newLine)})})
observeEvent(input$save_BDD,{
dbWriteTable(pool, c("rshiny", "data"), dataframe1$dm, row.names=FALSE, append = T)
dbExecute(pool, "UPDATE rshiny.data SET geom = ST_SetSRID(ST_MakePoint(longitude, latitude), 4326);")})
output$map <- renderLeaflet({
leaflet(data=values()) %>%
addTiles(group = "OSM") %>%
addAwesomeMarkers(data = values(),
lng = ~as.numeric(longitude), lat = ~as.numeric(latitude)) %>%
addProviderTiles(providers$Esri.WorldImagery, group = "Esri World Imagery") })
output$obs_user <- DT::renderDataTable({
datatable(values())})
}
shinyApp(ui, server)
最佳答案
请在下面找到一个使用 library(RSQLite)
的可重现示例 - 只需切换回您的 postgres 连接/架构即可。
我认为问题与pool
无关。我想(没有你的数据库我无法验证)你对 rbind
的调用是有问题的 - 因为如果之前使用过 reactiveVal
它会发送多行。
此外,在这种情况下,创建一个跨 session react (这里是reactivePoll
)来在 session 之间共享数据库信息,而不是让每个 session 每隔一段时间查询数据库,效率会更高。第二。
library(shiny)
library(leaflet)
library(pool)
library(DT)
library(shinycssloaders)
library(RPostgres)
library(shinyjs)
library(RSQLite) # for MRE only
# pool <- DBI::dbConnect(
# drv = Postgres(),
# dbname = "my_database",
# host = "99.99.999.999",
# user = Sys.getenv("userid"),
# password = Sys.getenv("pwd")
# )
# local postgres test:
# pool <- DBI::dbConnect(
# drv = Postgres(),
# dbname = "test",
# host = "localhost",
# user = "postgres",
# password = "postgres"
# )
pool <- dbConnect(RSQLite::SQLite(), ":memory:")
# cross-session reactivePoll
RP <- reactivePoll(intervalMillis = 1000, session = NULL, checkFunc = function(){
if (dbIsValid(pool) && dbExistsTable(pool, "dbtable")) {
query <- "SELECT count(*) FROM dbtable;"
dbGetQuery(pool, query)[[1]]
} else {
0L
}
}, valueFunc = function(){
if (dbIsValid(pool) && dbExistsTable(pool, "dbtable")) {
query <- "SELECT species, date, number, username, latitude, longitude FROM dbtable;"
dbGetQuery(pool, query)
} else {
NULL
}
})
ui <- fluidPage(fluidRow(column(
width = 10,
wellPanel(
leafletOutput(outputId = "map", height = 470) %>% withSpinner(color = "#000000"),
wellPanel(useShinyjs(),
fluidRow(
DT::dataTableOutput(outputId = "obs_user") %>% withSpinner(color = "#000000")
))
)
)))
server <- function(input, output, session) {
observeEvent(input$map_click, {
click <- input$map_click
showModal(
modalDialog(
title = "add a new observation",
selectInput("species", "Species", choices = ''),
dateInput("date", "Observation date:"),
numericInput("number", "Number:", 1),
textInput("username", "Username:"),
textInput("latitude", "Latitude:", click$lat),
textInput("longitude", "Longitude:", click$lng),
actionButton(
inputId = "save_BDD",
label = "Send to the database",
style = "width:250px",
easyClose = TRUE,
footer = NULL
)
)
)
})
observeEvent(input$map_click, {
shinyjs::disable("latitude")
shinyjs::disable("longitude")
})
observeEvent(input$save_BDD, {
newLine <- data.frame(
species = input$species,
date = input$date,
number = input$number,
username = input$username,
latitude = input$latitude,
longitude = input$longitude
)
if (dbExistsTable(pool, "dbtable")) {
dbWriteTable(pool,
"dbtable",
newLine,
row.names = FALSE,
append = TRUE,
overwrite = FALSE)
} else {
dbWriteTable(pool,
"dbtable",
newLine,
row.names = FALSE,
append = FALSE,
overwrite = TRUE)
}
# dbExecute(pool, "UPDATE rshiny.data SET geom = ST_SetSRID(ST_MakePoint(longitude, latitude), 4326);")
removeModal(session)
})
output$map <- renderLeaflet({
if(!is.null(RP())){
leaflet(data = RP()) %>%
addTiles(group = "OSM") %>%
addAwesomeMarkers(
data = RP(),
lng = ~ as.numeric(longitude),
lat = ~ as.numeric(latitude)
) %>%
addProviderTiles(providers$Esri.WorldImagery, group = "Esri World Imagery")
} else {
leaflet() %>%
addTiles(group = "OSM") %>%
addProviderTiles(providers$Esri.WorldImagery, group = "Esri World Imagery")
}
})
output$obs_user <- DT::renderDataTable({
req(RP())
datatable(RP())
})
}
shinyApp(ui, server, onStart = function() {
cat("Doing application setup\n")
onStop(function() {
cat("Doing application cleanup\n")
dbDisconnect(pool)
# poolClose(pool)
})
})
为避免从数据库角度来看重复条目,请使用 table constraints .您可以创建一个跨越表的所有 (ID) 相关列的主键。
关于r - 当多个用户使用 Rshiny 在 postgresql 数据库中保存数据时出现问题(创建了唯一行的许多重复项),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/71348264/
我的问题是如何在 python 中创建一个简单的数据库。我的例子是: User = { 'Name' : {'Firstname', 'Lastname'}, 'Address' : {'Street
我需要创建一个与远程数据库链接的应用程序! mysql 是最好的解决方案吗? Sqlite 是唯一的本地解决方案吗? 我使用下面的方法,我想知道它是否是最好的方法! NSString *evento
给定两台 MySQL 服务器,一台本地,一台远程。两者都有一个包含表 bohica 的数据库 foobar。本地服务器定义了用户 'myadmin'@'%' 和 'myadmin'@'localhos
我有以下灵活的搜索查询 Select {vt:code},{vt:productcode},{vw:code},{vw:productcode} from {abcd AS vt JOIN wxyz
好吧,我的电脑开始运行有点缓慢,所以我重置了 Windows,保留了我的文件。因为我的大脑还没有打开,所以我忘记事先备份我的 MySQL 数据库。我仍然拥有所有原始文件,因此我实际上仍然拥有数据库,但
如何将我的 Access 数据库 (.accdb) 转换为 SQLite 数据库 (.sqlite)? 请,任何帮助将不胜感激。 最佳答案 1)如果要转换 db 的结构,则应使用任何 DB 建模工具:
系统检查发现了一些问题: 警告:?:(mysql.W002)未为数据库连接“默认”设置 MySQL 严格模式 提示:MySQL 的严格模式通过将警告升级为错误来修复 MySQL 中的许多数据完整性问题
系统检查发现了一些问题: 警告:?:(mysql.W002)未为数据库连接“默认”设置 MySQL 严格模式 提示:MySQL 的严格模式通过将警告升级为错误来修复 MySQL 中的许多数据完整性问题
我想在相同的 phonegap 应用程序中使用 android 数据库。 更多说明: 我创建了 phonegap 应用程序,但 phonegap 应用程序不支持服务,所以我们已经在 java 中为 a
Time Tracker function clock() { var mytime = new Date(); var seconds
我需要在现有项目上实现一些事件的显示。我无法更改数据库结构。 在我的 Controller 中,我(从 ajax 请求)传递了一个时间戳,并且我需要显示之前的 8 个事件。因此,如果时间戳是(转换后)
我有一个可以收集和显示各种测量值的产品(不会详细介绍)。正如人们所期望的那样,显示部分是一个数据库+建立在其之上的网站(使用 Symfony)。 但是,我们可能还会创建一个 API 来向第三方公开数据
我们将 SQL Server 从 Azure VM 迁移到 Azure SQL 数据库。 Azure VM 为 DS2_V2、2 核、7GB RAM、最大 6400 IOPS Azure SQL 数据
我正在开发一个使用 MongoDB 数据库的程序,但我想问在通过 Java 执行 SQL 时是否可以使用内部数据库进行测试,例如 H2? 最佳答案 你可以尝试使用Testcontainers Test
已关闭。此问题不符合Stack Overflow guidelines 。目前不接受答案。 已关闭 9 年前。 此问题似乎与 a specific programming problem, a sof
我正在尝试使用 MSI 身份验证(无需用户名和密码)从 Azure 机器学习服务连接 Azure SQL 数据库。 我正在尝试在 Azure 机器学习服务上建立机器学习模型,目的是我需要数据,这就是我
我在我的 MySQL 数据库中使用这个查询来查找 my_column 不为空的所有行: SELECT * FROM my_table WHERE my_column != ""; 不幸的是,许多行在
我有那个基地:http://sqlfiddle.com/#!2/e5a24/2这是 WordPress 默认模式的简写。我已经删除了该示例不需要的字段。 如您所见,我的结果是“类别 1”的两倍。我喜欢
我有一张这样的 table : mysql> select * from users; +--------+----------+------------+-----------+ | userid
我有表: CREATE TABLE IF NOT EXISTS `category` ( `id` int(11) NOT NULL, `name` varchar(255) NOT NULL
我是一名优秀的程序员,十分优秀!