Linux_R语言通过RDameng连接DM8

飞奔的屎壳郎2023-07-20 22:13

一、下载安装软件anaconda

python需要下载很多包，Anaconda集成了几乎常用的包，如果你需要的包要求不同版本的Python，你无需切换到不同的环境，因为conda同样是一个环境管理器。仅需要几条命令，你可以创建一个完全独立的环境来运行不同的Python版本，同时继续在你常规的环境中使用你常用的Python版本。
主要就是R语言依赖的包热别多，anaconda可以一键安装。

anaconda官网下载地址：https://mirrors.tuna.tsinghua.edu.cn/anaconda/archive/

输入yes 并且 输入目录

shell 复制代码 
[root@localhost ~]# cd /opt/
[root@localhost opt]# mkdir dm_soft
[root@localhost opt]# cd dm_soft/
[root@localhost dm_soft]# ls
Anaconda3-2023.03-1-Linux-x86_64.sh
[root@localhost dm_soft]# chmod 755 Anaconda3-2023.03-1-Linux-x86_64.sh 
[root@localhost dm_soft]# ./Anaconda3-2023.03-1-Linux-x86_64.sh 

Welcome to Anaconda3 2023.03-1

In order to continue the installation process, please review the license
agreement.
Please, press ENTER to continue
>>> 回车
Please answer 'yes' or 'no':
>>> yes

Anaconda3 will now be installed into this location:
/root/anaconda3

  - Press ENTER to confirm the location
  - Press CTRL-C to abort the installation
  - Or specify a different location below

## 安装目录
[/root/anaconda3] >>> /opt/anaconda3
## 是否初始化终端
Do you wish the installer to initialize Anaconda3
by running conda init? [yes|no]
[no] >>> yes
Do you wish the installer to initialize Anaconda3
by running conda init? [yes|no]
[no] >>> yes

no change     /opt/anaconda3/condabin/conda
no change     /opt/anaconda3/bin/conda
no change     /opt/anaconda3/bin/conda-env
no change     /opt/anaconda3/bin/activate
no change     /opt/anaconda3/bin/deactivate
no change     /opt/anaconda3/etc/profile.d/conda.sh
no change     /opt/anaconda3/etc/fish/conf.d/conda.fish
no change     /opt/anaconda3/shell/condabin/Conda.psm1
no change     /opt/anaconda3/shell/condabin/conda-hook.ps1
no change     /opt/anaconda3/lib/python3.10/site-packages/xontrib/conda.xsh
no change     /opt/anaconda3/etc/profile.d/conda.csh
modified      /root/.bashrc

==> For changes to take effect, close and re-open your current shell. <==

If you'd prefer that conda's base environment not be activated on startup, 
   set the auto_activate_base parameter to false: 

conda config --set auto_activate_base false

##拷贝
[root@localhost bin]# cp /opt/anaconda3/bin/conda /usr/bin/

二、替换数据源

shell 复制代码 
[root@localhost bin]# conda config --add channels https://mirrors.tuna.tsinghua.edu.cn/anaconda/cloud/conda-forge/
[root@localhost bin]# conda config --add channels https://mirrors.tuna.tsinghua.edu.cn/anaconda/pkgs/free/
[root@localhost bin]# conda config --add channels https://mirrors.tuna.tsinghua.edu.cn/anaconda/pkgs/main/
[root@localhost bin]# conda config --append channels https://mirrors.tuna.tsinghua.edu.cn/anaconda/cloud/fastai/
[root@localhost bin]# conda config --append channels https://mirrors.tuna.tsinghua.edu.cn/anaconda/cloud/pytorch/
[root@localhost bin]# conda config --append channels https://mirrors.tuna.tsinghua.edu.cn/anaconda/cloud/bioconda/
# 上面的命令拷贝下来 方便批量运行
conda config --add channels https://mirrors.tuna.tsinghua.edu.cn/anaconda/cloud/conda-forge/
conda config --add channels https://mirrors.tuna.tsinghua.edu.cn/anaconda/pkgs/free/
conda config --add channels https://mirrors.tuna.tsinghua.edu.cn/anaconda/pkgs/main/
conda config --append channels https://mirrors.tuna.tsinghua.edu.cn/anaconda/cloud/fastai/
conda config --append channels https://mirrors.tuna.tsinghua.edu.cn/anaconda/cloud/pytorch/
conda config --append channels https://mirrors.tuna.tsinghua.edu.cn/anaconda/cloud/bioconda/
# 搜索时显示通道地址
[root@localhost bin]# conda config --set show_channel_urls yes
# 最后，执行conda info
[root@localhost bin]# conda info

三、创建容器并激活

shell 复制代码 
## 1. 创建环境
[root@localhost bin]# conda create -n dm_test python=3.8

## 2.首次激活 conda 虚拟环境，可用 source activate 激活（如下），
[root@localhost bin]# source activate dm_test
## 3. 退出conda
(dm_test) [root@localhost bin]# conda deactivate
## 4. 激活
[root@localhost bin]# conda activate dm_test
(dm_test) [root@localhost bin]#

四、安装R语言

shell 复制代码 
## 1. 安装R语言
[root@localhost opt]# conda install r-base=3.6.1
## 2. 查看R语言版本
[root@localhost opt]# R --version
R version 3.6.1 (2016-06-21) -- "Bug in Your Hair"                                                                                                                                         
Copyright (C) 2016 The R Foundation for Statistical Computing                                                                                                                              
Platform: x86_64-pc-linux-gnu (64-bit)                                                                                                                                                     
                                                                                                                                                                                           
R is free software and comes with ABSOLUTELY NO WARRANTY.                                                                                                                                  
You are welcome to redistribute it under the terms of the                                                                                                                                  
GNU General Public License versions 2 or 3.                                                                                                                                                
For more information about these matters see                                                                                                                                               
http://www.gnu.org/licenses/.

五、安装DBI

DBI 是 R 语言中关系数据库的底层接口包，RDameng 包的正常使用需要先安装 DBI。 以 DBI_1.0.0 为例，R 安装完毕后，上传 DBI_1.0.0.tar.gz 至/opt/dmsoft 目录下，使用如下命令安装 DBI 工具包。

也可以从以下链接下载 DBI 1.0.0 版本的源码包：
https://cran.r-project.org/src/contrib/Archive/DBI/DBI_1.0.0.tar.gz

这个链接会下载一个名为 DBI_1.0.0.tar.gz 的压缩文件，您可以使用该文件进行手动安装。

shell 复制代码 
## 安装1.0.0安装包
> install.packages("/opt/dmsoft/DBI_1.0.0.tar.gz", repos = NULL, type="source")
* installing *source* package 'DBI' ...
** package 'DBI' successfully unpacked and MD5 sums checked
** R
** inst
** preparing package for lazy loading
** help
*** installing help indices
** building package indices
** installing vignettes
** testing if installed package can be loaded
* DONE (DBI)
## 加载目录不报错就说明加载成功
> library(DBI)



#想要安装的 DBI 1.0.0 版本确实存在于 CRAN 存储库中。
#可以通过以下命令来检查安装 DBI 版本的可用性：
#remove.packages("DBI")

六、编译安装RDameng

  • 使用的数据库必须是DM8 1.3.47及以后的版本才支持。

  • 用户在安装 RDameng 之前需要检查或修改操作系统的配置，以保证 RDameng 正确安装和运行，RDameng 目前仅支持 Linux x86 系统。

  • DMDCI提供的第三方库及头文件分别保存在RDameng_1.1.tar.gz解压后的RDameng/dci_libs目录和RDameng/dci_inc目录下，可选安装RDameng包前复制至指定位置。以复制第三方库及头文件至指定位置为例，上传RDameng_1.1.tar.gz至/opt/package目录下，解压RDameng_1.0.tar.gz获取第三方库。

shell 复制代码 
## R语言版本上传解压
(base) [root@localhost dmsoft]# tar -xzf  RDameng_1.1.tar.gz

## 配置环境变量
(base) [root@localhost dmsoft]# vi /etc/profile
(base) [root@localhost dmsoft]# export LD_LIBRARY_PATH=/opt/dmsoft/RDameng/dci_libs
(base) [root@localhost dmsoft]# source /etc/profile

## 安装R语言
(dm_test) [root@localhost ~]# R CMD INSTALL --configure-args=' --with-dci-lib=/opt/dmsoft/RDameng/dci_libs --with-dci-inc=/opt/dmsoft/RDameng/dci_inc' /opt/dmsoft/RDameng_1.1.tar.gz

遇到了如下报错：

/usr/bin/ld: cannot find -lgfortran

shell 复制代码 
yum install gcc-gfortran

七、运行测试用例

在R语言的服务器上/etc/dm_svc.conf 添加文件 新建dm_svc.conf 把FNUM2CHAR_MODE=(1)参数加上

shell 复制代码 
[root@localhost R]# cat /etc/dm_svc.conf 
TIME_ZONE=(480)
LANGUAGE=(cn)
FNUM2CHAR_MODE=(1)
sql 复制代码 
drop table TEST;
CREATE TABLE TEST(C1 VARCHAR2(50 CHAR));
insert into "SYSDBA"."TEST"("C1")  VALUES(1/3);
select length(C1)from TEST;
SP_SET_PARA_VALUE(1,'CALC_AS_DECIMAL',3);
r 复制代码 
library(DBI)
library(RDameng)

#数据库地址地址
dbHost <- "192.168.145.190"
#数据库名称
dbServerName <- "DmServiceDMSERVER"
#用户名
dbUserName <- "SYSDBA"
#密码
dbPassword <- "SYSDBA"

#初始化driver
drv <- dbDriver("Dm")
#拼写TNS字符串
connect.string <- paste("(DESCRIPTION=(ADDRESS=(PROTOCOL=tcp)(HOST=", dbHost, ")(PORT= 5236))(CONNECT_DATA=(SERVICE_NAME=", dbServerName, ")))", sep = "")
#连接数据库
oracleCon <- dbConnect(drv,username = dbUserName, password = dbPassword,dbname = connect.string) 
#查看连接信息
#dbGetInfo(oracleCon)
#查看驱动详细信息
#dbGetInfo(drv)

#插入数据
thisnum <- 1/3
print(thisnum)
dataFrame <-data.frame(c1=thisnum)
dbWriteTable(oracleCon,"TEST",dataFrame,append=T,row.names=F)

#执行查询sql
result <- dbGetQuery(oracleCon, "SELECT LENGTH(C1) FROM TEST")
print(result)

#执行查询sql
c1_result <- dbGetQuery(oracleCon, "SELECT C1 FROM TEST")
print(c1_result)

db_version_str <- dbGetQuery(oracleCon, "SELECT BUILD_VERSION FROM v$instance")
print(db_version_str)

result <- dbGetQuery(oracleCon, "select SF_GET_PARA_VALUE(2,'DECIMAL_ENHANCED')")
print(format(result, scientific=FALSE))

测试图

资料包

链接：https://pan.baidu.com/s/1XRzdN3u2GUhNlK5qFaNKwg?pwd=lr3a

提取码：lr3a

相关推荐
摸鱼也很难1 小时前
Docker 镜像加速和配置的分享 && 云服务器搭建beef-xss
运维·docker·容器
watermelonoops1 小时前
Deepin和Windows传文件（Xftp，WinSCP）
linux·ssh·deepin·winscp·xftp
woshilys2 小时前
sql server 查询对象的修改时间
运维·数据库·sqlserver
疯狂飙车的蜗牛2 小时前
从零玩转CanMV-K230（4）-小核Linux驱动开发参考
linux·运维·驱动开发
恩爸编程3 小时前
探索 Nginx：Web 世界的幕后英雄
运维·nginx·nginx反向代理·nginx是什么·nginx静态资源服务器·nginx服务器·nginx解决哪些问题
Michaelwubo4 小时前
Docker dockerfile镜像编码 centos7
运维·docker·容器
远游客07134 小时前
centos stream 8下载安装遇到的坑
linux·服务器·centos
马甲是掉不了一点的<.<4 小时前
本地电脑使用命令行上传文件至远程服务器
linux·scp·cmd·远程文件上传
jingyu飞鸟4 小时前
centos-stream9系统安装docker
linux·docker·centos
好像是个likun5 小时前
使用docker拉取镜像很慢或者总是超时的问题
运维·docker·容器
热门推荐
01〔AI 绘画〕Stable Diffusion 之 解决绘制多人或面部很小的人物时面部崩坏问题 篇02ARM学习（31）编译器对overlay方式的支持03玄机平台应急响应—webshell查杀04DisplayPort AltMode On Type-c协议_Ver2.0(学习笔记)05校验 GPT-4 真实性的三个经典问题：快速区分 GPT-3.5 与 GPT-4，并提供免费测试网站06Docker 夺命连环 15 问076个主流的工业3D管道设计软件08基于大语言模型（LLM）的合成数据生成、策展和评估的综述09(欧拉)openEuler系统添加网卡文件配置流程、(欧拉)openEuler系统手动配置ipv6地址流程、(欧拉)openEuler系统网络管理说明10树莓派 5 AI 套件（Hailo-8L）使用教程