Corrado Lanera CorradoLanera

## windows_update.R
update_windows <- function() {

  pb <- progress::progress_bar$new(
    total = 100,
    format = "(:spin) :what [:bar] :perc",
    clear = FALSE,
    width = 80
  )

  i <- 1

## tidy_redcap.R
# functions -------------------------------------------------------
separated_event_fup <- function(db) {
  db |>
    dplyr::mutate(
      fup_id = .data[["ev_id"]] |>
        stringr::str_extract("(?<=fup_)\\d") |>
        as.integer(),
      ev_id = .data[["ev_id"]] |>
        stringr::str_extract("(?<=ev_)\\d") |>
        as.integer()

## .Renviron
_R_CHECK_LENGTH_1_CONDITION_ = TRUE
_R_CHECK_LENGTH_1_LOGIC2_ = TRUE

## app-future-into-api.R
#
# This is a Shiny web application. You can run the application by
# clicking the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)

## logid.cfg
devices: (
{
    name: "Wireless Mouse MX Master";
    smartshift:
    {
        on: true;
        threshold: 20;
    };
    hiresscroll:
    {

## all_installed_by.R
'All installed by.

USAGE:
  all_installed_by.R [-d] [-s] [-f=<FILE>] <PKG>...
  all_installed_by.R [-d] [-s] [-f=<FILE>] -i
  all_installed_by.R [-d] [-s] [-f=<FILE>] -c
  all_installed_by.R (-h | --help)

OPTIONS:
  -h --help          Show this screen.

## get_domain.R
#' Get domain
#'
#' @param url (chr) url from which extract the domain
#' @param include_suffix (lgl, default TRUE) would you like to get the
#'   suffix too (dot included)?
#'
#' @seealso https://stackoverflow.com/questions/19020749/function-to-extract-domain-name-from-url-in-r
#' @export
#' @examples
#' get_domain("www.example.com")

## Htypes.R
## You should have {Hmisc} to check what it produce :-)
requireNamespace("Hmisc", quietly = TRUE)

## If you would run the tests (you do not have to), you need {testthat}.
## TL;DR: passing tests won't produce any output!
can_test <- requireNamespace("testthat", quietly = TRUE)

## Note: for easy of notation I will call an object of class "describe"
##       in the Harrell's world as "Hdesc" object (w/ capital H, in his
##       honour).

## optimized-tf-r-ubuntu
R package tensorflow use the conda envirnment "r-tensorflow". hence I have to install my compiled version of tf within that environment

1. update system and python
```
sudo apt-get update
sudo apt-get upgrade
```

2. install and update conda, and anaconda
```

## R-benchmark-31.R
# R Benchmark 3.1 (05/2020) [Corrado Lanera]
# version 3.1 changed default random generator packages and functions
# given that the older ones are deprecated, R 4.0.0 @ Xeon 2.4GHz Ubuntu 10.04.4 LTS

# R Benchmark 2.5 (06/2008) [Simon Urbanek]
# version 2.5: scaled to get roughly 1s per test, R 2.7.0 @ 2.6GHz Mac Pro
# R Benchmark 2.4 (06/2008) [Simon Urbanek]
# version 2.4 adapted to more recent Matrix package
# R Benchmark 2.3 (21 April 2004)
# Warning: changes are not carefully checked yet!
	update_windows <- function() {

	pb <- progress::progress_bar$new(
	total = 100,
	format = "(:spin) :what [:bar] :perc",
	clear = FALSE,
	width = 80
	)

	i <- 1
	# functions -------------------------------------------------------
	separated_event_fup <- function(db) {
	db \|>
	dplyr::mutate(
	fup_id = .data[["ev_id"]] \|>
	stringr::str_extract("(?<=fup_)\\d") \|>
	as.integer(),
	ev_id = .data[["ev_id"]] \|>
	stringr::str_extract("(?<=ev_)\\d") \|>
	as.integer()
	_R_CHECK_LENGTH_1_CONDITION_ = TRUE
	_R_CHECK_LENGTH_1_LOGIC2_ = TRUE
	#
	# This is a Shiny web application. You can run the application by
	# clicking the 'Run App' button above.
	#
	# Find out more about building applications with Shiny here:
	#
	# http://shiny.rstudio.com/
	#

	library(shiny)
	devices: (
	{
	name: "Wireless Mouse MX Master";
	smartshift:
	{
	on: true;
	threshold: 20;
	};
	hiresscroll:
	{
	'All installed by.

	USAGE:
	all_installed_by.R [-d] [-s] [-f=<FILE>] <PKG>...
	all_installed_by.R [-d] [-s] [-f=<FILE>] -i
	all_installed_by.R [-d] [-s] [-f=<FILE>] -c
	all_installed_by.R (-h \| --help)

	OPTIONS:
	-h --help Show this screen.
	#' Get domain
	#'
	#' @param url (chr) url from which extract the domain
	#' @param include_suffix (lgl, default TRUE) would you like to get the
	#' suffix too (dot included)?
	#'
	#' @seealso https://stackoverflow.com/questions/19020749/function-to-extract-domain-name-from-url-in-r
	#' @export
	#' @examples
	#' get_domain("www.example.com")
	## You should have {Hmisc} to check what it produce :-)
	requireNamespace("Hmisc", quietly = TRUE)

	## If you would run the tests (you do not have to), you need {testthat}.
	## TL;DR: passing tests won't produce any output!
	can_test <- requireNamespace("testthat", quietly = TRUE)

	## Note: for easy of notation I will call an object of class "describe"
	## in the Harrell's world as "Hdesc" object (w/ capital H, in his
	## honour).
	R package tensorflow use the conda envirnment "r-tensorflow". hence I have to install my compiled version of tf within that environment

	1. update system and python
	```
	sudo apt-get update
	sudo apt-get upgrade
	```

	2. install and update conda, and anaconda
	```
	# R Benchmark 3.1 (05/2020) [Corrado Lanera]
	# version 3.1 changed default random generator packages and functions
	# given that the older ones are deprecated, R 4.0.0 @ Xeon 2.4GHz Ubuntu 10.04.4 LTS

	# R Benchmark 2.5 (06/2008) [Simon Urbanek]
	# version 2.5: scaled to get roughly 1s per test, R 2.7.0 @ 2.6GHz Mac Pro
	# R Benchmark 2.4 (06/2008) [Simon Urbanek]
	# version 2.4 adapted to more recent Matrix package
	# R Benchmark 2.3 (21 April 2004)
	# Warning: changes are not carefully checked yet!