topics: Work with topics

In sckott/discgolf: Discourse API Client

Description

Work with topics

Usage

topics_latest(page = 1, ...)

topics_new(...)

topics_by(id, ...)

topic(id, ...)

topic_create(title, text, category = NULL, ...)

topic_delete(id, ...)

topic_rename(id, title, ...)

Arguments

page	(integer) a page number for pagination. records per page is fixed at 30 (that is: up to 30). default: 1
...	Named parameters passed on to HttpClient
id	A user identifier, or a topic identifier. See examples.
title	Title of the new topic
text	Raw text, can include markdown and will be rendered.
category	Category to apply to topic, if any, Default: none

Examples

## Not run: 
topics_latest()
topics_latest(page = 2)
topics_new()
topics_by("cboettig")
topic(8)

topics_latest(verbose = TRUE)

# Create topic
## simple
topic_create(title="testing from discgolf - 10", text="testing from discgolf, hello world!
hopefully this works")

## more complicated
text <- '
## this time with markdown

```r
print("hello world")
#> [1] "hello world"
```

```r
head(mtcars)
#>                    mpg cyl disp  hp drat    wt  qsec vs am gear carb
#> Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
#> Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
#> Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
#> Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
#> Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
#> Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1
```
'
topic_create(title="testing from discgolf - 23", text=text)

# delete a topic
topic_delete(242)


# rename a topic - DOESN'T WORK YET
## create a topic
# res <- topic_create(title = "testing from discgolf - 5",
#    text = "testing from discgolf, again")
## rename
# res$topic_slug
# topic_rename(res$topic_id, title = "new title")
# topic(res$topic_id)$title
## cleanup
# topic_delete(res$topic_id)

## End(Not run)

sckott/discgolf documentation built on March 10, 2021, 5:30 p.m.