Я запланировал код R, который загружает файл по ссылке и обновляет базу данных MY SQL.
Когда я запускаю код вручную, он работает нормально.
Однако в журнале заданий в журнале говорится, что код выполняется, но БД не обновляется.
Я пробовал несколько вещей, но ничего не работает.
Любые идеи / предложения о том, что я мог бы пропустить?
library(RSelenium)
library(seleniumPipes)
library(rvest)
library(httr)
library(RCurl)
library(XML)
library(data.table)
library(janitor)
library(tidyr)
library(splitstackshape)
library(xtable)
Для ссылки 1
unlink("c:\\Users\\user\\Downloads\\ticket_results.csv")
browseURL("download link")
Sys.sleep(10)
Tickets1 <- read.csv("c:\\Users\\user\\Downloads\\ticket_results.csv",
header = TRUE, stringsAsFactors = F, check.names = F)
Tickets1$`Case ID` <- paste0("0",Tickets1$`Case ID`)
Tickets1 <- as.data.frame(Tickets1)
Tickets <- Tickets1
Sys.sleep(10)
Для ссылки 2
unlink("c:\\Users\\user\\Downloads\\ticket_results.csv")
browseURL("link download 2")
Sys.sleep(10)
Tickets1 <- read.csv("c:\\Users\\user\\Downloads\\ticket_results.csv",
header = TRUE, stringsAsFactors = F, check.names = F)
Tickets1$`Case ID` <- paste0("0",Tickets1$`Case ID`)
Tickets1 <- as.data.frame(Tickets1)
Tickets <- rbind(Tickets,Tickets1)
Sys.sleep(10)
Обновление БД
library(dbConnect)
library(RMySQL)
iConn <- RMySQL::dbConnect(
RMySQL::MySQL(),
host = 'xxxx',
port = xxxx,
dbname = 'xxxx',
user = 'xxxx',
password = 'xxxx'
)
и, наконец, обновление
RMYSQL::dbWriteTable(iConn, 'table_to_update', as.data.frame(Tickets),overwrite
=T row.names=F,
field.type=list(CaseID='varchar(20)',
Description='varchar(100)')