Browse Source

Creación sqlFunctions y de los ficheros de la documentación.

main
Costa 3 years ago
parent
commit
2e04933f2a
3 changed files with 331 additions and 0 deletions
  1. +45
    -0
      Docs/sqlFunctions-doc.Rmd
  2. +279
    -0
      Docs/sqlFunctions-doc.html
  3. +7
    -0
      sqlFunctions.R

+ 45
- 0
Docs/sqlFunctions-doc.Rmd

@ -0,0 +1,45 @@
---
title: "sqlFunctions-Doc"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
## sqlDropLast
### Description
Removes from Database the last (or the amount specified) entry.
### Usage
sqlDropLast(conn, tablename, droplast=1)
### Arguments
Argument|Description
---|---
conn|connection handle returned by odbcConnect.
tablename|character: a database table name accessible from the connected DSN.
droplast|the amount of lines to be removed from the table strating from tail. By default, it removes only 1 line.
### Details
Removes from Database the last (or the amount specified) entry.
### Value
Invisibly for success (and failures cause errors).
### Examples
```r
dta<-odbcConnect("test")
sqlDropLast(dta, "TableTest")
```
### Function
```r
sqlDropLast<-function(conn, tablename, droplast=1){
table<-sqlFetch(conn, tablename)
table<-table[1:(nrow(table)-droplast),]
sqlSave(conn, table, tablename = tablename, safer = F)
}
```

+ 279
- 0
Docs/sqlFunctions-doc.html
File diff suppressed because it is too large
View File


+ 7
- 0
sqlFunctions.R

@ -0,0 +1,7 @@
require(RODBC)
sqlDropLast<-function(conn, tablename, droplast=1){
table<-sqlFetch(conn, tablename)
table<-table[1:(nrow(table)-droplast),]
sqlSave(conn, table, tablename = tablename, safer = F)
}

Loading…
Cancel
Save