Create and Write PDF Webdev - windev

I want to create and write in file's PDF.
my code :
fCrée("C:\Mes Sites\COBRA_22\Courrier\test.pdf")
fOuvre("C:\Mes Sites\COBRA_22\Courrier\test.pdf",foAjout)
fSauveTexte("C:\Mes Sites\COBRA_22\Courrier\test.pdf","ok")
But this code does'nt work !
Thank for your help :)

This functions are not for create a PDF, you must look into this documentation for create a PDF from a report with windev.

As sayed Bidjes answer the easiest way to create pdf is to use report,
you'll have to create fields into your report an link them to a database or global variables.
here's an example (with global variables) :
Report :
English Version :
gsHeader = "This is a title !"
gsBody = "This is a simple text."
iPreview(iPDF, "PATH_AND_NAME.pdf")
iPrintReport(REPORT_test)
French version :
gsTitre = "C'est un titre !"
gsContenu = "C'est un simple texte."
iAperçu(iPDF, "CHEMIN_ET_NOM.pdf")
iImprimeEtat(ETAT_test)
Result :

Related

Creating password protected zip file in R

I have tried following code to generate a password protected zip file in R, but it didn't work and didn't give any error either.
zip('file.zip',
files = 'file.pdf',
flags = paste("--password", 'pwd123'))
Can anyone say what's wrong in this code or how to make it work?
It looks like you were close, but need to add your commands to the extras argument as a list:
pdf("file.pdf")
plot(1)
dev.off()
zip('file.zip',
files = 'file.pdf',
extras = list(paste("--password", 'pwd123'))
)

How to scrape a downloaded PDF file with R

I’ve recently gotten into scraping (and programming in general) for my internship, and I came across PDF scraping. Every time I try to read a scanned pdf with R, I can never get it to work. I’ve tried using the file.choose() function to no avail. Do I need to change my directory, or how can I get the pdf from my files into R?
The code looks something like this:
> library(pdftools)
> text=pdf_text("C:/Users/myname/Documents/renewalscan.pdf")
> text
[1] ""
Also, using pdftables leads me here:
> library(pdftables)
> convert_pdf("C:/Users/myname/Documents/renewalscan.pdf","my.csv")
Error in get_content(input_file, format, api_key) :
Bad Request (HTTP 400).
You should use the packages pdftools and pdftables.
If you are trying to read text inside the pdf, then use pdf_text() function. What goes inside is the path (in your computer or web) to the pdf. For example
tt = pdf_text("C:/Users/Smith/Documents/my_file.pdf")
It would be nice if you were more specif and also give us reproducible example.
To use the PDFTables R package, you need to the run the following command:
convert_pdf('test/index.pdf', output_file = NULL, format = "xlsx-single", message = TRUE, api_key = "insert_API_key")
If you are looking to get tabular data, you might try tabulizer. Here is a full code tutorial: https://www.business-science.io/code-tools/2019/09/23/tabulizer-pdf-scraping.html
Basically, you can use this code from the tutorial:
library(tabulizer)
extract_tables(
file = "2019-09-23-tabulizer/endangered_species.pdf",
method = "decide",
output = "data.frame")

R - ReporteRs package - word template with dynamic values

good day people,
I'm working on a word based reports automation task. These reports are basically some standard text, a dozen or so charts, some numeric/trend text values that I need to populated based on logic. The trend text, numeric values or charts are to be generated from backend database.
I'm able to produce a blank document with charts using database, the R packages I used are ReporteRs, RODBC, officer and corresponding dependency packages, ggplot2 for charts.
However what I would like to achieve is, have a word document template with some sort of placeholders where I can put the charts and these numeric values.
I've basic code as following
doc <- docx(title="my doc")
mychart <- ggplot(.....)
doc <- addPlot(doc, fun=print, x = mychart)
writeDoc(doc, filename)
Can anyone advise how to approach this task. I saw usage of template parameter in docx but I couldn't find suitable examples of putting values in placeholders or putting charts at particular placeholders inside Word document.
Hope I've explained it clearly, if not please let me know.
Ok I've figured out how to achieve it finally.
MS-Word allows putting placeholders in document and bookmark them so that values/data/images can be put in their place.
You can create a normal word document(not as word template) and add your static content in it along with bookmarked placeholders as per your requirements.
Please refer here to know how to add bookmarks , Word doesn't show existing bookmarks by default, to enable that go to File -> Options -> Advanced check Show bookmarks, you'll see [your_bookmark] thing in square brackets.
Next in R, try following code
doc <- docx(title="title", template="c://above_template.docx")
doc = addPlot(doc, x=myChartVariable, bookmark="your_chart_bookmark)
writeDoc(doc, "c://new_doc_file_path.docx:)
you should see new file with a chart substituted where you put its placeholder.
I would recommend using VBA for this, not R. Do some google-research on DocVariables in Word. Add some DocVariables to your Word template, keep your analytics in Excel, and then push what you have in Excel into the Word DocVariables. Use the script below, which runs in Excel, to make everything work.
Sub PushToWord()
Dim objWord As New Word.Application
Dim doc As Word.Document
Dim bkmk As Word.Bookmark
sWdFileName = Application.GetOpenFilename(, , , , False)
Set doc = objWord.Documents.Open(sWdFileName)
'On Error Resume Next
objWord.ActiveDocument.variables("BrokerFirstName").Value = Range("BrokerFirstName").Value
objWord.ActiveDocument.variables("BrokerLastName").Value = Range("BrokerLastName").Value
objWord.ActiveDocument.variables("Ryan").Value = Range("Ryan").Value
objWord.ActiveDocument.Fields.Update
'On Error Resume Next
objWord.Visible = True
End Sub
Finally, add a reference to Word, from Excel. Tools > References > Microsoft Word xxx Object Library.

R : Export language error

I would like to export data to csv but my data language is not English. In R console they showed me correctly but when I exported to csv they showed in error (ex. £à¸¸à¸à¸•à¸¥à¸²à¸”หนัà¸à¸¡à¸²à¸ #รà) How can I fix this problem ?
Here is a code.
write.csv(tweetsDF, "/Users/mac/Documents/tweets.csv",fileEncoding = "UTF-8")
Thanks.

How to ues write.arff() with R?

I'm totally new on R and Weka and Data mining. But my tutor ask me to research with RWeka. I've been browsing online about the write. Arff() all the information, but still don't know how to use this function correctly:
write.arff(x, file, eol = "\n", relation = deparse(substitute(x)))
I hope someone can show me how to use the function in more detail and show me some samples using parameters completely.

Resources