Linux下使用SQL Server R作為網路爬蟲抓取台灣銀行國際匯率資料

試了30分,終於試出來了,在Linux下安裝SQL Server 2019與 R語言,把之前在windows server下的使用SQL Server R作為網路爬蟲抓取台灣銀行與國際匯率資料,移到Linux下可以正常執行了
USE [RDB]
GO
/****** Object:  StoredProcedure [dbo].[usp_r_csv]    Script Date: 2021/9/16 上午 04:08:35 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER   proc [dbo].[usp_r_csv]
AS
BEGIN
exec sp_execute_external_script  
  @language =N'R',    
  @script=N'
  Sys.setlocale("LC_ALL", locale = "english")
  download.file("https://rate.bot.com.tw/xrt/flcsv/0/day","/tmp/r.bank.txt")
  MyData <- read.csv("/tmp/r.bank.txt", header = FALSE,encoding = "UTF-8")
  OutputDataSet<-MyData[-1,1:21]'   
  WITH RESULT SETS( (  
    [幣別] [nvarchar](50)  ,
                    [買入匯率] [nvarchar](50)  ,
                    [買入現金] [nvarchar](50)  ,
                    [買入即期] [nvarchar](50)  ,
                    [買入遠期10天] [nvarchar](50)  ,
                    [買入遠期30天] [nvarchar](50)  ,
                    [買入遠期60天] [nvarchar](50)  ,
                    [買入遠期90天] [nvarchar](50)  ,
                    [買入遠期120天] [nvarchar](50)  ,
                    [買入遠期150天] [nvarchar](50)  ,
                    [買入遠期180天] [nvarchar](50)  ,
                    [賣出匯率] [nvarchar](50)  ,
                    [賣出現金] [nvarchar](50)  ,
                    [賣出即期] [nvarchar](50)  ,
                    [賣出遠期10天] [nvarchar](50)  ,
                    [賣出遠期30天] [nvarchar](50)  ,
                    [賣出遠期60天] [nvarchar](50)  ,
                    [賣出遠期90天] [nvarchar](50)  ,
                    [賣出遠期120天] [nvarchar](50)  ,
                    [賣出遠期150天] [nvarchar](50)  ,
                    [賣出遠期180天] [nvarchar](50)  ) 
                    );
END

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。

這個網站採用 Akismet 服務減少垃圾留言。進一步了解 Akismet 如何處理網站訪客的留言資料

近期留言
分類
BlogUpp!