thoughthollow

Sub Uppercase()

    Dim cel As Range
    Dim selectedRange As Range

    Set selectedRange = Application.Selection

   ' Loop to cycle through each cell in the specified range.
   For Each cel In selectedRange.Cells
      ' Change the text in the range to uppercase letters.

thoughthollow

#####
# TITLE: Wrangle a OpenAthens statistics HTML table with sub-headers
#
# Purpose: 
# --------
# OpenAthens allows you to view statistics of resource usage, 
# however sometimes it's not possible to download the results as a .csv file, such as
# for daily use over a year of resources by email address 
# (probably because of the data frame size).
# But! It is possible to view and download them as a HtmL table.

thoughthollow

# Get the configuration info
{
  config <- read_csv("config.csv",
                     locale = locale(encoding = "UTF-8"),
                     trim_ws=TRUE)

  for (i in 1:ncol(config)) {
    assign(names(config)[i], as.character(config[,i]))
  }
  rm(i)